Sauvegarde avec ajout date sur Macro

[hellocarioca]

Bonjour,

je voulais savoir si dans dans un macro on pouvait faire une sauvegarde en demandant à excel d'ajouter de lui-meme la date du jour de la sauvegarde automatiquement...
une sorte de fonction =now() inclu dans la macro sauvegarde pour que la date apparaisse ! du style: sauvegarde_8-11-2007.xls

Merci

maud 🙂

 

[Pierrot93]

Re : Sauvegarde avec ajout date sur Macro

Bonjour Maud

essaye peut être comme ceci :

ThisWorkbook.SaveAs "Sauv " & Format(Date, "dd-mm-yy") & ".xls"

bonne journée
@+

 

[hellocarioca]

Re : Sauvegarde avec ajout date sur Macro

bonjour Pierrot !

mais est ce que c moi qui doit rentrer la date par moi-meme??? parce que il faudrait que les utilisateurs puissent sauver leur fichier tous les jours avec à chaque fois une date differente sans que g besoin d'intervenir en changeant la macro...
je sais pas si ce que je dis parait très clair !?!?!?!

 

[Pierrot93]

Re : Sauvegarde avec ajout date sur Macro

Re Maud

non, dans le codee que je t'ai donné, "Date" est une fonction qui renvoie la date système, en principe la date du jour, donc pas de modification quotidienne.

@+

 

[hellocarioca]

Re : Sauvegarde avec ajout date sur Macro

Oui pardon je viens de tester.... ça marche c génial !!!

merci bcp !

bonne journée

Maud 😀

 

[hellocarioca]

Re : Sauvegarde avec ajout date sur Macro

Pardon désolée de t'embeter encore mais comment on fait pour spécifier l'endroit où on veut que le fichire soit sauver... parce que la il me l'a mis automatiquement dans mes documents...

Merci

maud

 

[joss56]

Re : Sauvegarde avec ajout date sur Macro

bonjour,

pardon de m'incruster...
ThisWorkbook.SaveAs "c:\Sauv " & Format(Date, "dd-mm-yy") & ".xls"
sauvegardera ton fichier sur c:
Tu peux spécifier un nom de répertoire

"c:\MonRep\NomDeFichier"

 

[matthieu33]

Re : Sauvegarde avec ajout date sur Macro

Bonjour Maud, Pierrot93 et le forum,

Dim strRepertoire as string
strRepertoire = "C:\Documents and Settings\Toto\Mes documents\"
ThisWorkbook.SaveAs strRepertoire & "Sauv " & Format(Date, "dd-mm-yy") & ".xls"

Le fichier sera sauvegardé dans le répertoire que tu veux.
Tu peux mettre ce que tu veux dans la variable strRepertoire.

@+

oups : bonjour joss56

 

[hellocarioca]

Re : Sauvegarde avec ajout date sur Macro

Merci pour l'incruste et les réponses... encore une fois j'apprécie bcp votre aide !!!

C parfait ! 😀

Maud

 

[Pierrot93]

Re : Sauvegarde avec ajout date sur Macro

Re Maud

regarde le code ci dessous, chemin à adapter :

ThisWorkbook.SaveAs "C:\DOSSIERS\Excel\Test\Sauvxxx " & Format(Date, "dd-mm-yy") & ".xls"

bon après midi
@+

Edition, bonjour Joss, Mathieu, vous êtes trop rapide...

 

[joss56]

Re : Sauvegarde avec ajout date sur Macro

salut matthieu
pas grave, mieux vaut trop d'infos que pas assez....
bonne journée

 

[hellocarioca]

Re : Sauvegarde avec ajout date sur Macro

Merci à tous les deux... ça marche !

bonne journée

biz

Maud