Sauvegarde automatique dossier excel

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

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+

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)

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

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)

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

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)

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

a+

De rien,

Bon courage pour la suite

;o)