Copie de feuil2 fichier1 vers feuil 2 fichier 2

  • Initiateur de la discussion Initiateur de la discussion nad_6
  • 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 !

N

nad_6

Guest
Bonjour,

Je démarre à peine pour automatiser des actions sous excel et je ne m'en sors pas.
J'ai deux fichiers sur le réseau à des emplacements différents et je souhaite sauvegarder la feuil2 d'un fichier1 vers un fichier 2 feuille2.
Je souhaite que la copie se fasse à la fermeture du fichier 1 automatiquement.
Dois je faire une macro ?
Si oui j'ai besoin d'aide car je n'y connais rien en vb.

merci
 
Re : Copie de feuil2 fichier1 vers feuil 2 fichier 2

Bonsoir nad_6 et bienvenu sur XLD,

en ce qui me concerne, désolé pour le retard.

Voici la macro a inserer dans ThisWorkbook du classeur des données principales.


Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Wb, AWb As Workbook
Application.ScreenUpdating = False
    
'Modifier le chemin C:\Classeur2.xls ainsi que le nom des classeurs
    
Set AWb = ThisWorkbook 'C'est le Classeur de saisie

'Ouvre le Classeur2 ou Classeur de destination
Set Wb = Workbooks.Open("C:\Classeur2.xls")
    
'Transfert les données saisies du Classeur de saisie dans le Classeur2
AWb.Sheets(1).Range("a1:m65536").Copy Wb.Sheets(1).Range("a1")

'Enregistre le Classeur Actif
AWb.Save

'Referme le Classeur2 en sauvegardant les modifications
Wb.Close True
Application.ScreenUpdating = True

End Sub

A+ 😎
 
Dernière édition:
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

F
  • Question Question
Réponses
1
Affichages
1 K
P
Réponses
6
Affichages
2 K
Pat13127
P
Retour