COVERTIR DATE EN MOIS EN VBA

[HIBERNATUCE]

bonsoir a tous
je cherche a convertire un nombre (1 a 12 ) en mois , en vba
z = Range('f2')
bubu = MsgBox('Voulez-vous vraiment archiver' & z, vbYesNo, 'Attention...')
f2 etant la cellule avec nombre de 1 a 12

hibernatube
a+ et merci

 

[hibernatuce]

pardon pour les majuscules

pardon pour les majuscules
hibernatuce

 

[Eric C]

Bonjour le forum
Bonjour Hibernatuce ou Hibernatube

Avec un tit Select Case ça roule

Sub enregistr()
Dim z As String

  Select Case Range('B2')
  Case 1
  z = 'janvier'
  Case 2
 z = 'février'
  Case 3
 z = 'mars'   'A poursuivre
  End Select


bubu = MsgBox('Voulez-vous vraiment archiver' & ' ' & z, vbYesNo, 'Attention...')

End Sub

 

[Brigitte]

Je m'incruste ici pour faire coucou à Eric...

Pardon Hibernatuce..


Le t'chat est mort, Eric, alors je le quitte... Quid de MSN ? J'ai un truc rigolo pour toi...

Bisous

 

[hibernatuce]

merci eric

impecable je suis content je vai pour continuer dans dans mon programme

merci et bravo pour ta signature
hibernatuce