Macro importation fichier texte ne fonctionne pas

Résolu
kgigant Messages postés 202 Date d'inscription   Statut Membre Dernière intervention   -  
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J'ai besoin d'une macro qui importe tout le contenu de tous mes fichiers textes qui sont dans un dossier d'un disque dur. J'ai donc cherché une macro qui correspondait à mes attentes mais elle ne fonctionne pas et je n'arrive pas à comprendre pourquoi :

Sub importfichiertxt()
Dim Fichier As String, Chemin As String
Dim i As Long

'Répertoire contenant les fichiers
Chemin = "(H:)\comp"
Fichier = Dir(Chemin & "\*.txt")

'Boucle sur les fichiers
Do While Fichier <> ""

i = Range("A65536").End(xlUp).Row + 1
ImportText Chemin & "\" & Fichier, Cells(i, 1)

Fichier = Dir
Loop
End Sub

Mon code bug au niveau de la ligne fichier.

Pour info tous mes fichier txt que je doit importer sont dans le fichier comp du disque H
A voir également:

2 réponses

Réponse 1 / 2
kgigant Messages postés 202 Date d'inscription   Statut Membre Dernière intervention   9
 
Sub importfichiertxt()
Dim Fichier As String, Chemin As String
Dim i As Long

'Répertoire contenant les fichiers
Chemin = "H:\comp"
Fichier = Dir(Chemin & "\*.txt")

'Boucle sur les fichiers
Do While Fichier <> ""

i = Range("A65536").End(xlUp).Row + 1
ImportText Chemin & "\" & Fichier, Cells(i, 1)

Fichier = Dir
Loop
End Sub


Celui ci marche !!! apparement ça bloqué au niveau des parenthèse pour le chemin
0
Réponse 2 / 2
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
Bonjour

Fichier = Dir()
et de mémoire ça serait plutôt :
Chemin = "H:\comp\"
Fichier = Dir(Chemin & "*.txt")

eric
0