Discussion :

[lulu_MAHC]

Salut all,

Voila je travaille sur acquisition de donnees et j'aimerais bien realiser un traitement de fichiers de facon automatique .

Je dispose d'un repertoire compose de bcp de fichiers InfoPath et j'aimerais : - Ouvrir chaque fichier InfoPath avec le Notpad ou l'editeur de texte
- Copier le contenu de ce fichier texte obtenu
- le coller dans un classeur excel et enregistrer le document

Je pensais realiser ca avec une macro contenu dans un doc excel egalement present dans le repertoire contenant les infopath et de faire boucler ce code sur tout les fichiers InfoPath

Les etapes sont a peu pres claires dans ma tete mais etant debutant en VBA je ne sais pas par ou ni comment commencer ...

Si quelqu'un a une piste ou deux , merci d'avance !

[Philippe PONS]

Salut,

Pour parcourir ton répertoire et ouvrir chaque fichier, utilise la librairie Scripting et la classe FileSystemObject.
Elle te permet de récupérer la contenu du fichier dans une variable, donc pas besoin de notepad.
Voir par exemple:
http://warin.developpez.com/access/fichiers/
Voila quelques pistes.
Cordialement,

[lulu_MAHC]

Rebonjour ,

J'ai bien lu ton lien et j ai teste quelque trucs neanmois (sauf si je me trompe) j'ai l impression que ces methodes ne permettent que d'ouvrir des fichiers textes ou du moins de les traiter, or moi je pars de fichiers .xlm . J 'ai cherche quelque chose qui se rapprochait de l'affectation du contenu du fichier dans une variable mais j'n'ai rien trouve...

Si tu peux m'aider un peu plus

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Open "C:\RepTest\test.txt" For Input As #1 ' Open file.
 Debug.Print Input(LOF(1), #1)
Close #1

[lulu_MAHC]

Merci de ton aide mais il s'agit ici d'un code pour l'ouverture de fichier .txt, c'est possible avec des fichiers .xml?

[Philippe PONS]

Salut,

un fichier xml est un fichier texte!
Il n'y a que l'extension qui change (txt et xml)

Cordialement,