VBA copie plage plusieurs fichiers vers un autre

[legenie]

Bonjour à tous,

J'ai bien chercher dans le forum, je suis nouveau en VBA, mais j'ai pas trouver des codes qui collent à mon cas.

En fait, j'ai 3 fichiers (esclaves) et un maître.

Je voudrai en fait qu'à partir de la ligne 10 de chacun des fichiers esclaves, tout le contenu (plage A10: AC...) soit copié jusqu'à dernière ligne n'est pas vide.

Le contenu est coller les unes à la suite des autres dans le fichier maître (Groupe.xls) à partir de la celulle B2. Et en A2 on répètera le nom de du fichier esclave qui se trouve dans la celle B2 de ce dernier.

Pour plus de clarté je vous joinds le dossier avec 3 fichiers esclaves (vert, jaune, rouge) et un fichier maître (groupe).

j'ai déjà fait le code qui parcours les fichiers...reste que le copie coller :

Sub Colle_Moi()

Application.ScreenUpdating = False
Chemin = ThisWorkbook.Path
Fich = Dir(Chemin & "\Fichiers\*.xls")
Set ws = ThisWorkbook

Do While Fich <> ""
      Workbooks.Open (Chemin & "\Fichiers\" & Fich)
      With ActiveWorkbook.Sheets("Groupe")



  [COLOR="red"] "COEUR DU CODE"[/COLOR]




    ActiveWorkbook.Close True
    Fich = Dir
    End With
Loop
Application.ScreenUpdating = True
End Sub

 

[bbb38]

Re : VBA copie plage plusieurs fichiers vers un autre

Bonjour legenie, le forum,
Petite précision : le fichier maître est-il dans le même répertoire que les fichiers esclaves (à savoir les 4 fichiers dans le répertoire Fichiers – chemin : C:\Fichiers) ?
Cordialement,
Bernard

 

[legenie]

Re : VBA copie plage plusieurs fichiers vers un autre

Boujour bbb38,

Le fichier maître est hors du répertoire et la macro que j'ai déja lui permet d'aller chercher les fichiers contenus dans le repertoire "Fichier". Le lien n'est pas absolu mais relatif. cela permet de déplacer ton dossier dans n'importe quel environnemen :

Chemin = ThisWorkbook.Path
Fich = Dir(Chemin & "\Fichiers\*.xls")
Set ws = ThisWorkbook

Do While Fich <> ""
      Workbooks.Open (Chemin & "\Fichiers\" & Fich)
      With ActiveWorkbook.Sheets("Groupe")

Merci 😀

 

[legenie]

Re : VBA copie plage plusieurs fichiers vers un autre

Oups! dans le code veuillez changer "FORECAST 2012" par "Groupe" qui est le nom de la feuille du fichier maître du même nom, dans le code VBA (module 1)

Thank you !

 

[legenie]

Re : VBA copie plage plusieurs fichiers vers un autre

Please help me! No one....?

 

[bbb38]

Re : VBA copie plage plusieurs fichiers vers un autre

Bonjour legenie, le forum,
Pour tester : copier le fichier « Groupe » dans un répertoire (C:\) et les fichiers esclaves dans un sous-répertoire intitulé « Fichiers » (C:\Fichiers).
J’espère que tu pourras extraire de cet exemple les lignes pour le cœur de ton code (le code source est de Monsieur Jacques Boisgontier).
Si je ne suis pas trop pris par mes activités caritatives, j’essaierai de modifier la macro.
Cordialement,
Bernard

 

[legenie]

Re : VBA copie plage plusieurs fichiers vers un autre

Excellent! Merci infiniment.

Effectivement il reste la modification permettant de repeter la couleur concernée sur chaque ligne...

Merci bbb38

 

[legenie]

Re : VBA copie plage plusieurs fichiers vers un autre

Quelq'un pourrait m'aider pour répéter le titre (de la couleur) sur toutes ligne concernée par cette couleur ?

Merci

 

[legenie]

Re : VBA copie plage plusieurs fichiers vers un autre

Some help please...voici le dossier avec le jet de code apporté par bbb.

Merci à vous

 

[bbb38]

Re : VBA copie plage plusieurs fichiers vers un autre

Bonjour legenie, le forum,
Macro modifiée. A tester. Remarque : la structure des fichiers ne doit pas être modifiée. Dans le cas contraire, corriger les instructions de la macro.
Cordialement,
Bernard

 

[legenie]

Re : VBA copie plage plusieurs fichiers vers un autre

Alleluyah !!!!

Ce forum est wonderful !!!

Akéwa* Bernard !

(Akéwa = Merci dans une langue du Gabon)😎