Bonjour,
Je souhaiterai regrouper plusieurs tableau Excel de différents fichier mais de constitutions identique (Nombre de colonne fixe, seul les lignes varient), dans un autre fichier (les un à la suite des autres).
J'ai réalisé une macro mais je bug sur le collage, erreur 1004 taille de destinations, comment fait-on pour coller un tableau ?
Merci.
Code :
Merci
Je souhaiterai regrouper plusieurs tableau Excel de différents fichier mais de constitutions identique (Nombre de colonne fixe, seul les lignes varient), dans un autre fichier (les un à la suite des autres).
J'ai réalisé une macro mais je bug sur le collage, erreur 1004 taille de destinations, comment fait-on pour coller un tableau ?
Merci.
Code :
Code:
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i, k As Integer
Dim xls As New Excel.Application
Dim FeuilleSource As Excel.Worksheet, FeuilleCible As Excel.Worksheet
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.getfolder(ThisWorkbook.Path)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
If File.Name <> "MasterPA.xlsm" And File.Name <> "~$MasterPA.xlsm" Then
Set FeuilleSource = xls.Workbooks.Open(File.Path).Worksheets("PA")
Set FeuilleCible = ActiveWorkbook.Worksheets("Actions PA")
With FeuilleSource
Range("A9").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
End With
With FeuilleCible
Lg = Sheets("Actions PA").Cells(65536, 2).End(xlUp).Row + 1
.Range("B" & Lg).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False ', Transpose:=False
End With
Merci
Dernière édition: