Conversion de type Texte/Date

Bonjour,

Dans une cellule, j'ai une valeur de "26.01" de format texte. Cette valeur correspond à une date en format jj.mm.

Dans ce cas, cela correspond au 26/01/2015.

Je souhaiterais via une macro connaitre le jour de la semaine (ex: lundi) correspondant à la valeur texte ci-dessus.

Actuellement je patines complètement sur la conversion du format texte en date.

Pouvez-vous m'aider svp?

Par avance merci.

Bonjjour,

Avec la date en A1 :

Code:

---

Jour = Format(CDate(Replace([A1], ".", "/") & "/" & 2015), "dddd")

---

Bonjour,

Tout d'abord, merci pour ta réponse qui fonctionne très bien.

Ensuite, y a-t-il un moyen de prendre l'année par rapport à la date du système plutôt que de la saisir?

Pourrais-tu m'expliquer le raisonnement détailler du code fournis?

Merci

Pour répondre à ta première question :

Code:

---

Jour = Format(CDate(Replace([A1], ".", "/") & "/" & Year(Date)), "dddd")

---

Code:

---

Replace([A1], ".", "/")

---

remplace le point par la barre de division : 26.01 devient 26/01. On ajoute une barre de division et l'année de la date du jour :

Code:

---

Replace([A1], ".", "/") & "/" & Year(Date)

---

devient 26/01/2015 eu format texte. Il faut le transformer au format date avec la fonction CDate :

Code:

---

CDate(Replace([A1], ".", "/") & "/" & Year(Date))

---

Enfin, la commande Format associée au paramètre "dddd" ("d" comme "day") affiche le jour entier ("ddd" afficherait le jour abrégé "lun").

Merci pour les explications.