Discussion :

[ade94]

Bonjour à tous,

Existe-t-il une fonction en VBA qui permet d'afficher le mois de la date d'aujourdhui sur 2 chiffres ?

C'est-à-dire que janvier serait 01, février serait 02, mars 03, etc.....
La fonction Month(Now() ) affiche 1 seul chiffre pr janvier, février jusqu'à octobre.

Merci de votre aide

[MasterSleepy]

Salut,

La commande format pourra d'aider.

Code :

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

Format(Month(Now()), "00")

A+,
MasterSleepy.

[ade94]

Merci ca a l'air de marcher.

J'ai une autre question à te poser. J'ai une chaine de caractère de type a\b\c\d. J'éclate cette chaine en plusieurs parties en me fondant sur le délimiteur "\". Ma question est : comment accéder à la dernière partie de la chaine éclatée (c-a-d pouvoir uniquement afficher "d") ?

Merci encore
ade94

[MasterSleepy]

Voici un example utilisant split pour découper la chaine de départ

Code :

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

1
2
3
4
5
6
7
Dim d As String
Dim b() As String
 
    d = "a\b\c\d"
    b = Split(d, "\")
 
    Debug.Print b(UBound(b))

A+,
MasterSleepy.

[ade94]

Merci bcp :d

[Baal Zebub]

Bonjour,

tu peux utiliser les fontions instrrev (pour te donner la position du dernier "\") et mid (pour extraire la partie de chaîne qui t'intéresse)

Code :

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

1
2
3
 
sChaine ="a\b\c\d" 
mid(sChaine,instrrev(sChaine,"\")+1,len(sChaine)-instrrev(sChaine,"\"))

[AlainTech]

Code :

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

Format(Month(Now()), "00")

Ce serait plutôt

Code :

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

Format(Date, "mm")