par PhilippeG » 25 Nov 2003 à 11:25
Bonjour,voila un peu de code qui fait ce que tu veux, a adapter à tes besoins et a tes noms de variables bien sur...Il faut aussi que tu te crée une vue qui selectionne les documents que tu veux exporterSub Initialize Dim session As New NotesSession Dim db As NotesDataBase Dim view As NotesView Dim doc As NotesDocument 'Initialise les objets Set db = session.CurrentDataBase Set view = db.GetView("Nom de la Vue") Set doc = view.GetFirstDocument Sep$ = ";" 'séparateur de colonne dans le fichier texte 'Initialise le fichier texte Filename$ = "Nom du fichier avec son chemin d'accès" FileNum% = Freefile Open Filename$ For Output As FileNum% Do While Not (doc Is Nothing) Info$ = doc.NomChamp1(0) + sep$ + doc.NomChamp2(0) + sep$ + doc.NomChamp3(0) Print #FileNum%,Info$ Set doc =view.getNextDocument(doc) Loop 'Cloture du fichier Close FileNum% End SubSi tu ne veux pas utiliser créer une vue spécifique tu passer par un objet notes document collection il suffit de remplacer la paragraphe Initialise les objets ci dessus par'Initialise les objets Dim coll as NotesDocumentCollection Dim dateTime as New NotesDateTime("01/01/95") selection$ = "formule de selection des documents" Set db = session.CurrentDataBase Set coll = db.search(selection$,datetime,0) Set doc = coll.GetFirstDocument Sep$ = ";" 'séparateur de colonne dans le fichier textela première méthode est plus rapide que la seconde mais oblige à créer une vue dans la base.Il y a une troisième méthode qui consiste à créer une vue qui selectionne tes documents, mettre les infos a exporter dans les colonnes de la vue en séparant chaque colonne par une colonne contenant une constante (au hasard le point virgule) et à utiliser le menu file/export ou la commande @Command([FileExport])