par diarno » 16 Avr 2003 à 21:19
J'ai crée un agent qui exportent tous les documents de la vue courante ( currentview ) mais j'avais oublié que les utilisateurs on des clients V4 ( pas de currentview rattaché au notesuiworkspace) donc ca marche pas pour eux ... oups oups oupsdonc si quelqu'un a un code qui fonctionne pour les deux clients...Mon agent actuel (resumé):Sub export_qui_marche_en_v5dim w as new notesuiworspaceset doc=w.currentview.getfirstdocument while not (doc is nothing)writefile( path, "certain champs de mon de document")set doc= w.currentview.getnexdocument(doc)wendEnd SubSub WriteFile( NomFichier As String ,Buffer As String) Fichier= Freefile'Ouverture du fichier en ajout Open NomFichier For Append As Fichier 'Ajout de la ligne Print #Fichier, Buffer 'Fermeture du fichierClose(Fichier)End Sub