par BUDE » 24 Fév 2010 à 11:06
En fait j'ai dèja un LS qui crée un document à partir d'un fichier excel et je ne comprends pas pourquoi il ne calcul pas le champ commun qui lui n'est bien sûr pas importé
Sub CreationDocument(aLigneATraiter() As String, NbColonne As Integer, sCol() As String)
Dim Session As NotesSession
Dim Db As NotesDatabase
Dim Doc As NotesDocument
Dim iCompteur As Integer
On Error Goto err_CreationDocument
Set Session = New NotesSession
Set Db = Session.CurrentDatabase
Set Doc = Db.CreateDocument
' Nom du masque de création
Doc.Form = "fa_Import"
For iCompteur = 1 To NbColonne
' Copie les valeurs dans les champs
MonChampsX
Call doc.ReplaceItemValue(sCol(iCompteur), aLigneATraiter(iCompteur))
Next
' Sauve le masque
Call Doc.Save(True, False, False)
' quite la routine de création à partir du masque
Exit Sub
err_CreationDocument:
Exit Sub
End Sub
Cordialement