DominoArea.org [Archive]

Bonjour,Je recherche un code qui va me permettre de lire directement les données d'un fichier attaché dans un document.(txt) !! : mon fichier n'est pas dans dans un champs texte richeVoici mon code commenté :Sub Initialize Dim s As New notessession Dim db As notesdatabase Dim docxls As notesdocument Dim nextdocxls As notesdocument Dim vuexls As notesview Dim vFile As Variant Dim inputAttachment As NotesEmbeddedObject Set db = s.currentdatabase ' --- Vue qui contient les Documents à traiter ----- Set vuexls = db.Getview("VDOCXLS") If vuexls Is Nothing Then Print "vue contenat les docs excel absente .." Exit Sub End If Set docxls = vuexls.GetFirstDocument While Not(docxls Is Nothing) Set nextdocxls = vuexls.GetNextDocument(docxls) 'Le doc est traité donc change de vue ... 'docxls.traite = "1" Set vFile = docxls.GetFirstItem("$File") sFileName = vFile.Values(0) Set inputAttachment = docxls.GetAttachment(sFileName) 'Test pour savoir si le doc contient un fichier !!! If docxls.HasEmbedded Then Messagebox _ ( "Doc contains an object, link, or attachment" ) Else Messagebox _ ( "Doc has no objects, links, or attachments" ) End If Set docxls = nextdocxls Wend End Sub

Bonjour,A votre place j'enregistrerait le fichier temporairement pour le lire et après je le supprime du disque.[%sig%]

Je ne peux pas je veux travailler directement sur mon serveur As400 ...Et quand je détache le fichier sur l'AS400, je ne peux plus le lire : j'obtiens de la choucroute ...

Re,Autant pour moi, je n'avais pas vue que c'était sur un AS.[%sig%]