Macro Copier coller à la suite

[jl456]

Bonjour,
J'ai 2 fichiers sources : "Fichier 1" et "Fichier 2"
Je voudrais coller dans le fichier "Synthèse" les colonnes A:B du fichier 1 puis à la suite les colonnes A:B du fichier 2.
Pouvez-vous m'aider en me proposant une macro pour le faire ?
Merci d'avance.

 

[CPk]

Re : Macro Copier coller à la suite

Bonjour jl456 en voici une pour commencer

Sub copier()
Dim chemin$, i%
chemin = ThisWorkbook.Path & "\"
For i = 1 To 2
Workbooks.Open chemin & "fichier " & i & ".xlsx"
ActiveWorkbook.Sheets(1).Range(Cells(2, 1), Cells.SpecialCells(xlCellTypeLastCell).Address).Copy ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(3).Offset(1, 0)
ActiveWorkbook.Close False
Next
End Sub

 

[jl456]

Re : Macro Copier coller à la suite

Bonsoir,

Merci pour votre aide.
Pouvez-vous modifier votre code en pointant précisément sur les noms des fichiers sources et le nom de la feuille de destination, s'il vous plait?
Cela va m'aider car j'ai simplifié mon problème, en effet mon fichier synthèse comporte plusieurs feuilles.
Merci d'avance.

 

[CPk]

Re : Macro Copier coller à la suite

Sub copier()
Dim chemin$, i%
chemin = ThisWorkbook.Path & "\"
For i = 1 To 2
Workbooks.Open chemin & "fichier " & i & ".xlsx"
ActiveWorkbook.Sheets("Source" & i).Range(Cells(2, 1), Cells.SpecialCells(xlCellTypeLastCell).Address).Copy ThisWorkbook.Sheets("Total").Cells(Rows.Count, 1).End(3).Offset(1, 0)
ActiveWorkbook.Close False
Next
End Sub

 

[jl456]

Re : Macro Copier coller à la suite

Merci beaucoup pour votre aide.