mid et date

[elfe]

bonjour,
voila dans ma colonne j'ai des dates à ce format 07/09/2004 je voudrais en extraire le moi et le récupérer dans une variable comment faire
merci beaucoup
j'ai déjà fait ça Mid(Cells(2, 10).Value, 4, 2) mais ça marche pas il récupère 0.

 

[_Thierry]

Bonjour l'Elfe, le Forum

Je ne sais pas ce que tu veux faire de ton mois, mais tu peux le récupérer facilement en VBA comme ceci :

Sub EtMoisEtMoisEtMois()
Dim Mois As Byte

If Not IsDate(ActiveCell) Then Exit Sub

    Mois = Format(ActiveCell, 'MM')
   
    MsgBox Format(Mois, '00')

End Sub

Bon Aprèm
[ol]@+Thierry[/ol]

 

[porcinet82]

salut a tous les 2,

je me permet une remarquea elfe, j'ai proposé cette ligne de code il ya 2 jours a crinquinette apres l'avoir testé et elle fonctionnait tres bien.

c'est vrai que la solution proposé par _Thierry est plus adapté, ce qui me permet d'apprendre encore quelque chose, donc merci _Thierry.

@+

 

[elfe]

merci de votre aide, mais je n'avais pas vu de message parlant de mois dans le forum, désolée.