corvelc
XLDnaute Occasionnel
Bonjour,
J’essaye de mettre en place au travers de macros, une gestion des modifications faites dans un classeur au moment de la sortie d’Excel.
L’utilisateur a deux choix affichés par Msgbox :
- Soit pour une prise en compte par des administrateurs, sauvegarder automatiquement vers un répertoire spécifique le fichier modifié sous un nom précis avec la fermeture du classeur une fois cellui ci sauvegardé. (pour info ce répertoire est sur réseau)
- Soit sauvegarder son fichier où il veut mais l’informant qu'il n'y pas de prise en compte des administrateurs.
Tout ceci mis dans une seule macro « Mac_Test_depose » fonctionne bien.
Mais je souhaite activer ce processus lors de la sortie du classeur via le « ThisWorkbook » lors de l’option, « Fermer», «Enregistrer » ou « Enregistrer sous »
et là quand j'essaye de mettre en place en «Private Sub Workbook_BeforeSave» , cela se termine par un plantage d'Excel.
Lors de la mise en place dans « ThisWorkbook », Je pense avoir raté quelque chose pour sortir proprement, mais Quoi ?? Un peu d’aide à débugger serait bien venue.
Ci joint mon fichier de test
Merci d'avance pour l'aide apportée
CC
J’essaye de mettre en place au travers de macros, une gestion des modifications faites dans un classeur au moment de la sortie d’Excel.
L’utilisateur a deux choix affichés par Msgbox :
- Soit pour une prise en compte par des administrateurs, sauvegarder automatiquement vers un répertoire spécifique le fichier modifié sous un nom précis avec la fermeture du classeur une fois cellui ci sauvegardé. (pour info ce répertoire est sur réseau)
- Soit sauvegarder son fichier où il veut mais l’informant qu'il n'y pas de prise en compte des administrateurs.
Tout ceci mis dans une seule macro « Mac_Test_depose » fonctionne bien.
Mais je souhaite activer ce processus lors de la sortie du classeur via le « ThisWorkbook » lors de l’option, « Fermer», «Enregistrer » ou « Enregistrer sous »
et là quand j'essaye de mettre en place en «Private Sub Workbook_BeforeSave» , cela se termine par un plantage d'Excel.
Lors de la mise en place dans « ThisWorkbook », Je pense avoir raté quelque chose pour sortir proprement, mais Quoi ?? Un peu d’aide à débugger serait bien venue.
Ci joint mon fichier de test
Merci d'avance pour l'aide apportée
CC