Sauvegarde auto sans confirmation [Résolu/Fermé]

Signaler
Messages postés
640
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
28 juillet 2019
-
Messages postés
640
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
28 juillet 2019
-
Bonjour,
j'ai trouvé cette macro qui sauvegarde automatiquement un fichier dans un dossier autre que la source de l'original qui fonctionne tres bien
Private Sub Workbook_BeforeClose
ActiveWorkbook.SaveAs Filename:= _
"D:\Documents and Settings\willy\Mes documents\essai.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=True
End Sub
le probleme c'est que ça demande l'autorisation pour ecraser le precedent
y a t il moyen de contourner cette autorisation?
merci de votre aide
a bientôt

3 réponses

Messages postés
1491
Date d'inscription
vendredi 26 octobre 2012
Statut
Membre
Dernière intervention
28 janvier 2013
86
Bonjour surplus et bon dimanche,

Application.DisplayAlerts = False

Ne pas oublier de le remette à true avant de sortir de la macro :-)
Messages postés
640
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
28 juillet 2019
4
Re bonjour
en fait ma sauvegarde ne fonctionne pas le fichier est present mais impossible a ouvrir
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"C:\WINDOWS\sauv_fich\sauve.xlsm", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=True
Application.DisplayAlerts = True
End Sub
une idée ?
a bientot
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 414
Re bonjour,

Ta fonction qui fonctionne et permet de reprendre le classeur sauvé :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:= _
        "C:\WINDOWS\sauv_fich\sauve.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
    Application.DisplayAlerts = True
End Sub

Il faut mettre le format qui correspond à xlsm et ne pas faire de backup qui pose un souci à l'ouverture.
Messages postés
640
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
28 juillet 2019
4
Bonjour Heliotte bon dimanche egalement
bon ben ça fonctionne tres bien
encore merci de ton aide
a bientôt
Messages postés
1491
Date d'inscription
vendredi 26 octobre 2012
Statut
Membre
Dernière intervention
28 janvier 2013
86
Bonsoir surplus,

Et si tu supprimes Application.DisplayAlerts = False et Application.DisplayAlerts = True ..

..là ça marche ?
Messages postés
640
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
28 juillet 2019
4
bonsoir Heliotte
non meme en enlevant Application.DisplayAlerts = False et Application.DisplayAlerts = True ..
ca marche pas je pense que c'est un fichier .BAK
en le renommant j'arrive a l'ouvrir mais rien d'exploitable
a bientot
Messages postés
640
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
28 juillet 2019
4
bonsoir
merci gbinforme c'est ok ta formule est tres bonne comme toujours
merci heliotte aussi
a bientô