Salut à tous,

J'ai un soucis dans un de mes codes , je mets dans une variable la date du jour et je veux récupérer séparément l'année et le mois , l'année se récupère parfaitement tandis que le mois non. Je demande de récupérer 2 caractères et il m'en récupère 4 même pas à la bonne position. Voici le code :

Dim Année_Du_Jour, Mois_Du_Jour, Date_Du_Jour As Variant

Date_Du_Jour = Date 'Reçoit la date du jour
Mois_Du_Jour = Mid(Date_Du_Jour, 4, 5) 'Reçoit le mois sur 2 caractères

Si je fais un msgbox du mois il me récupère 02/20 alors que je lui demande 2 caractères.
J'ai d'abord pensé au type des variables mais ce n'est pas le cas, ce n'est pas un problème non plus avec le siècle car la date du jour est récupérée sur 10 caractères.

Alors si quelqu'un à une soluce pour moi il est bienvenue , c'est assez pressé.

Mois_Du_Jour = Month(Date)
Année_Du_Jour = Year(Date)

@+

--------------------------------------------------------------------------------
Phantom_2005

Merci du tuyau , mais en fait j'aurais aimé savoir pourquoi ma méthode ne fonctionne pas même si ce n'est pas la plus simple.
En principe ca devrait fonctionne, je voudrais savoir pourquoi il récupère 4 caractères alors que je lui demande bien d'en récup 2.

Amicalement Marnilla

De plus je souhaite récupérer "02" et non "2"
Merci

Mois_Du_Jour = Mid(Date_Du_Jour, 4, 5)

tu ne récupère pas 2 mais 5 caractères à partir de la position 4

---

Si le cerveau était assez simple pour que nous puissions le comprendre,
nous serions assez bête pour ne pas le comprendre malgré tout.

en réalité il en récupère 5 (le / est un caractère)

quand tu fais Mois_Du_Jour = Mid(Date_Du_Jour, 4, 5),

il commence la découpe au 4ème caractère et ce sur 5 caractères.

Ex 15/ 02/20 05

Pour que ca fonctionne ca aurait pu être:
Mois_Du_Jour = Mid(Left(Date_Du_Jour,5), 4, 5)

Voila j'espère que je t'ai pas embrouillé

@+

--------------------------------------------------------------------------------
Phantom_2005

Pour récupérer 02 il y a aussi

Mois_Du_Jour = Format(Date,"mm")
Année_Du_Jour = Format(Date,"aaaa")

@+

--------------------------------------------------------------------------------
Phantom_2005

Moi j'aurais plutot dit Mois_Du_Jour = Mid(Date_Du_Jour, 4, 2)

---

Si le cerveau était assez simple pour que nous puissions le comprendre,
nous serions assez bête pour ne pas le comprendre malgré tout.

>>casy
C'est vrai le copier/coller m'a dérouté mais ca change pas grand chose!

--------------------------------------------------------------------------------
Phantom_2005

Réponse acceptée !

>>Marnilla
Petite erreur:
Année_Du_Jour = Format(Date,"yyyy")

--------------------------------------------------------------------------------
Phantom_2005