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

job75 à dit:

Bon soir KTM,

Il faut préciser les extensions des 2 fichiers.

Pour transférer seulement les valeurs :

VB:

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+

Cliquez pour agrandir...