Sauvegarde automatique dossier excel
kumpb
Messages postés
78
Statut
Membre
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
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
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
A voir également:
- Sauvegarde automatique dossier excel
- Logiciel de sauvegarde automatique gratuit - Guide
- Dossier appdata - Guide
- Liste déroulante excel - Guide
- Réponse automatique thunderbird - Guide
- Word et excel gratuit - Guide
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
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
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+
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+
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:
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)
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)
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
En faisant comme ça :
;o)
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)
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
genre fichier17/08/2009.xls
Non c'est pas abusé ^^
Voili voilou
;o)
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)
