Bonjour à toutes et à tous,
une question de bleu pour débuter la semaine :
comment envoyer le caractere ESPACE (pour cocher une case) à une appli avec
.SendKeys ?
J'ai essayé différents trucs mais surement pas le bon.
Merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Georges MAUREL
Bonjour, Voici un petit exemple qui pourra t'aider : Supposons que tu veuilles cocher une case sur une page html dont le code est le suivant : <html> <body> <INPUT type="checkbox" name="check1" value="check1"> </html> </body>
Alors ton vbs devra être : ' Creation du shell set ws = createobject("wscript.shell") ' appel à IE Set objIE = wscript.CreateObject("InternetExplorer.Application") ' On va sur la page créée objIE.Navigate "file://chemin_et_nom_du_fichier_html" ' On rend le navigateur visible objIE.Visible = True ' On attend qu'il soit visible While objIE.readystate <> 4 : Wend ' On donne le focus au navigateur ws.AppActivate "Internet Explorer" ' On envoie une tabulation pour se placer la case à cocher ws.SendKeys ("{TAB}") ' On envoie un espace ws.SendKeys (" ")
En espérant que cela t'aide.
Cordialement Georges
"Kanh" a écrit dans le message de news:
Bonjour à toutes et à tous, une question de bleu pour débuter la semaine : comment envoyer le caractere ESPACE (pour cocher une case) à une appli avec
.SendKeys ? J'ai essayé différents trucs mais surement pas le bon. Merci
Bonjour,
Voici un petit exemple qui pourra t'aider :
Supposons que tu veuilles cocher une case sur une page html dont le code est
le suivant :
<html>
<body>
<INPUT type="checkbox" name="check1" value="check1">
</html>
</body>
Alors ton vbs devra être :
' Creation du shell
set ws = createobject("wscript.shell")
' appel à IE
Set objIE = wscript.CreateObject("InternetExplorer.Application")
' On va sur la page créée
objIE.Navigate "file://chemin_et_nom_du_fichier_html"
' On rend le navigateur visible
objIE.Visible = True
' On attend qu'il soit visible
While objIE.readystate <> 4 : Wend
' On donne le focus au navigateur
ws.AppActivate "Internet Explorer"
' On envoie une tabulation pour se placer la case à cocher
ws.SendKeys ("{TAB}")
' On envoie un espace
ws.SendKeys (" ")
En espérant que cela t'aide.
Cordialement
Georges
"Kanh" <PoilAuNez-CourtMoiApresQueJeTAttrappe@hotmail.com> a écrit dans le
message de news:eKUP7gOiEHA.1040@TK2MSFTNGP09.phx.gbl...
Bonjour à toutes et à tous,
une question de bleu pour débuter la semaine :
comment envoyer le caractere ESPACE (pour cocher une case) à une appli
avec
.SendKeys ?
J'ai essayé différents trucs mais surement pas le bon.
Merci
Bonjour, Voici un petit exemple qui pourra t'aider : Supposons que tu veuilles cocher une case sur une page html dont le code est le suivant : <html> <body> <INPUT type="checkbox" name="check1" value="check1"> </html> </body>
Alors ton vbs devra être : ' Creation du shell set ws = createobject("wscript.shell") ' appel à IE Set objIE = wscript.CreateObject("InternetExplorer.Application") ' On va sur la page créée objIE.Navigate "file://chemin_et_nom_du_fichier_html" ' On rend le navigateur visible objIE.Visible = True ' On attend qu'il soit visible While objIE.readystate <> 4 : Wend ' On donne le focus au navigateur ws.AppActivate "Internet Explorer" ' On envoie une tabulation pour se placer la case à cocher ws.SendKeys ("{TAB}") ' On envoie un espace ws.SendKeys (" ")
En espérant que cela t'aide.
Cordialement Georges
"Kanh" a écrit dans le message de news:
Bonjour à toutes et à tous, une question de bleu pour débuter la semaine : comment envoyer le caractere ESPACE (pour cocher une case) à une appli avec
.SendKeys ? J'ai essayé différents trucs mais surement pas le bon. Merci
Kanh
Tout est dit, que du bonheur. J'avais chercher a faire compliquer alors que c'était tout simple ! Merci et bonne semaine
Tout est dit, que du bonheur.
J'avais chercher a faire compliquer alors que c'était tout simple !
Merci et bonne semaine
