problème de convertion au niveau des dates

bonjour à tous, je suis très embétée par une convertion de date. j'essaie d'obtenir "juin-07" à partir du code suivant:

Code:

---

1 2 3 4 5

vlDate_Indic = Cells(9, ColonneTCDyn).Value Mois_1 = Mid(vlDate_Indic, 4, 2) Année = Right(vlDate_Indic, 2) MoisBis = Mois_1 & "-" & Année MoisBis = Format(MoisBis, "mmm-yy")

---

vlDate_Indic stocke bien "01/06/2007", Mois_1 "06", Année "07" et le premier MoisBis "06-07". Seulement après l'exécution de la dernière ligne j'obtiens "juil-09" et je ne vois vraiment pas pourquoi. Est ce quelqu'un pourrait me venir en aide s'i: vous plait? merci à vous et bonne journée.

c'est l'expression de ma dernière qui je pense est incorrecte. Je viens de refaire le test avec "y" à la place de MoisBis et la dernière expression ne donne aucun résultat.:cry:

Bonjour,
A mon avis, c'est à ce niveau qu'il faut regarder

Code:

---

MoisBis = Mois_1 & "-" & Année

---

C'est du texte

donnes un format date concret et après ok :

Code:

---

MoisBis = Format(MoisBis, "mmm-yy")

---

Bonne journée

slt, tu peux tenter ça

Code:

---

1 2 3 4

vlDate_Indic = Cells(9, ColonneTCDyn).Value nom_mois = MonthName(Mid(vlDate_Indic, 4, 2)) Année = Right(vlDate_Indic, 2) MoisBis = nom_mois & "-" & Année

---

bonjour,
de mon côté je tenterai ceci :

Code:

---

Format(CDate(Cells(9, ColonneTCDyn).Value),"mmm-yy")

---

merci à tous!