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

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

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

Bonjour à tous, forum,

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

Range("A1").Select

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

A te relire.

Fabrice,

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 :

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