Sauvegarde automatique dossier excel [Fermé]

Signaler
Messages postés
70
Date d'inscription
lundi 19 septembre 2005
Statut
Membre
Dernière intervention
1 novembre 2016
-
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
-
Bonjour,

J'aimerai sauvegarder automatiquement un classeur excel dans un dossier nommé " sauvegarde" lors de chaque ouverture de ce classeur.

Faut il faire cette commande en vba ou bien avec une macro simple?

merci de vos conseils

9 réponses

Bonjour,

Il faut faire cette macro en vba.

tu la nommes :
sub auto_open ()

ActiveWorkbook.SaveAs Filename:= "C:\Documents and Settings\klm32349\Desktop\WSPG Jeroen\sauvegarde\NOM_MACRO.xls"

end sub
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

Messages postés
70
Date d'inscription
lundi 19 septembre 2005
Statut
Membre
Dernière intervention
1 novembre 2016

merci pour ta réponse....

une petite précision........ dois je faire une macro sur une des pages de mon fichier?
quel est le contenu de ce que tu appelles NOM_MACRO.xls?
quelle est la signification de klm32349\Desktop\WSPG Jeroen?

a+
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 134
Bonjour,

Il faut ouvrir l'éditeur VB (Ctrl +F11). Ensuite double clique sur "ThisWorkbook" (pavé du haut à gauche). En haut tu cliques sur "(Général)" puis sur "Workbook", tu vas voir apparaitre ça:

Private Sub Workbook_Open()

End Sub


Copie/colle ça entre "Private Sub Workbook_Open()" et "End Sub" :

ThisWorkbook.SaveAs Filename:= "C:\monrepertoire\Sauvegarde.xls" 'Remplace "C:\monrepertoire" par le chemin du répertoire où tu veux faire ta sauvegarde.

Bon courage.

;o)
Messages postés
70
Date d'inscription
lundi 19 septembre 2005
Statut
Membre
Dernière intervention
1 novembre 2016

Ta solution marche parfaitement......

Pour developper ta solution, pourrais tu me dire comment faire pour que chaque nouvelle sauvegarde ai a son nom la date du jour ( genre fichier17/08/2009 )

merci d'avance
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 134
En faisant comme ça :

Private Sub Workbook_Open()

   Application.DisplayAlerts = False   'Désactive les alertes Excel

   ThisWorkbook.SaveAs Filename:= "C:\monrepertoire\Sauvegarde.xls" 'Remplace "C:\monrepertoire" par le chemin du répertoire où tu veux faire ta sauvegarde. 

   Application.DisplayAlerts = True    'Active les alertes Excel
   
End Sub


;o)
Messages postés
70
Date d'inscription
lundi 19 septembre 2005
Statut
Membre
Dernière intervention
1 novembre 2016

genial...... serai ce abuser de te demander si l'on peut ajouter au nom de fichier la date du jour?
genre fichier17/08/2009.xls
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 134
Non c'est pas abusé ^^

Private Sub Workbook_Open()
Dim mDate As String

    mDate = Date

    'les noms de fichier ne peuvent pas contenir de caractères spéciaux
    'On remplace le "/" par rien !!! ex 18/08/2009 devient 18082009
    mDate = Replace(mDate, "/", "")  

   Application.DisplayAlerts = False   'Désactive les alertes Excel

   ThisWorkbook.SaveAs Filename:= "C:\monrepertoire\Sauvegarde" & mDate & ".xls" 

   Application.DisplayAlerts = True    'Active les alertes Excel
   
End Sub


Voili voilou

;o)
Messages postés
70
Date d'inscription
lundi 19 septembre 2005
Statut
Membre
Dernière intervention
1 novembre 2016

il ne me reste qu'a te remercier pour ta gentillesse et ta disponiblité

a+
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 134
De rien,

Bon courage pour la suite

;o)