Discussion :

[idhmida]

Bonjour,

J'ai un petit problème pour copier coller les données. Je voudrais copier les données de la feuille CSPL_page du classeur CSPL, les coller sur la première ligne vide de la feuille sous le nom "feuille" d'un autre classeur

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
18
19
20
 
Workbooks.Open ("..."\Sorties\sardi2.csv"), Local:=True
Set CSPL = Workbooks("sardi2.csv")
Set CSPL_page = CSPL.Worksheets("sardi2")
 
CSPL_page.Activate
NbLigne = Range("A" & Rows.Count).End(xlUp).Row
 
Set PlageCible = CSPL_page.Range(Cells(2, 1), Cells(NbLigne, 55))
PlageCible.Select
Selection.Copy
 
ActiveWorkbook.SaveCopyAs Filename:="..."\CSPL.xls"
ActiveWorkbook.Close
 
feuille.Activate
debut = Range("A" & Rows.Count).End(xlUp).Row + 1
'Range("C1") = debut
Range("A" & debut).Select
Selection.Paste

Le bug apparaît à la dernière ligne, sur le

Code :

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

Selection.Paste

le message d'erreur me met : Propriété ou méthode non gérée par cet objet. C'est quoi ce problème svp??

Merci d'avance
IDH

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim ActiveFeuille As Worksheet
Set ActiveFeuille = feuille
debut = ActiveFeuille.Range("A" & ActiveFeuille.Rows.Count).End(xlUp).Row + 1
Set CSPL = Workbooks.Open("...\Sorties\sardi2.csv", Local:=True)
NbLigne = CSPL.Worksheets("sardi2").Range("A" & Rows.Count).End(xlUp).Row
 
Set PlageCible = CSPL_page.Range(Cells(2, 1), Cells(NbLigne, 55))
PlageCible.Copy ActiveFeuille.Range("A" & debut)
 
CSPL.SaveCopyAs Filename:="...\CSPL.xls"

[idhmida]

Bonjour,

Je n'ai pas été assez claire dans mon message peutêtre....
Tout le code marche très bien, sauf pour la dernière ligne selection.paste

Sinon toute la parte au dessus marche sans aucun problème...


Help please.....

[idhmida]

J'ai réussi à résoudre mon problème,

Il a fallu faire le PASTE avant d'enregistrer et de fermer le classeur !

Merci de même