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

A voir également:

Sauvegarde auto sans confirmation
Logiciel de sauvegarde - Guide
Confirmation de lecture whatsapp - Guide
Confirmation de lecture gmail - Guide
Sauvegarde google - Guide
Sauvegarde facile - Télécharger - Sauvegarde

3 réponses

Réponse 1 / 3

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 :-)

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

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
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.

Réponse 2 / 3

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

Réponse 3 / 3

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 ?

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

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ô

Discussions similaires

Code de confirmation facebook

Où se trouve les sauvegardes Steam ?

J'ai reçu un code de confirmation Facebook sans raison

Pokémon X et Y : comment effacer une partie ?

Discussions similaires

Newsletters