Sauvegarde automatique dossier excel [Fermé]

Messages postés
70
Date d'inscription
lundi 19 septembre 2005
Statut
Membre
Dernière intervention
1 novembre 2016
- - Dernière réponse : Polux31
Messages postés
6941
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
- 18 août 2009 à 12:20
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
Afficher la suite 

9 réponses

Meilleure réponse
1
Merci
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

Dire « Merci » 1

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

CCM 60161 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
0
Merci
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
6941
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1078
0
Merci
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
0
Merci
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
6941
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1078
0
Merci
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
0
Merci
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
6941
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1078
0
Merci
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
0
Merci
il ne me reste qu'a te remercier pour ta gentillesse et ta disponiblité

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

Bon courage pour la suite

;o)