Suite au post ici voici un petit bout de code pour permettre, grâce à un seul prompt, de créer un signet vers la base et sa réplique :
- Code : Tout sélectionner
Dim ws As NotesUIWorkspace
Dim reponse As Variant
Dim splitServeur As Variant
Dim serveur As String
Dim serveurA As String
Dim serveurB As String
Dim chemin As String
Dim taille As Integer
Dim nmServeur As NotesName
Set ws = New NotesUIWorkspace
reponse = ws.Prompt(13, "Choisir la base à ouvrir", "Choisir la base à ouvrir")
serveur = reponse(0)
chemin = reponse(1)
Set nmServeur = New NotesName(serveur)
taille = Len(nmServeur.common)
serveur = Left(nmServeur.common, taille - 1)
serveurA = serveur + "A"
serveurB = serveur + "B"
Call ws.AddDatabase(serveurA, chemin)
Call ws.AddDatabase(serveurB, chemin)
Merci à Michael DELIQUE pour son coup de main
