Sauvegarde auto sans confirmation
Résolu
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 -
ContributeurRe 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 ?
