DominoArea.org [Archive]

J' ai un squelette de vue à 3 niveaux (sujet, réponse et réponse à réponse). Je voudrais savoir si il est possible d' écrire un code qui importe depuis un doc excel (les réponses sont en retrait d' une colonne) et fabrique suivant les données du doc la hiérarchie de ma base notes. Pour des docs sans hiérarchie pas de problème, j'arrive à faire l' importation. Donc ma question c'est de savoir si c' est possible pour ne pas que je me lance là-dedans pour rien.Merci.

Bonjour,Normalement cela doit être faisable en récupérant l'ID du document Père.[%sig%]

Re,Voici un exemple en utilisant MakeResponse :Sub Initialize Dim session As New NotesSession Dim db1 As NotesDatabase 'Dim db2 As New NotesDatabase( "" , "" ) Dim view As NotesView Dim docA As NotesDocument Dim docB As NotesDocument Dim i As Integer Dim theFLName$ Dim EnvTheFLNum$ Dim EnvTheGlobalCust$ Set db = session.CurrentDatabase Set view = db.GetView( "2. Process Fund/Country\ b. Add Fund" ) 'Call db2.Open( "" , "C:\\notes\\data\\templeton\\wwfund\\wwcrfund.nsf") EnvTheFLName$ = session.GetEnvironmentString( "TheFLName" ) EnvTheFLNum$ = session.GetEnvironmentValue( "TheFLNum" ) EnvTheGlobalCust = session.GetEnvironmentString( "TheGlobalCust" ) Set docA = view.GetFirstDocument While Not ( docA Is Nothing ) 'create new docB using form "Fun" Set docB = db.CreateDocument docB.Form = "FUN" Call docB.MakeResponse( docA ) docB.FUNCountry = docA.COUCountry docB.FUNRegion = docA.COURegion docB.FUNFundName = EnvTheFLName$ docB.FUNFundNo = EnvTheFLNum$ docB.FUNCustodian=EnvTheGlobalCust$ docB.FUNCode = docA.COUCode Call docB.Save( True, True ) Set docA = view.GetNextDocument( docA ) Wend End Sub[%sig%]