1 colonne sur plusieurs fichiers=>1 colonne sur 1 fichier

Résolu
NaXiLeAn Messages postés 112 Date d'inscription   Statut Membre Dernière intervention   -  
NaXiLeAn Messages postés 112 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour, Bonjour,

J'aimerais récupérer les informations de la colonne A (Nb de lignes indéfinie et variable) de plusieurs fichiers excel (dont les nom commence de la même façon) se trouvant dans un même dossier
=> pour créer 1 unique fichier avec l'ensemble de ces données sur une même colonne (la colonne A).

Quelqu'un pourrait-il m'aider s'il vous plait?


A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Adaptez le chemin et nom de fichier a trouver 

Sub import_colonne()
    On Error GoTo suite
    
    Application.ScreenUpdating = False      'bloquage ecran
    Chemin = "D:\_atest\Cop_Fich\"      'chemin des fichiers
    Fichier = "aze*.xlsx"                         'nom de fichier a chercher: * pour la partie differente
    FT = Dir(Chemin & Fichier)              'recherche fichier
    'boucle de recherche et copie
    Do While FT <> ""
        Workbooks.Open (Chemin & FT)        'ouverture fichier a copier
        derlig = Range("A" & Rows.Count).End(xlUp).Row      'derniere cellule non vide colonne A
        TInfos = Range("A1:A" & derlig).Value       'mise en tableau des infos colonne A
        ActiveWorkbook.Close False               'fermture du fichier sans sauvegarde
        'retour classeur destinataire
        With Worksheets("feuil1")
            PCV = .Range("A" & Rows.Count).End(xlUp).Row + 1        'premiere cellule vide colonne A
            .Range("A" & PCV).Resize(UBound(TInfos)) = TInfos         'copie des Infos recuperees du fichier
        End With
        FT = Dir
    Loop
suite:
    Application.ScreenUpdating = True       'debloquage ecran
End Sub
1
NaXiLeAn Messages postés 112 Date d'inscription   Statut Membre Dernière intervention   1
 
Bonjour f894009,
Je te remercie grandement pour ta réponse "simple" et efficace!
Tout est claire et cela fonctionne à merveille.
Bonne journée.
0