Boucler fichiers dans 1 répertoire + copier-coller

[FaridP]

Bonjour à tous,

Je souhaite récupérer des informations sur différents fichiers (tous au même format) se trouvant dans un répertoire et les coller à la suite de mon document actif puis refermer le fichier et le déplacer dans un répertoire nommé "Done".

Si l'ouverture des fichiers ne me pose pas de soucis, je n'arrive pas récupérer les données, les coller et déplacer le fichier, pourriez-vous m'aider ?
Voici mon code :

Sub BoucleFichiers()
    Dim Chemin As String, Fichier As String
    'Répertoire contenant les fichiers
    Chemin = "C:\Exports\"
    'Boucle sur tous les fichiers xls du répertoire.
    Fichier = Dir(Chemin & "*.xls")
   
    Do While Len(Fichier) > 0

'Si "A2" du fichier ouvert est vide alors on le referme pour passer au fichier suivant
'Si "A2" <> copier toutes les lignes à partir de "A2" pour les coller sur la feuille active du document contenant
'la macro (après la dernière ligne non vide) + déplacer le fichier dans un répertoire "Done" et passer au fichier suivant

        Fichier = Dir()
    Loop
End Sub

Merci ne serait-ce que pour avoir pris le temps de me lire

Farid

 

[FaridP]

Ca va toujours de la colonne "A" à la colonne "CC" aussi bien sur le document que "Source" que sur le document "Destination". Donc 81 colonnes à chaque fois.

 

[Roland_M]

re

de colonne A à la colonne CC ! ok je vais regarder à ça !
à tantôt !

 

[FaridP]

J'ai trouvé !
Bon aucun mérite tu avais tout fait mais il suffit simplement de changer cette ligne :

       Workbooks(Fichier).Sheets(1).Range("A2:A" & DernLig).Copy Destination:=ThisWorkbook.Sheets(1).Cells(NoDernLigEnCours, "A")

Par :

Workbooks(Fichier).Sheets(1).Range("A2:CC" & DernLig).Copy Destination:=ThisWorkbook.Sheets(1).Cells(NoDernLigEnCours, "A")

 

[Roland_M]

re

c'est exactement cela que j'allais te faire ! c'est parfait !
juste une petite question:
la dernière ligne est testée sur la base de la colonne A !
j'espère que c'est bien la dernière pour toute les lignes ?

 

[FaridP]

Vraiment Roland, je ne sais comment te remercier ! Sans toi, j'aurais probablement passé plusieurs jours dessus et par sûr que ça aboutisse.

Le mieux dans tout cela c'est que j'ai compris chaque ligne de ton code et c'est encore plus fort ! C'est bien écrit, commenté et, même pour un novice comme moi, super clair !

Tu es au TOOOOPPPPP !

 

[FaridP]

la dernière ligne est testée sur la base de la colonne A !
j'espère que c'est bien la dernière pour toute les lignes ?

Oui, oui, c'est bien la dernière à chaque fois, ça marche NI-CKEL !

 

[Roland_M]

re

je suis content pour toi !
mais as-tu vu mon message juste avant concernant la dernière ligne de données ?

 

[Roland_M]

re

OK !

bonne soirée à toi !

 

[FaridP]

Re Roland,

Oui, nos messages se sont croisés mais j'avais vu à ta question et y ai répondu.

Mille merciS !

Farid

 

[FaridP]

Excellente soirée à également !

Merci pour ta sympathie et pour cet excellent boulot. (A ce niveau là, je ne peux plus appeler là de l'aide, tu as tout fait)