SendKeys, accent dans date

Bonjour,

Je ne suis pas développeur et ma question peut paraître simpliste.

J'utilise le code suivant pour écrire la date sous la forme "mardi 31 juillet 2018" :

Code:

---

1 2	CreateObject("WScript.Shell").SendKeys "" CreateObject("WScript.Shell").SendKeys FormatDateTime(Date, vbLongDate)

---

Cela fonctionne bien pour les mois sans accent.

Mais pour le mois d'août, le texte qui s'écrit est le suivant :
vendredi 3 aot 2018
Il manque le û.

Sauriez vous comment corriger le problème ?

Merci par avance pour toute aide.

Patrick

CreateObject("WScript.Shell").SendKeys Replace(FormatDateTime(Date, vbLongDate),"û", Chr(251))

Citation:

---

Envoyé par l_autodidacte

CreateObject("WScript.Shell").SendKeys Replace(FormatDateTime(Date, vbLongDate),"û", Chr(251))

---

Merci pour votre réponse.

Malheureusement, en modifiant le code comme indiqué, la date qui s'affiche reste du type suivant :
dimanche 5 aot 2018.
Il manque toujours le û.

Merci encore pour toute autre suggestion.

Patrick

Après plusieurs tests, j'ai constaté que la méthode SendKeys ne reconnait pas certains caractères dont û, ô, â .... ; donc tous les caractères portant un accent circonflexe car le signe caret "^" est l'un des caractères spéciaux pour cette méthode.
On va alors procéder autrement :
CreateObject("WScript.Shell").SendKeys Replace(FormatDateTime(Date, vbLongDate), Chr(251), "{^}u").

Si le problème est résolu, pense à cliquer sur le bouton :resolu: en bas de cette page

@l_autodidacte

:hola: :applo:

Citation:

---

Envoyé par l_autodidacte

Après plusieurs tests, j'ai constaté que la méthode SendKeys ne reconnait pas certains caractères dont û, ô, â .... ; donc tous les caractères portant un accent circonflexe car le signe caret "^" est l'un des caractères spéciaux pour cette méthode.
On va alors procéder autrement :
CreateObject("WScript.Shell").SendKeys Replace(FormatDateTime(Date, vbLongDate), Chr(251), "{^}u").

---

Merci beaucoup. Le code fonctionne parfaitement !