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

  • Initiateur de la discussion Initiateur de la discussion KTM
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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.
 
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+
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
211
Réponses
17
Affichages
465
Retour