Discussion :

[discus23]

Bonjour,

Je cherche à ouvrir, sous Excel, tous les fichiers txt d'un même répertoire.
Je me sers du code suivant, qui devrait marcher d'après mes premières recherches sur le net, mais il me retourne une erreur.

Le code étant :

Code :

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

1
2
3
4
5
6
7
8
 
Chemin = "G:\..............\2012\Juin\18062012\Rapports\"
 
Fichier = Dir(Chemin & "*.txt")
 
Do While Len(Fichier) > 0
     Workbooks.OpenText Filename:=Fichier, DataType:=xlDelimited, semicolon:=False
Loop

L'erreur étant : Erreur 1004, .......txt introuvable, vérifier l’orthographe....

Alors que si je fais afficher les noms de tous les fichiers dans le fenêtre de Debug, ils y sont bien tous....

D'où cela peut-il provenir?

Merci.

[kiki29]

Salut, voir ici et adapter à ton contexte en n'oubliant pas une partie du code.