J’arrive a créé une réplique locale d’une base en local.
- Code : Tout sélectionner
Dim s As New notessession
Dim dbServer As NotesDatabase
Dim db As NotesDatabase
Dim rep As NotesReplication
Dim re As NotesReplicationEntry
Dim ServerDestination As String
Dim ServerSource As String
Dim CheminDestination As String
Set db = s.CurrentDatabase
ServerDestination = ""
ServerSource = "NomduServeur"
CheminDestination = "archive\a_" + db.FileName
CheminSource = CheminDestination
Set dbServer = New NotesDatabase (ServerSource, CheminSource)
Set replica = dbServer.CreateReplica( "", CheminDestination )
Mais avec ce code j’ai deux problèmes :
Le temps de réplique du server vers le poste de l’utilisateur (très variable suivant la taille et le lien réseau)
Et la base n’est pas ajouter au réplicateur.
Aussi j’essai de créé un bouton qui ajoute simplement la base au réplicateur et là problème !
Les Evaluate ne fonctionnent pas.
- Code : Tout sélectionner
Dim s As New notessession
Dim db As NotesDatabase
Dim ServerSource As String
Dim CheminSource As String
Dim eval As Variant
Set db = s.CurrentDatabase
ServerSource = " NomduServeur "
CheminSource = "archive\a_" + db.FileName
Msgbox ServerSource & " -> " & CheminSource
eval = Evaluate("@Command( [WindowWorkspace] )")
eval = Evaluate("@Command( [AddDatabase] ; ServerSource : CheminSource ; 1 )")
eval = Evaluate("@Command( [ToolsReplicate] ; 0 ) ")
Pouvez-vous prendre 5 minutes pour me dire où je fais fausse route ?
D’avance merci et bonne journée.
Phil59.
