Bonjour,

je cherche à copier des lignes sélectionnées d'un classeur ouvert, vers un autre fermé.
J'ai pris un code pour copier une ligne d'un classeur à l'autre, mais je n'arrive pas à l'adapter pour plusieurs lignes.
Je souhaiterai en cliquant sur le bouton, copier les lignes sélectionnées.
Voici le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
 
'je comprends qu'il prend la ligne 3 à partir de la colonne A, mais comment marquer qu'il prenne les lignes sélec?
 
    Range("A3:L3").Select
    Selection.Copy
 
' ouverture du fichier du jour et recopie de la première ligne
 
 ChDir "C:\Nature\Offre_dpt\PR\Waypoint"
     Workbooks.Open Filename:= _
        "C:\Nature\Offre_dpt\PR\Waypoint\Fiche_veille_PR_Arcview.xls"
    Windows("Fiche_veille_PR_Arcview.xls").Activate
    Range("A2:L2").Select
    ActiveSheet.Paste
 
End Sub
Merci d'avance