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

[alice81]

Merci pour ton aide, mais ça ne fonctionne toujours pas. maintenant j'ai un message d'erreur avec '1004 La méthode Select de la classe Range a échoué'
Tu pourrais m'éclairer?

merci

[sabzzz]

et comme ça,

Code :

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

1
2
3
4
5
6
7
Set plg1 = Selection
ChDir "C:\Nature\Offre_dpt\PR\Waypoint"
Workbooks.Open Filename:= _
"C:\Nature\Offre_dpt\PR\Waypoint\Fiche_veille_PR_Arcview.xls"
Sheets(1).Activate  'à adapter
Set plg2 = Range("A2:L2")
plg1.Copy plg2

[alice81]

Et non je n'y arrive pas, la phrase à adapter je ne la comprend pas,
par contre lorsqu'on dit de ranger la sélection en A2:L2 cela veut dire qu'il ne va prendre que la ligne 2, c'est ça? où ça veut dire qu'on colle à partir de cette ligne?
car ce que je voudrais c'est coller plusieurs lignes

[sabzzz]

c'était seulement pour reprendre ton exemple sur ta premiere question,
fait le test avec

Code :

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

Set plg2 = Range("A2")

tu pourras le faire ensuite avec

Code :

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

Set plg2 = Range("A2:L2")

tu verra alors la différence

[alice81]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
 
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
Set plg2 = Range("B2")
plg1.Copy plg2
 
End Sub

ça ne marche pas, j'ai toujours un message d'erreur 1004 et cette fois il me marque que c'est impossible de coller les informations car les zones copier et de collage sont de forme et de taille différentes
je m'excuse mais je débute

[sabzzz]

bonjour alice,

et ce que plg1 ou plg2 sont (ou ont) des cellules fusionnées ?

[alice81]

Non il n'y a pas de cellules fusionnées, sur aucun des 2

[sabzzz]

bonjour alice,

je ne voie pas d'autre solution , à part peut être faire un test avec deux nouveaux fichiers créer spécialement pour ce test