Sauvegarde auto sans confirmation

Résolu/Fermé
surplus
Messages postés
675
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
14 novembre 2021
- 13 janv. 2013 à 12:56
surplus
Messages postés
675
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
14 novembre 2021
- 13 janv. 2013 à 22:12
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

Heliotte
Messages postés
1491
Date d'inscription
vendredi 26 octobre 2012
Statut
Membre
Dernière intervention
28 janvier 2013
92
13 janv. 2013 à 13:04
Bonjour surplus et bon dimanche,

Application.DisplayAlerts = False

Ne pas oublier de le remette à true avant de sortir de la macro :-)
0
surplus
Messages postés
675
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
14 novembre 2021
4
13 janv. 2013 à 15:23
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
0
gbinforme
Messages postés
14935
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 622
13 janv. 2013 à 21:41
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.
0
surplus
Messages postés
675
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
14 novembre 2021
4
13 janv. 2013 à 13:15
Bonjour Heliotte bon dimanche egalement
bon ben ça fonctionne tres bien
encore merci de ton aide
a bientôt
0
Heliotte
Messages postés
1491
Date d'inscription
vendredi 26 octobre 2012
Statut
Membre
Dernière intervention
28 janvier 2013
92
Modifié par Heliotte le 13/01/2013 à 17:33
Bonsoir surplus,

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

..là ça marche ?
0
surplus
Messages postés
675
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
14 novembre 2021
4
13 janv. 2013 à 19:28
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
0
surplus
Messages postés
675
Date d'inscription
mardi 17 août 2010
Statut
Membre
Dernière intervention
14 novembre 2021
4
13 janv. 2013 à 22:12
bonsoir
merci gbinforme c'est ok ta formule est tres bonne comme toujours
merci heliotte aussi
a bientô
0