Nom de feuille

Bonjour
ActiveWorkbook.SaveAs FileName:= _
"C:[chemin]" & "[NomFic]" & " du " & Evaluate("=TEXT(TODAY(),""DD MM
YYYY"")") & ".xls"
Bonsoir
Cordialement
Pierre


"Denys" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 007401c3b8ea$e2ee4530$a101280a@phx.gbl...
Bonjour à tous,

Est-il possible qu'à l'ouverture d'un "Workbook" que le
nom de la feuille soit celui de la date du jour?

Par le même fait, est-il possible de sauvegarder ce
fichier automatiquement au nom de la date du jour?

Merci beaucoup

Denys

Bonjour,

Dans le Visual Basic Editor sur ThisWorkBook :
à l'évènement Open :
ActiveSheet.Name=Format(Date,"dd-mm-yy")
à l'évènement BeforeSave
Activeworkbook.SaveAs filename=Format(Date,"dd-mm-yy")

Camille

-----Message d'origine-----
Bonjour à tous,

Est-il possible qu'à l'ouverture d'un "Workbook" que le
nom de la feuille soit celui de la date du jour?

Par le même fait, est-il possible de sauvegarder ce
fichier automatiquement au nom de la date du jour?

Merci beaucoup

Denys
.

Bonjour Pierre,

Pour faire le ménage de EVALUATE ;-)

ActiveWorkbook.SaveAs FileName:= _
"C:[chemin]" & "[NomFic]" & " du " & Format(Date,"DD MM YYYY") & ".xls"

Salutations,

Daniel M.

"Pierre" <pierreandre.bleton@free.fr> wrote in message
news:3fccb616$0$26815$636a55ce@news.free.fr...

Bonjour
ActiveWorkbook.SaveAs FileName:= _
"C:[chemin]" & "[NomFic]" & " du " & Evaluate("=TEXT(TODAY(),""DD MM
YYYY"")") & ".xls"
Bonsoir
Cordialement
Pierre


"Denys" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 007401c3b8ea$e2ee4530$a101280a@phx.gbl...
Bonjour à tous,

Est-il possible qu'à l'ouverture d'un "Workbook" que le
nom de la feuille soit celui de la date du jour?

Par le même fait, est-il possible de sauvegarder ce
fichier automatiquement au nom de la date du jour?

Merci beaucoup

Denys

Bonjour Camille,

Merci beaucoup pour ta réponse... Le premier fonctionne
très bien, mais le second sauvegarde sous le nom False...

Saurais-tu pourquoi??

Merci

Denys

-----Original Message-----
Bonjour,

Dans le Visual Basic Editor sur ThisWorkBook :
à l'évènement Open :
ActiveSheet.Name=Format(Date,"dd-mm-yy")
à l'évènement BeforeSave
Activeworkbook.SaveAs filename=Format(Date,"dd-mm-yy")

Camille

-----Message d'origine-----
Bonjour à tous,

Est-il possible qu'à l'ouverture d'un "Workbook" que le
nom de la feuille soit celui de la date du jour?

Par le même fait, est-il possible de sauvegarder ce
fichier automatiquement au nom de la date du jour?

Merci beaucoup

Denys
.

.

Salut Denys,

Merci beaucoup pour ta réponse... Le premier fonctionne
très bien, mais le second sauvegarde sous le nom False...

Saurais-tu pourquoi??

Il manque un deux points qui indique un argument.

Activeworkbook.SaveAs filename:=Format(Date,"dd-mm-yy")

Activeworkbook.SaveAs filename=Format(Date,"dd-mm-yy")

Salutations,

Daniel M.

Oserais-je ajouter qu'avec le chemin et l'extension, la
méthode est plus compréhensible :
With Activeworkbook
.SaveAs filename:=.Path & "" & Format(Date,"dd-mm-yy") & _
".xls"
End With

-----Message d'origine-----
Salut Denys,

Merci beaucoup pour ta réponse... Le premier fonctionne
très bien, mais le second sauvegarde sous le nom False...

Saurais-tu pourquoi??

Il manque un deux points qui indique un argument.

Activeworkbook.SaveAs filename:=Format(Date,"dd-mm-yy")

Activeworkbook.SaveAs filename=Format(Date,"dd-mm-yy")

Salutations,

Daniel M.


.

Moi je vote pour. :-)
Et même avec un nom commun qui précède la date comme telle (NomFic dans
l'exemple de Pierre).

Salutations,

Daniel M.

Oserais-je ajouter qu'avec le chemin et l'extension, la
méthode est plus compréhensible :

Tout-à-faitement d'accord avec toi !
Parce que sans nom de fichier, ça risque de devenir assez
vite incompréhensible !
:-)

-----Message d'origine-----
Moi je vote pour. :-)
Et même avec un nom commun qui précède la date comme
telle (NomFic dans

l'exemple de Pierre).

Salutations,

Daniel M.

Oserais-je ajouter qu'avec le chemin et l'extension, la
méthode est plus compréhensible :

.

Bonsoir Vincent,

En modifiant l'instruction

.SaveAs filename:=.Path & Application.PathSeparator & _
Format(Date,"dd-mm-yy") & ".xls"

ainsi, cela aura l'avantage de fonctionner aussi avec les versions
Mac d'Excel, car c'est le caratère ":" qui représente le séparateur
dans un chemin d'accès, sur Mac.

Si le séparateur est utilisé dans plusieurs instructions, on a
bien évidemment intérêt à définir une variable, éventuellement
publique qu'on initialise ainsi :

Sep = Application.PathSeparator

Oserais-je ajouter qu'avec le chemin et l'extension, la
méthode est plus compréhensible :
With Activeworkbook
.SaveAs filename:=.Path & "" & Format(Date,"dd-mm-yy") & _
".xls"
End With

-----Message d'origine-----
Salut Denys,

Merci beaucoup pour ta réponse... Le premier fonctionne
très bien, mais le second sauvegarde sous le nom False...

Saurais-tu pourquoi??

Il manque un deux points qui indique un argument.

Activeworkbook.SaveAs filename:=Format(Date,"dd-mm-yy")

Activeworkbook.SaveAs filename=Format(Date,"dd-mm-yy")

Salutations,

Daniel M.


.

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

Salut Daniel et Vincent,

Merci beaucoup... tout fonctionne à merveille...

Bonne journée

Denys

-----Original Message-----
Tout-à-faitement d'accord avec toi !
Parce que sans nom de fichier, ça risque de devenir assez
vite incompréhensible !
:-)

-----Message d'origine-----
Moi je vote pour. :-)
Et même avec un nom commun qui précède la date comme
telle (NomFic dans

l'exemple de Pierre).

Salutations,

Daniel M.

Oserais-je ajouter qu'avec le chemin et l'extension, la
méthode est plus compréhensible :

.

.