Copie de sauvegarde avec la date

Je voudrais mettre une macro dans mon perso.xls qui me permette de créer une copie de sauvegarde de mon fichier en ajoutant la date du jour à son nom.

Public Sub Saveascopy()
 Dim strDate As String
 Count = Len(ActiveWorkbook.Name)
 Name = Left(ActiveWorkbook.Name, Count - 4)
 strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
 ThisWorkbook.SaveCopyAs filename:=Name & strDate & ".xls"
 end sub

Auteur :

Mots clefs associés à cette page : , , ,

qui peux m aider??

Par pure634, le jeu 02/07/2009 - 21:12.

j ai 1 classeur "caisse"
premiere page "saisie"
deuxime page "4m"
trosieme page "5m"

je voudrais creer 1 nouveau classeur avec la page "4m"et la page "5m"et le sauvegarder dans 1 autre dossier avec la date dans le nom
quelle macro ?? merci de m aider

voir le forum MPFE

Par Misange, le ven 03/07/2009 - 07:34.

Bonjour

Votre question est sans rapport avec la page sur laquelle vous l'avez mise.  Il n'y a pas de forum web sur excelabo mais le "forum associé", dont viennent la quasi totalité des contributeurs, est le microsoft.public.excel.fr ou MPFE. Il est très actif, et toutes les infos pour s'y connecter sont sur cette page. Allez y ! Les questions comme la votre y sont les bienvenues. (NB pour votre question, l'enregistreur de macros est votre ami !)

Misange