Copier des cellules avec une macro

[philoux34]

Bonjour
Je souhaite récupérer le contenu de cellule sur une feuille excel dans un autre fichier excel.
Actuellment j'ai réussi avec un peu d'aide a créer une macro qui
va ouvrir les fichiers se trouvant sur un répertoire x, et copie les cellule de la feuille Y de tous ces fichiers .
Jusqu'a présent cela fonctionne bien mais mon document a évolué et j'ai des cellules supplémentaires a copier . hors la copie fonctionne mais les cellulles supplémentaires (situé sur la meme ligne ) ne sont pas copiées.
pour faire simple il me copie les cellules de mafeuilley qui se trouve en A5:G7 mais pas jusqu'en A5:L7


Voici le code je seche sur le parametre a corriger pour que cela fonctionne
Merci par avance de votre aide.
********************************
Sub Copie(FL1 As Worksheet, Fichier)
Dim CL2 As Workbook
Dim FL2 As Worksheet
Dim i As Byte, Rep$, NoLigne As Long

Set CL2 = Workbooks.Open(Fichier)

Set FL2 = Worksheets("mafeuilley")

'Dernière ligne où coller les données copiées dans FL2
NoLigne = FL1.Range("b5:e12").SpecialCells(xlCellTypeLastCell).Row + 1

'Copie de la plage renseignée de chaque feuille du classeur
FL2.Range(FL2.Cells(1, 1), _
FL2.Cells(FL2.Cells(Columns(1).Cells.Count, 1).End(xlUp).Row, _
FL2.Cells(Columns(1).Cells.Count, 1).End(xlUp).Row)).Copy _
FL1.Range("A" & NoLigne)
DoEvents
Set FL2 = Nothing
CL2.Close False 'fermeture du classeur copié
DoEvents
Set CL2 = Nothing
End Sub

 

[mercant76]

Re : Copier des cellules avec une macro

bonjour,

le plus simple, tu joins une copie édulcorée de ton fichier.

@+