Recopier plusieurs colonnes dans un même tableau
Bonjour,
je viens une nouvelle fois faire appel à votre aide.
Voilà je souhaite recopie certaines colonnes de plusieurs fichiers les unes derrière les autres.
Je sais très bien le faire pour les lignes à c/partir de ce code:
Sub SyntheseGSA()
' Parcours de tous les fichiers
' -----------------------------
ChDir "C:\Users\D81649\Documents\GSA"
ClasseurRegional = Dir("C:\Users\D81649\Documents\GSA\*.xls")
While Len(ClasseurRegional) > 0
Workbooks.Open ClasseurRegional
' Copie des données :
Range("A13:AZ" & ActiveSheet.UsedRange.Rows.Count).Copy
Workbooks("Gmaor.xlsm").Activate
Range("A" & ActiveSheet.UsedRange.Rows.Count + 1).Select
Workbooks("Gmaor.xlsm").Sheets("Feuil1").Paste
Application.CutCopyMode = False
' Fermeture de fichier :
Workbooks(ClasseurRegional).Close
ClasseurRegional = Dir
Wend
End SubLes données commencent toujours à la 13ème ligne.
Les données se trouve dans les colonnes coloriées.
Je joint 2 fichiers sources 1 et 2 et le fichier destination "Cycle"
J’espère avoir été clair...
Bonjour
Je suis désolé mais je ne vois pas où doivent être collées dans le fichier ''Cycle'' les colonnes vertes des fichiers Sources 1 et Source 2 .
Bye !
Bonjour,
après relecture c'est pas très clair
Alors dans les fichiers "Sources":
_les données commencent à la ligne 13 systématiquement.
_ "Source" colonne A vers "Cycle" colonne A
_ "Source" colonne C vers "Cycle" colonne B
_ "Source" colonne E vers "Cycle" colonne C
_ "Source" colonne F vers "Cycle" colonne D
_ "Source" colonne L vers "Cycle" colonne E
_ "Source" colonne M vers "Cycle" colonne F
_ "Source" colonne N vers "Cycle" colonne G
_ "Source" colonne O vers "Cycle" colonne H
_ "Source" colonne P vers "Cycle" colonne I
_ "Source" colonne Y vers "Cycle" colonne J
Le nombre de données à copier est donné par la colonne A de chaque fichier "Source"
J’espère avoir été plus clair.
Je met le fichier Cyble avec le résultat souhaité et un fichier source1 modifié.
A te lire.
Un essai à tester.
Tous les fichiers doivent être dans le même dossier.
Cela te convient-il ?
Bye !
Merci gmb pour ce super travail.
Peut être aurais je une modification à faire qu'en je l'aurais mis en oeuvre.
Bien cordialement