XL 2016 Transférer des données d'un classeur actif sur un second classeur

[KTM]

Bonsoir chers tous
Depuis mon classeur actif "X" je voudrais copier les données de A1:G20 de la feuille "a" vers A1:G20 de la feuille "h" de mon second classeur "Y".
Mais bien avant je dois vérifier que la feuille "h" du classeur "Y" existe.
Merci et bonne soirée.

 

[job75]

Bon soir KTM,

Il faut préciser les extensions des 2 fichiers.

Pour transférer seulement les valeurs :

Sub Transfert()
On Error Resume Next
Workbooks("Y.xlsx").Sheets("h").[A1:G20] = Workbooks("X.xlsx").Sheets("a").[A1:G20].Value 'à adapter
If Err Then MsgBox "Au moins un des fichiers n'est pas ouvert ou au moins une des feuilles n'existe pas !", 48
End Sub

A+

 

[KTM]

Bon soir KTM,

Il faut préciser les extensions des 2 fichiers.

Pour transférer seulement les valeurs :

Sub Transfert()
On Error Resume Next
Workbooks("Y.xlsx").Sheets("h").[A1:G20] = Workbooks("X.xlsx").Sheets("a").[A1:G20].Value 'à adapter
If Err Then MsgBox "Au moins un des fichiers n'est pas ouvert ou au moins une des feuilles n'existe pas !", 48
End Sub

A+

Merci Job75