Discussion :

[asphodele]

Bonjour,

Je cherche à ouvrir des fichiers textes pour appliquer des calculs. J'ai réussi à construire la macro pour ouvrir un fichier mais j'aimerais pouvoir l'appliquer à tout un dossier.

Code :

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

1
2
3
4
5
6
Workbooks.OpenText Filename:= _
"C:\Nom du fichier.txt" _
, Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1)), DecimalSeparator:=".", TrailingMinusNumbers:=True

J'ai défini une boucle qui va chercher les fichiers dans ce dossier mais j'ai un problème pour associer les deux.

Code :

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

1
2
3
4
5
Dim Fich As String
Const Chemin_dossier = "chemin dossier voulu"
Fich = Dir(Chemin_dossier & "*.txt")
Do While Fich <> ""
Workbooks.Open Chemin_dossier & Fich

Comment est-ce que je peux intégrer les modalités d'ouverture de mon fichier texte à ma boucle???
Je sature et j'arrive plus à rien là...donc s'il y a quelqu'un qui a une solution je suis preneuse!

[asphodele]

Bon en fait j'ai trouvé la solution c'était pas bien compliqué...