1. #1
    Membre à l'essai
    Profil pro
    Inscrit en
    juillet 2007
    Messages
    24
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juillet 2007
    Messages : 24
    Points : 15
    Points
    15

    Par défaut 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 : 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

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 064
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 064
    Points : 4 708
    Points
    4 708

    Par défaut

    CreateObject("WScript.Shell").SendKeys Replace(FormatDateTime(Date, vbLongDate),"û", Chr(251))
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA)
    Vous pouvez consulter mes contributions
    Consultez les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr ICI

  3. #3
    Membre à l'essai
    Profil pro
    Inscrit en
    juillet 2007
    Messages
    24
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juillet 2007
    Messages : 24
    Points : 15
    Points
    15

    Par défaut

    Citation Envoyé par l_autodidacte Voir le message
    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

  4. #4
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 064
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 064
    Points : 4 708
    Points
    4 708

    Par défaut

    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").
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA)
    Vous pouvez consulter mes contributions
    Consultez les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr ICI

  5. #5
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 064
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 064
    Points : 4 708
    Points
    4 708

    Par défaut

    Si le problème est résolu, pense à cliquer sur le bouton en bas de cette page
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA)
    Vous pouvez consulter mes contributions
    Consultez les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr ICI

  6. #6
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 461
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 461
    Points : 9 489
    Points
    9 489

    Par défaut

    @l_autodidacte
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  7. #7
    Membre à l'essai
    Profil pro
    Inscrit en
    juillet 2007
    Messages
    24
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juillet 2007
    Messages : 24
    Points : 15
    Points
    15

    Par défaut

    Citation Envoyé par l_autodidacte Voir le message
    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 !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Accent dans le mois / date
    Par fazpedro dans le forum PHP & MySQL
    Réponses: 3
    Dernier message: 30/05/2011, 21h41
  2. Encodage accent dans les dates
    Par Piett dans le forum Général Python
    Réponses: 10
    Dernier message: 01/07/2008, 12h31
  3. [FLASH MX2004] Problème accent dans un XML
    Par cinetryx dans le forum Flash
    Réponses: 10
    Dernier message: 30/05/2007, 00h26
  4. Réponses: 5
    Dernier message: 08/03/2004, 10h28
  5. Table Access et Accents dans TDBGrid
    Par puzpuz_vannes dans le forum Bases de données
    Réponses: 3
    Dernier message: 13/11/2003, 22h23

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo