Macro importation fichier texte ne fonctionne pas Résolu

Question

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

kgigant · Answer

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

eriiic · Answer

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

Macro importation fichier texte ne fonctionne pas

2 réponses

Discussions similaires

Newsletters