Re : Copier/coller plage de donnée à la dernière ligne d'un autre classeur
Bonjour,
J'ai trouvé!!!
c'est la 1ère fois que je peux aider quelqu'un (ex Sybille), ça me fais plaisir de pouvoir retourner l'aide qui m'a été et m'aie encore donner!!!
Alors, j'ai du mettre ta macro dans un module et ne pas noter private sub, mais public sub.
Ensuite, j'ai ajouter ceci :
' initialisation du chemin du fichier
Dim Chemin As String, Fichier As String
Chemin = "C:\"
Fichier = "BaseDonnee.xlsm"
' Ouvrir le fichier d'export
Workbooks.Open Chemin & Fichier
' Activer la feuille de travail nommé "Feuil1"
Worksheets("Feuil1").Activate
'Choisir la 1ere cellule vide dans la colonne A
Range("A65536").End(xlUp).Offset(1).Select
' Copier la sélection
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
PS: j'ai ajouté ton fichier modifié en pièce jointe.
Bonne continuation.
AHB (Sybille)