Discussion :

[alice81]

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

[casefayere]

Bonjour,
simplement en otant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A3:L3").Select

et il prendra la selection en cours

[alice81]

En fait je l'ai supprimé, mais j'ai un message d'erreur '424,objet requis'.
Mon classeur s'ouvre mais je n'ai pas mes lignes collées

Mon nvo code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click
 
 
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
 
    Active.Paste

Merci de m'avoir répondu si vite

[aalex_38]

Bonjour,

Une erreur de syntaxe ? :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Active.Paste

[alice81]

J'ai remplacé Active par Selection mais ça ne marche toujours pas.
Quelqu'un connait l'expression à noter?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
 
    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
 
     Selection.Paste

Merci

[sabzzz]

bonjour alice,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Range("A3:L3").Select
Set plg1 = Selection
 
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
Set plg2 = Selection
 
plg1.Copy plg2