Macro : Copier des colonnes les unes a cote des autres

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,

Bonjour,

Avez vous Excel 2016?, si oui penser a power query !

Cordialement,

Bonjour Massari,

Je me suis trompe de version puisque j'utilise a vrai dire Excel 2013, donc pas de Power Query, helas...