Coller des données dans un classeur ouvert avec Shell

[albert]

Bonjour à tous et à toutes, forumiens, forumiennes,


J’ouvre un nouveau classeur.(module1) avec Shell ("C:\Program Files\Microsoft Office\Office\EXCEL.EXE")

Dans le classeur « recopier.xls », je copie les données de la colonne A

Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Je veux coller les données dans le nouveau classeur ouvert avec Shell ("C:\Program Files\Microsoft Office\Office\EXCEL.EXE")

Comment faire pour trouver ce nouveau classeur ?
Est-il nécessaire de l’enregistrer et de lui donner un nom ?
Si j’utilise ActiveWorkbook, ou Application, le nouveau classeur n’est pas sélectionné.

Merci d’avance

albert

 

[michel]

bonjour Albert

sans passer par la methode Shell ( et si cela est posible dans ton projet ) , tu peux aussi créer un nouveau classeur directement en utilisant :
Wb = Workbooks.Add


Sub copierDonneesDansNouveauClasseur()
Dim Wb As Workbook

Range("A1").Select
Range(Selection, Selection.End(xlDown)).Copy

'autre methode à tester pour copier la plage sans select
'Range("A1:A" & Range("A1").End(xlDown).Row).Copy

Set Wb = Workbooks.Add 'creation nouveau classeur
Wb.Sheets("Feuil1").Paste 'collage données

End Sub


bon apres midi
MichelXld

 

[albert]

merci michel,
çà marche à merveille

albert