Discussion :

[Oh!Tofocus]

Je voudrais dans ma macro renommer une feuille avec la date du jour
mais le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sheets("feuil3").Name = Date

ne marche pas
surement à cause des / générés par la fonction date

Avez vous une solution ?
merci d'avance

[jfontaine]

c'est bien les / qui posent probleme

On peut les remplacer par des -

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Sheets("feuil3").Name = Replace(CStr(Date), "/", "-")

[flo_flo]

Bonjour

Oui ca ne marche pas à cause des " / "

Essaie avec ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub dateNomFeuille()
Dim dte As Date
Dim dte1 As String
dte = Now()
MsgBox dte
dte1 = Format(dte, "dd-MM-yy")
MsgBox dte1
Sheets("Feuil1").Name = dte1
End Sub

Edit : bon la soluce de jfontaine est mieux, la mienne fait juste intervenir le très pratique Format()

[casavba]

un autre format si ça t'intéresse:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub dateNomFeuille()
Dim dte As Date
Dim dte1 As String
dte = Now()
dte1 = Format(dte, "[$-40C]d mmmm yyyy;@")
Sheets("Feuil5").Name = dte1
End Sub

A+ n'oublie pas de mettre

[Oh!Tofocus]

Merci beaucoup pour vos reponses express

pour flo_flo OK ça marche

par contre :
( j'utilise EXEL97)
pour jfontaine message d'erreur "fonction non définie" !

pour casavba message d'erreur "argument ou appel de procedure incorrect"

[casavba]

Merci beaucoup pour vos reponses express

pour casavba message d'erreur "argument ou appel de procedure incorrect"

Surtout ne me dit pas que t'as pas changé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub dateNomFeuille()
Dim dte As Date
Dim dte1 As String
dte = Now()
dte1 = Format(dte, "[$-40C]d mmmm yyyy;@")
Sheets("Feuil5").Name = dte1
End Sub

Parce que si t'as pas une feuil5 dans ton classeur, Excel ne la trouve pas d'où le message d'erreur.

[Oh!Tofocus]

Surtout ne me dit pas que t'as pas changé.....

lol
C'est la fin de la journée mais je suis encore un peu clair
non le plantage se fait sur l'instruction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dte1 = Format(dte, "[$-40C]d mmmm yyyy;@")

au fait ! quel devrait être le résultat de ce format

[Oh!Tofocus]

Petite mise au point aprés un test sur un autre PC.

Les 3 methodes proposées marchent avec EXEL 2000
seule celle de flo_flo marche avec EXEL 97 ( 10 ans déjà !)

merci à jfontaine, flo_flo et casavba pour vos solutions.

[flo_flo]

seule celle de flo_flo marche avec EXEL 97 ( 10 ans déjà !)

N'en tires aucune conclusion quant à mon âge, c'est un pur hasard