Format de date

[Tana]

Bonjour,
Comme vous m'avez tous déjà bien aidé, je reviens pour un nouveau soucis!
Voilà, je veux nommer une feuille selon un nom qui est composé du contenu de la cellule A1, suivi du contenu de la cell A2, suivi du contenu de la cell A3.(formation automatique dans une macro)
Le hic qui m'énerve c'est que la cell A3 est une date au format jj/mm/aa et dans le nom que je génère, je perd ce format (j'ai par ex38398). Or, je veux conserver ce format jj/mm/aa. Le nec le plus ultra serait d'ailleurs de ne garder que le mois et l'année!
Comment je peux faire?
Merci

 

[Robert]

Bonjour Tana, bonjour le forum,

un code un peu long mais qui assure un classement alphabético-chronologique (je me comprends...) dans explorateur.

'dans cet exemple, les cellules prises en compte sont : A1, B1 et C1 (à adapter)
Dim nomfich As String
Dim mois As String
Dim an As String
If Month(Range('C1').Value) < 10 Then
mois = '0' & CStr(Month(Range('C1').Value))
Else
mois = CStr(Month(Range('C1').Value))
End If
an = CStr(Year(Range('C1').Value))
nomfich = Range('A1').Value & Range('b1').Value & mois & an

 

[Tana]

Merci de ta réponse robert j'ai d'abord pas tout saisi mais en remplacant nomfich j'ai pile le résultat que je voulais.
Par contre, j'ai voulu rajouter des tirets mais je les vois pas apparaitre?
J'ai écrit:
Feuil1.Name = Range('A1').Value & '' - '' & Range('b1').Value & '' - '' & mois & '' - '' & an
C'est pas ça?

Merci,

 

[Robert]

Bonjour Tana, le forum,

Tu y étais presque, y a juste des guillemets en trop :

Feuil1.Name = Range('A1').Value & ' - ' & Range('b1').Value & ' - ' & mois & ' - ' & an

 

[Tana]

OK merci pour tout robert,

Je voulais mettre '/' mais je viens de découvrir que ça bugue

Je reviendrai, tu es toujours de bon conseil,

A+