Sauvegarde auto sans confirmation
Résolu
surplus
Messages postés
673
Date d'inscription
Statut
Membre
Dernière intervention
-
surplus Messages postés 673 Date d'inscription Statut Membre Dernière intervention -
surplus Messages postés 673 Date d'inscription Statut Membre Dernière intervention -
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
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
-
Bonjour surplus et bon dimanche,
Application.DisplayAlerts = False
Ne pas oublier de le remette à true avant de sortir de la macro :-)-
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 -
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.
-
-
Bonjour Heliotte bon dimanche egalement
bon ben ça fonctionne tres bien
encore merci de ton aide
a bientôt -
Bonsoir surplus,
Et si tu supprimes Application.DisplayAlerts = False et Application.DisplayAlerts = True ..
..là ça marche ?
