importer des infos ds un doc notes depuis excel

[Seb]

Bjr !En fouillant ds ce forum je suis tomber sur un code quicorrespondait a mon besoin ( merci bcp d'aileurs) que j'ai adapté mais celui semble ne pas fonctionner ou (bien je trouve pas mon erreur c'ets possible aussi ),qqn pourrai m'aider? l'operatio inverse marche ss pb je l'avais deja faitbref je passe par un lien ole pour recuperer un liste d'un fichier excel et l'inserer ds un doc notes ,ds une vue specifique basée su run masque predefinis que j'ai crée.. voila le code : Sub initialize Dim xlFilename As String xlFilename = "c:\temp\toto.xls" Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim doc As NotesDocument Set db = session.CurrentDatabase Set doc = New NotesDocument(db) Dim One As String Dim row As Long Dim written As Long Dim Excel As Variant Dim xlWorkbook As Variant Dim xlSheet As Variant Print "Connexion a Excel..." Set Excel = CreateObject( "Excel.Application" ) Excel.Visible = False '// Don't display the Excel window Print "Ouverture du fichier : " & xlFilename & "..." Excel.Workbooks.Open xlFilename '// Open the Excel file Set xlWorkbook = Excel.ActiveWorkbook Set xlSheet = xlWorkbook.ActiveSheetRecords: row = 0 written = 0 Print "Démarrage de l'importation Excel..." row = 7 Do While True Finish: With xlSheet row = row + 1 Set view = db.GetView("vuetestseb") Set doc = db.CreateDocument If .Cells(row,34).Value="" Then Goto Done Else doc.vue_code = .Cells( row, 34 ).Value End If Call doc.Save( True, True ) written = written + 1 Print written End With Loop Return Done: Print "deconnexion d'Excel..." xlWorkbook.Close False Excel.Quit Set Excel = NothingEnd Subdonc je recuoere bien mes valurs excel ds le .cells( row,xx) mais le transfert ds le champs vue_code ou la sauvegarde n'est pas ok... je voi srien ds ma vue...qqn aurai une idée? mci bcp

[Seb]

je me demande ... que ce passe t'il ici vu que l'on ne specifie pas le nom du masque? le "createdocument" prend-il le masque par defaut associé à la vue ?Est-ce- que ca ne viendrais pas du nom du champs qu'il ne trouve pas?ou p-e que le doc est bien importé via un masque et que c'est pas celui visualisé ds ma vue... pourtant c'est le meme nom..je galere et ca m'enerve.. personne a une idée? vraiment ? ou bien une autre technique pour importer ces datas..

[Raziel]

Si à un moment tu n'a pas une ligne tu typedoc.Form = "Nom du masque"les documents sont enregistrer sans lien à aucun masque.Conséquence : Les vues ne listent pas ces docs (sauf si tu ne fait pas de sélection sur le nom du masque utilisé, ou que la sélection porte sur tous les docs n'ayant pas de champ form) et la lecture de ces documents se fera avec le masque par défaut (s'il y en a un)

[Seb]

Raziel !!Merci merci merci t'es un chef !!!!bye !

[jose]

En fin de compte le script final qui marche bien, c'est quoi ?Merci d'avance

[Seb]

Slt josé : donc ua final un truc du style :Sub initializeDim xlFilename As StringxlFilename = "c:\temp\toto.xls" Dim session As New NotesSessionDim db As NotesDatabaseDim view As NotesViewDim doc As NotesDocumentSet db = session.CurrentDatabaseSet doc = New NotesDocument(db)Dim One As StringDim row As LongDim written As LongDim Excel As VariantDim xlWorkbook As VariantDim xlSheet As VariantPrint "Connexion a Excel..."Set Excel = CreateObject( "Excel.Application" )Excel.Visible = False '// Don't display the Excel windowPrint "Ouverture du fichier : " & xlFilename & "..."Excel.Workbooks.Open xlFilename '// Open the Excel fileSet xlWorkbook = Excel.ActiveWorkbookSet xlSheet = xlWorkbook.ActiveSheetRecords:row = 0 written = 0Print "Démarrage de l'importation Excel..."row = 7Do While True Finish: With xlSheetrow = row + 1Set view = db.GetView("vuetestseb")Set doc = db.CreateDocument nom_form = "Nom_du_masque"doc.form = nom_formIf .Cells(row,34).Value="" ThenGoto DoneElsedoc.vue_code = .Cells( row, 34 ).ValueEnd IfCall doc.Save( True, True ) written = written + 1Print written End WithLoopReturnDone:Print "deconnexion d'Excel..."xlWorkbook.Close False Excel.Quit Set Excel = NothingEnd Suba+