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

KTM

XLDnaute Impliqué
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

XLDnaute Barbatruc
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+
 

KTM

XLDnaute Impliqué
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+
Merci Job75
 

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 782
Membres
101 817
dernier inscrit
carvajal