Créer une Replique grâce à un bouton

[brice]

Bonjour,je cherche un moyen de créer une replique grâce à un bouton d'action envoyé dans un e-mail. La base source n'est pas ouverte sur le poste client.Merci pour vos réponsesBrice

[seb51]

'********************************************************************** 'Entrer ici le nom de la base avec son chemin complet Const NomBase = "aa\aa.nsf" 'Entrer ici le nom de la réplique Const NomReplique = "bb.nsf" '********************************************************************** Dim ws As New notesUIWorkSpace Dim session As New notessession Dim curdb As notesdatabase Dim db As notesdatabase Dim dbrech As notesdatabase Dim replica As notesdatabase Set curdb = session.currentdatabase If ( curdb.Server = "" ) Then Serveur = "" Else Serveur = curdb.server End If If Serveur = "" Then Messagebox("Erreur : Vous devez être en mode Bureau") Exit Sub End If Set db = session.GetDatabase(Serveur , NomBase) Set replica = db.createreplica("" , NomReplique) If replica.title = "" Then Messagebox("Erreur en création de réplique : Contactez votreadministrateur.") Exit Sub End If Call replica.Replicate(db.Server) Call ws.Adddatabase("" , NomReplique)