Creer une db From Template en LS ?

[Ahamay]

hello,

question toute simple:

En LS comment créer une nouvelle base en utilisant un modele ?

Un ptit exeple serait le bienvenu

thx d'avance

[billbock]

Code : Tout sélectionner

Function CreationAppli As String
   On Error Goto errore
   'recuperation des valeurs des champs du formulaire lien
   cheminTemplate = docLien.Templatepath(0)
   cheminbase = docLien.DatabasePath(0)+docLien.DatabaseName(0)
   titreBase = docLien.TitreBase(0)
   
   If cheminTemplate = "" Or cheminbase = "" Or titrebase = "" Then
      message = "Le document Lien pour <TITREBASE> ne contient pas toutes les informations necessaires"
      CreationAppli = "0"
   End If
   
   Set baseTemplate = New NotesDatabase(db.Server,chemintemplate)
   
   If Not basetemplate.isopen Then
      message = "Le template n'existe pas pour le lien <TITREBASE>"
      CreationAppli = "0"
   End If
   Set dbNew = New NotesDatabase(db.Server,cheminbase)
   
   If Not dbNew. Isopen Then
      Set dbNew = baseTemplate.CreateFromTemplate(db.Server,cheminbase,True)
      dbNew.Title = titreBase
      CreationAppli  = "1"
   Else
      message = "Le base existe deja pour le lien <TITREBASE>"
      CreationAppli = "0"
   End If
   Exit Function
errore :
   CreationAppli = "0"
   Resume Next
End Function