Bonjour ,

Je dispose d'un répertoire contenant plusieurs fichier .txt que je désire ouvrir un à un en xls pour effectuer des traitements dessus.
J'arrive tout à fait à ouvrir un fichier .txt et à effectuer mes traitements dessus avec la commande suivante :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Workbooks.OpenText Filename:=" MonFichier", Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, Semicolon:=True

En revanche quand je passe à l'étape ou il faut ouvrir tous les fichiers .txt du répertoire pour faire les traitements je bloque.. Mon code est le suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Chemin = "MonChemin"
Fichier = Dir(Chemin & "*.txt")
 
Do While Len(Fichier) > 0
 Worbooks.OpenText Filename:=Fichier, Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, Semicolon:=True
Loop
Lorsque j’exécute la macro une erreur apparait : "Erreur d'éxécution 42" Objet Requis

Pouvez vous m'aider?

Merci