Discussion :

[patrmich]

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 :

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

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

[l_autodidacte]

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

[patrmich]

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

[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").

[l_autodidacte]

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

[ProgElecT]

@l_autodidacte

[patrmich]

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 !