Discussion :

[Lyndils]

Bonjour,

Je vous explique mon problème, comme j'ai un niveau très bas en VBA cela me pose vraiment un gros problème.
J'ai un fichier .txt avec des valeurs et des ";" que je souhaite récupérer.
Pour cela j'ouvre dans Excel , le fichier avec le mode Texte pour qu'il supprime les ; et mette les données dans les colonnes.

Cette action est enregistré en macro, ce qui donne:

Code :

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

1
2
3
4
5
6
Workbooks.OpenText Filename:= "Chemin du fichier/ file.txt" _
        , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
        :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:= _
        True, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array( _
        1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, _
        1), Array(9, 1), Array(10, 1)), TrailingMinusNumbers:=True

J'aimerai qu'il empile les données dans un fichier que j'ai choisi.
Sachant que j'ai minimum 6 fichiers pas dossiers, je souhaite répéter cette action et qu'il le fasse automatiquement pour un dossier entier.

J'espère avoir était le plus claire possible.

Je vous remercie d'avance pour l'aide que vous m'apporterez.

Cordialement,
Lyndils

[kiki29]

Salut, inspire toi de ceci : fusion fichiers xls*, txt d'un dossier.

[Lyndils]

Rebonjour,

Après recherche sur les précédents post, j'ai fini par trouver pour la transformation des fichiers .txt en .xls dans le même dossier sachant que c'était des ";" Ch(39) et non des "tab" : Chr(9) il me semble.

Sinon maintenant je dois fusionner tout les fichiers en un seul et mettre les données à suite dans une seule feuille.

Je n'ai pas compris le fichier que tu m'as envoyé.
Désolé.

Lyndils.

[Marc-L]

Bonjour,

il n'y a pas besoin de transformer juste en paramétrant correctement les différentes méthodes d'Excel à disposition !

Joindre deux fichiers texte source …


_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo