DominoArea.org [Archive]

Bonjour,JE souhaite faire une exportation de document depuis une vue notes.je souhaite que chaque document notes corresponde a un document txt ou word.De plus il y a des pieces jointes ...j arrive un exporter tous les document de la vue vers un seul document txt ou word mais comment faire pour qu il me reccree un docment TXT a chaque fois ? le tritre du document notes correspondrait a un docuement word ou TXT.Comment faire pour les pieces jointes ou les images contenu dans les docs Notes ?Merci

Bonjour,Ce code doit faire ce que tu veux sauf pour les images et les pièces jointes qui sont impossibles à exporter dans un fichier texte.A adapter avec tes noms de champ et le nom du repertoire où créer les fichiers.Sub InitializeDim session As New NotesSessionDim db As NotesDataBaseDim view As NotesViewDim doc As NotesDocument'Initialise les objets Set db = session.CurrentDataBaseSet view = db.GetView("Nom de la Vue")Set doc = view.GetFirstDocumentSep$ = ";" 'séparateur de colonne dans le fichier texteDo While Not (doc Is Nothing)'Initialise le fichier texteFilename$ = "c:\Temp\" + doc.titre(0) + ".txt"FileNum% = FreefileOpen Filename$ For Output As FileNum%Info$ = doc.NomChamp1(0) + sep$ + doc.NomChamp2(0) + sep$ + doc.NomChamp3(0)Print #FileNum%,Info$Set doc =view.getNextDocument(doc)'Cloture du fichierClose FileNum%LoopEnd Sub