sauvegarde automatique fichier excel

[Philippe Jean]

bjr à tous,

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

Par avance merci

 

[Cyber PAPY]

Bonsoir Philippe Jean

'
Si c'est dans une macro, tu mets à la fin de ton code

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Name

'et pour fermer le fichier

ActiveWorkbook.Close false


------------
Cyber PAPY

 

[@+Thierry]

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

 

[Philippe Jean]

Merci, je vais tester !

Philippe

 

[@+Thierry]

lol c'est le même pour........

un truc que j'avais commencé à taper !! et que j'ai changé en cours de route !!!
bye
@+Thierry

 

[A_Binouze_Drinker_Among_Others]

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.