Excel / vba : coller selection dans une cellule précise

[ketamacanna]

Bonsoir,

J'ai codé quelque chose, mais il me manque une ligne de code pour coller ma sélection dans mon classeur.

C'est à la fin

Code: Tout sélectionner

Sub automatisation()

Dim wb1 As Workbook, wb2 As Workbook
Dim ws1 As Worksheet, ws2 As Worksheet

Set wb1 = Workbooks.Open("Macintosh HD:Users:ketama:Desktop:rng.xls")
Set ws1 = wb1.Worksheets(1)

Range("A1:C7").Select
Selection.Copy
   
Set wb2 = Workbooks.Open("Macintosh HD:Users:ketama:Desktop:exemple.xls")
Set ws2 = wb2.Worksheets(1)

' COMMENT FAIRE POUR SE PLACER DANS UNE CELLULE ET COLLER LA SELECTION ?? MERCI
ActiveSheet.Paste

End Sub

c'est la fin du code qui me pose problème, je ne sais pas comment faire pour coller ma sélection dans la cellule a1 du classeur exemple

merci pour votre aide

[Fabrice69]

Bonjour à tous, forum,

ketamacanna, je ne suis pas un pro du VBA mais il me semble qu'en rajoutant la ligne :

Code: Tout sélectionner

Range("A1").Select

juste avant ta ligne de code "ActiveSheet.Paste" cela devrait fonctionner.

A te relire.

Fabrice,

[ketamacanna]

Merci pour ta réponse.
Cependant, je souhaite choisir le classeur dans lequel je vais insérer ma sélection en A1.
J'ai trouvé la solution après une nuit de sommeil
Suffisait juste que je rentre le code suivant à la fin :

Code: Tout sélectionner

ws2.Range("A10").Select
ActiveSheet.Paste


avec ws2 qui tient déjà compte du classeur que je veux sélectionner
merci quand même pour ton aide