Ouvrir un fichier avec le notepad puis avec Excel

Version imprimable

29/02/2016, 11h23
lulu_MAHC

Ouvrir un fichier avec le notepad puis avec Excel

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 ! :)
29/02/2016, 11h28
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,
29/02/2016, 14h23
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 :)

Code:

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

01/03/2016, 09h50
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?
01/03/2016, 09h54
Philippe PONS

Salut,

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

Cordialement,

bonjour,
si tu travail en xml

Code:

1
2
3
4
5
6
7
8
9
Private Sub test()
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = "false"
xmlDoc.Load ("C:\RepTest\Test.xml")
Debug.Print xmlDoc.Text
For Each x In xmlDoc.DocumentElement.ChildNodes
 Debug.Print x.nodename & ": " & x.Text & vbCrLf
Next
End Sub

Re Bonjour,

alors voila , après quelques heures de galere j'en suis arrive la et je pense que je ne suis plus tres loin de mon but , neanmoins ca bloque toujours a la derniere etape a savoir : coller le contenu de ma variable sur le classeur Excel
voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub traitement_des_donnees() Dim oFSO As Scripting.FileSystemObject Dim oTxt As Scripting.TextStream 'Instanciation du FSO Set oFSO = New Scripting.FileSystemObject Set oTxt = oFSO.OpenTextFile("C:\Users\lcatelli\test-temporaire\Conversion\650062.xml", ForReading) 'Creation fichier excel Dim classeur As Workbook Set classeur = Application.Workbooks.Add ActiveSheet = oTxt.Value With classeur .SaveAs "C:\Users\lcatelli\test-temporaire\Conversion\TEST.xls" 'a modifier pour changement de lieu d'enregistrement et de nom End With End Sub
Quand je lance le programme une erreur de compilation apparait : Method or Data member not found ...
D après mes minces connaisssances en la matiere je pense que c'est pcq oTxt n'est pas declaree comme les variables avec lesquelles on peut effectuer ce genre de traitement
Le truc c est que je suis incapable de corriger cette erreur

Si vous pourriez m'apporter la lumiere svp

Merci d'avance

03/03/2016, 11h12
Philippe PONS

Salut

au lieu de

Code:

ActiveSheet = oTxt.Value

essaie

Code:

ActiveSheet.Range("A1") = oTxt.Value

pour indiquer à l'instruction, dans quelle cellule elle doit coller le texte.

Cordialement,

Salut,

merci de ta reponse, neanmoins ca coince encore , cela m'affiche la meme erreur , alors j'ai modifie comme tu m'as dit et je peux lancer la macro qui tourne maintenant jusqu a cette meme ligne qui pose encore probleme :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub traitement_des_donnees() Dim T Dim oFSO As Scripting.FileSystemObject Dim oTxt As Scripting.TextStream 'Instanciation du FSO Set oFSO = New Scripting.FileSystemObject Set oTxt = oFSO.OpenTextFile("C:\Users\lcatelli\test-temporaire\Conversion\650062.xml", ForReading) 'Creation fichier excel Dim classeur As Workbook Set classeur = Application.Workbooks.Add ActiveSheet.Range("A1").Value = oTxt With classeur .SaveAs "C:\Users\lcatelli\test-temporaire\Conversion\TEST.xls" 'a modifier pour changement de lieu d'enregistrement et de nom End With
Et la c'est l'erreur 1004, Application-defined or object-defined error qui s'affiche ... Je ne vois pas ou est l erreur etant donne que toutes mes variables et objets sont declares ...

Ok, mai ce message d'erreur, tu l'as dès le lancement de la procédure, ou bien sur l'exécution d'une ligne en particulier?
Tu as bien déclaré la bibliothèque Scripting, dans Outil/Références...?

Pour éviter le problème de bibliothèque , essai le Late Binding:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub traitement_des_donnees()
    ' constante
    Const ForReading = 1
    Dim T
    Dim oFSO As Object
    Dim oTxt As Object
    'Instanciation du FSO
    'Set oFSO = New Scripting.FileSystemObject
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set oTxt = oFSO.OpenTextFile("C:\Users\lcatelli\test-temporaire\Conversion\650062.xml", ForReading)
 
    'Creation fichier excel
    Dim classeur As Workbook
    Set classeur = Application.Workbooks.Add
    ActiveSheet.Range("A1").Value = oTxt
    With classeur
    .SaveAs "C:\Users\lcatelli\test-temporaire\Conversion\TEST.xls" 'a modifier pour changement de lieu d'enregistrement et de nom
    End With
 
End Sub

03/03/2016, 13h49
lulu_MAHC

Le message d'erreur apparait a l'execution de la ligne

Code:

ActiveSheet.Range("A1").Value = oTxt

Et oui, la declaration de la bibliotheque Scripting etait une de mes premieres erreurs mais je l'ai vite corrige....

J'ai essaye avec le Late Binding mais rien n'y fait ... Toujours cette meme erreur...
03/03/2016, 13h51
Philippe PONS

Ah! J'avais pas vu!

oText est un objet, tu peux pas l'affecter à une cellule!
Tu peux faire

Code:

oText.ReadAll

pour récupérer tout le texte du fichier
03/03/2016, 14h12
lulu_MAHC

Magnifique , ca fonctionne ! un grand merci !!!!!
04/03/2016, 08h36
lulu_MAHC

Bonjour,

j'ai de-nouveau une question si jamais vous auriez la solution .

Admettons que je ne souhaite pas copier le contenu de ma variable dans une unique cellule mais sur la page entiere .
Est ce possible ? J'ai essaye avec les moyens classique type ActiveSheet.Value=..... Neanmoins je pense que vba ne considere pas une feuille au meme titre qu une cellule

Je m'explique d avantage: Le contenu de ma variable peut etre considerer comme un texte de plusieurs ligne et lors d un basique copier coller , le resultat obtenu est une ligne du texte par ligne excel , mon but est alors d obtenir ce meme resultat .

Est ce possible ? Merci d'avance

Salut,
A adapter...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub traitement_des_donnees()
    ' constante
    Const ForReading = 1
    Dim T
    Dim oFSO As Scripting.FileSystemObject
    Dim oTxt As Scripting.TextStream
    'Instanciation du FSO
    'Set oFSO = New Scripting.FileSystemObject
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set oTxt = oFSO.OpenTextFile("C:\installlog.txt", ForReading)
 
    Dim iRow As Integer
    'Creation fichier excel
    Dim classeur As Workbook
    Set classeur = Application.Workbooks.Add
    iRow = 1
    ' lire le fichier ligne par ligne
    Do
        ActiveSheet.Cells(iRow, 1) = oTxt.ReadLine
        iRow = iRow + 1
    Loop While Not oTxt.AtEndOfStream
    With classeur
    .SaveAs "C:\Users\lcatelli\test-temporaire\Conversion\TEST.xls" 'a modifier pour changement de lieu d'enregistrement et de nom
    End With
 
End Sub

04/03/2016, 11h48
lulu_MAHC

Merci pour la soluc' j'ai trouve un autre truc entre temps