XL 2016 (Resolu) Macro : Copier des colonnes les unes a cote des autres.

  • Initiateur de la discussion Initiateur de la discussion jtal
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

jtal

XLDnaute Nouveau
Bonjour a tous,

Je suis actuellement entrain de preparer une macro me permettant de copier les colonnes (A:C) de plusieurs (5) fichiers excel tous similaires mais avec des donnees differentes. Mon but avec cette macro est de coller ces les colonnes (A:C) de ces 5 fichiers excel dans un autre fichier source et les unes a cotes des autres, avec une colonne vide entre chacun des collages. Ca donnerait (A:C) du fichier #1 colle dans la cellule A10 du fichier source, (A:C) du fichier #2 colle dans la cellule E10 du fichier source et ainsi de suite...

Tout se deroule bien excepte la partie collage dans le 2eme fichier, ou je n'arrive pas a les coller les unes a cotes des autres. Quelle est la fonction me permettant de faire ce collage?

Voici mon code :

Sub Browser()
Set wk = ThisWorkbook

Worksheets("Sheet1").Range("A5:Z500").Delete

Range("A10").Select 'sélectionner la cellule de début
Path = "C:\Users\JTALBOT\Desktop\MACRO for E-reporting\" 'saisir le chemin complet du dossier où se trouvent les fichiers
File = Dir(Path & "*.xlsx") ' Premier fichier
Do While File <> ""
Workbooks.Open Filename:=Path & File
Worksheets("DB FCST").Select
Range("A5:C45").Copy
wk.Activate
ActiveSheet.Paste
Windows(File).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close savechanges:=False
wk.Activate
Range("D10").End(xlUp).Offset(1, 0).Select
Fichier = Dir ' Fichier suivant
Loop
End Sub

Je pense que le probleme se situe au niveau de la ligne en gras.

Merci d'avance pour votre aide.

Cordialement,
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour