sauvegarde automatique fichier excel

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

P

Philippe Jean

Guest
bjr à tous,

pourriez-vous m'expliquer la manip pour automatiser la sauvegarde d'un fichier dès sa fermeture ?

Par avance merci
 
Salut Philippe et Papy (pas si vieux!!)

Oui comme tu dit Papy
mais vu que tu sembles connaître le code pour une fermeture SANS sauvegarde : "ActiveWorkbook.Close false"

Pour le fermer en le sauvant c'est simplement : "ActiveWorkbook.Close True"

Maintenant je pense, enfin j'ai cru comprendre que Philippe voulait systématiquement sauver le fichier à la fermeture...

Dans ce cas une macro évènementielle dans le private module de "ThisWorkbook" fera l'affaire ainsi :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Close True
End Sub

ou encore pour être disons "soucieux" de ce que le user en pense... :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Artung = MsgBox("voulez vous sauver ce fichier", vbYesNo)
If Artung = 6 Then
TOTO = True
Else
TOTO = False
End If
ThisWorkbook.Close TOTO
End Sub

Seul "Hic, le user devra répondre 2 fois (normal car la procédure "before_close" réagit pendant l'instruction "Close"

bonne nuit
@+Thierry

(PS : arf... si le classeur n'a pas encore été sauvé, la boite de dial "save as" s'ouvrira..."
















c'est le même pour
 
bjr

en plus court cela devrait marcher aussi
with thisworkbook
if MsgBox("voulez vous sauver ce fichier", vbYesNo) =vbyes then .close =true else .close false
end with

il existe des macros complémentaires pour la sauvegarde automatique.
 
- 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

Réponses
12
Affichages
663
Réponses
2
Affichages
366
Réponses
20
Affichages
311
Retour