Envoie une ou plusieurs séquences de frappes à la fenêtre active (comme si elles avaient été tapées au clavier).
[ object].SendKeys([ string])
Arguments
* object : Objet WshShell.
* string : <DD>Valeur de chaîne indiquant la ou les séquences de frappes que vous voulez envoyer.
Notes
Utilisez la méthode SendKeys pour envoyer des séquences de frappes aux applications qui ne disposent pas d'une interface automatique. La plupart des caractères du clavier sont représentés par une seule séquence de frappe. Certains de ces caractères sont constitués d'une combinaison de frappes (CTRL+MAJ+ORIGINE, par exemple). Pour envoyer un seul caractère de clavier, envoyez le caractère lui-même comme argument chaîne. Par exemple, pour envoyer la lettre x, envoyez l'argument chaîne "x".
Remarque Pour envoyer un espace, envoyez la chaîne " ".
Vous pouvez utiliser SendKeys pour envoyer plusieurs frappes en même temps. Pour cela, créez un argument de chaîne composé qui représente une séquence de frappes, en ajoutant chaque frappe de la séquence à celle qui la précède. Par exemple, pour envoyer les frappes a, b et c, envoyez l'argument chaîne "abc". La méthode SendKeys se sert de certains caractères comme modificateurs de caractères (au lieu d'utiliser leurs valeurs-police). Ce jeu de caractères spéciaux comprend des parenthèses, des crochets, des accolades et le :
<LI>signe plus "+"
<LI>signe caret "^"
<LI>signe pourcentage "%"
<LI>signe tilde "~" </LI>
Envoyez ces caractères en les mettant entre accolades "{}". Par exemple, pour envoyer le signe plus, envoyez l'argument chaîne "{+}". Les crochets "[ ]" n'ont pas de signification particulière lorsqu'ils sont utilisés avec SendKeys, mais vous devez les mettre entre accolades pour les applications qui leur donnent un sens particulier (pour DDE, par exemple).
<LI>Pour envoyer des crochets, envoyez l'argument chaîne "{[}" pour le crochet gauche et l'argument "{]}" pour le droit.
<LI>Pour envoyer des accolades, envoyez l'argument "{{}" pour l'accolade gauche et "{}}" pour la droite. </LI>
Certaines séquences de frappe ne génèrent pas de caractères (comme ENTRÉE et TAB). Certaines séquences de frappes représentent des actions (comme RET. ARR. et PAUSE). Pour envoyer des séquences de frappes de ce genre, envoyez les arguments indiqués dans le tableau suivant :
Touche |
Argument |
----
RET. ARR.,
{BACKSPACE}, {BS}, or {BKSP},
----
PAUSE,
{BREAK},
----
VERROUILLAGE MAJUSCULE,
{CAPSLOCK},
----
SUPPR,
{DELETE} or {DEL},
----
FLÈCHE VERS LE BAS,
{DOWN},
----
FIN,
{END},
----
ENTRÉE,
{ENTER} or ~,
----
ÉCHAP,
{ESC},
----
AIDE,
{HELP},
----
ORIGINE,
{HOME},
----
INSÈR,
{INSERT} ou {INS},
----
FLÈCHE GAUCHE,
{LEFT},
----
VERR NUM,
{NUMLOCK},
----
PAGE BAS,
{PGDN},
----
PAGE HAUT,
{PGUP},
----
IMPR ÉCRAN,
{PRTSC},
----
FLÈCHE DROITE,
{RIGHT},
----
ARRÊT DÉFIL,
{SCROLLLOCK},
----
TAB,
{TAB},
----
FLÈCHE HAUT,
{UP},
----
F1,
{F1},
----
F2,
{F2},
----
F3,
{F3},
----
F4,
{F4},
----
F5,
{F5},
----
F6,
{F6},
----
F7,
{F7},
----
F8,
{F8},
----
F9,
{F9},
----
F10,
{F10},
----
F11,
{F11},
----
F12,
{F12},
----
F13,
{F13},
----
F14,
{F14},
----
F15,
{F15},
----
F16,
{F16}
Pour envoyer des caractères du clavier comprenant une séquence de frappes classique combinée avec MAJ, CTRL ou ALT, créez un argument de chaîne composé représentant la combinaison de frappes. Pour cela, faites précéder la séquence classique par un ou plusieurs des caractères spéciaux suivants :
Touche |
Caractère spécial |
----
MAJ,
+,
----
CTRL,
^,
----
ALT,
%
Remarque : Lorsqu'ils sont utilisés de cette façon, ces caractères spéciaux ne sont pas compris entre accolades.
Pour spécifier qu'une combinaison de MAJ, CTRL et ALT doit être enfoncée pendant que l'on appuie sur d'autres touches, créez un argument chaîne composé avec les frappes modifiées entre parenthèses. Par exemple, pour envoyer la combinaison de frappes indiquant que la touche MAJ est enfoncée tout en appuyant sur :
<LI>e et c, envoyez l'argument chaîne "+(ec)".
<LI>e, suivi d'un seul c (sans MAJ), envoyez l'argument chaîne "+ec". </LI>
Vous pouvez utiliser la méthode SendKeys pour envoyer un schéma de frappes comprenant une seule frappe répétée plusieurs fois sur une ligne. Pour cela, créez un argument chaîne composé qui spécifie la frappe àrépéter, suivi du nombre de fois que vous voulez la répéter. Pour cela, utilisez un argument chaîne composé de la forme {frappe nombre}. Par exemple, pour envoyer la lettre "x" dix fois, envoyez l'argument chaîne "{x 10}". Assurez-vous d'inclure un espace entre la frappe et le nombre.
Remarque : Le seul modèle de frappe qu'il est possible d'envoyer est le type comprenant une frappe unique répétée plusieurs fois. Par exemple, vous pouvez envoyer "x" dix fois, mais vous ne pouvez pas en faire autant pour "Ctrl+x".
Remarque : Vous ne pouvez pas envoyer la clé IMPR ÉCRAN {PRTSC} vers une application.
Exemple
L'exemple suivant montre l'utilisation d'un fichier .wsf unique pour deux tâches dans plusieurs langages de script (VBScript et JScript). Chaque tâche exécute la calculatrice de Windows et envoie une séquence de frappes pour exécuter un calcul simple.
Script pour éditer certains fichiers.
Dim Fso, path, fichier, fichiers, WshShell
path = "E:\Affaires\EUROFACTOR - AP02N008\4.3 Formulaires\Formulaires spécifiques"
Set WshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set dossier = fso.GetFolder(path)
Set fichiers = Dossier.Files
For Each fichier in fichiers
'MsgBox "shortPath=" & fichier.ShortPath & vbCrLf & "Path=" & fichier.Path
'MsgBox "shortName=" & fichier.ShortName & vbCrLf & "Name=" & fichier.Name
If Left(fichier.name,19) = "Main courante Ifdex" Then
WshShell.Run fichier.ShortPath
WScript.Sleep(3000)
WshShell.SendKeys "^p"
WScript.Sleep(2000)
WshShell.SendKeys "{ENTER}" 'imprimer => ok
WScript.Sleep(3000)
WshShell.SendKeys "%(fq)" 'fermeture du document
WScript.Sleep(3000)
End If
If Left(fichier.name,6) = "SLIFAC" Then
WshShell.Run fichier.ShortPath
WScript.Sleep(2000)
If Left(fichier.name,22) = "SLIFAC 32 - 61 Espagne" Then
WshShell.SendKeys "^p"
WScript.Sleep(2000)
WshShell.SendKeys "{ENTER}" 'imprimer => ok
WScript.Sleep(3000)
WshShell.SendKeys "{ENTER}" 'poursuivre l'impression => ok
WScript.Sleep(3000)
WshShell.SendKeys "%(fq)" 'fermeture du document
WScript.Sleep(3000)
ElseIf Left(fichier.name,23) = "SLIFAC 32 - 63 Belgique" Then
WshShell.SendKeys "^p"
WScript.Sleep(2000)
WshShell.SendKeys "{ENTER}" 'imprimer => ok
WScript.Sleep(3000)
WshShell.SendKeys "{ENTER}" 'poursuivre l'impression => ok
WScript.Sleep(3000)
WshShell.SendKeys "%(fq)" 'fermeture du document
WScript.Sleep(3000)
ElseIf Left(fichier.name,23) = "SLIFAC 32 - 64 Allemagn" Then
WshShell.SendKeys "^p"
WScript.Sleep(2000)
WshShell.SendKeys "{ENTER}" 'imprimer => ok
WScript.Sleep(3000)
WshShell.SendKeys "{ENTER}" 'poursuivre l'impression => ok
WScript.Sleep(3000)
WshShell.SendKeys "%(fq)" 'fermeture du document
WScript.Sleep(3000)
ElseIf Left(fichier.name,23) = "SLIFAC 32 - 65 Angleter" Then
WshShell.SendKeys "^p"
WScript.Sleep(2000)
WshShell.SendKeys "{ENTER}" 'imprimer => ok
WScript.Sleep(3000)
WshShell.SendKeys "{ENTER}" 'poursuivre l'impression => ok
WScript.Sleep(3000)
WshShell.SendKeys "%(fq)" 'fermeture du document
WScript.Sleep(3000)
ElseIf Left(fichier.name,21) = "SLIFAC 32 - 66 Wisser" Then
WshShell.SendKeys "^p"
WScript.Sleep(2000)
WshShell.SendKeys "{ENTER}" 'imprimer => ok
WScript.Sleep(3000)
WshShell.SendKeys "{ENTER}" 'poursuivre l'impression => ok
WScript.Sleep(3000)
WshShell.SendKeys "%(fq)" 'fermeture du document
WScript.Sleep(3000)
Else 'section pour éditer <54 EUROFACTOR> , <62 PORTUGAL>
' <67 HOLLANDE> , <68 READING>
WshShell.SendKeys "^p"
WScript.Sleep(2000)
WshShell.SendKeys "{ENTER}" 'imprimer => ok
WScript.Sleep(3000)
WshShell.SendKeys "%(fq)" 'fermeture du document
WScript.Sleep(3000)
End If
End If
If Left(fichier.name,23) = "Traitement soir Jupiter" Then
WshShell.Run fichier.ShortPath
WScript.Sleep(3000)
WshShell.SendKeys "^p"
WScript.Sleep(2000)
WshShell.SendKeys "{ENTER}" 'imprimer => ok
WScript.Sleep(3000)
WshShell.SendKeys "{ENTER}" 'poursuivre l'impression => ok
WScript.Sleep(3000)
WshShell.SendKeys "%(fq)" 'fermeture du document
WScript.Sleep(3000)
End If
If Left(fichier.name,20) = "Traitement soir Vega" Then
WshShell.Run fichier.ShortPath
WScript.Sleep(3000)
WshShell.SendKeys "^p"
WScript.Sleep(2000)
WshShell.SendKeys "{ENTER}" 'imprimer => ok
WScript.Sleep(3000)
WshShell.SendKeys "{ENTER}" 'poursuivre l'impression => ok
WScript.Sleep(3000)
WshShell.SendKeys "%(fq)" 'fermeture du document
WScript.Sleep(3000)
End If
If Left(fichier.name,21) = "Traitement soir Orion" Then
WshShell.Run fichier.ShortPath
WScript.Sleep(3000)
WshShell.SendKeys "^p"
WScript.Sleep(2000)
WshShell.SendKeys "{ENTER}" 'imprimer => ok
WScript.Sleep(3000)
WshShell.SendKeys "%(fq)" 'fermeture du document
WScript.Sleep(3000)
End If
If Left(fichier.name,22) = "Main courante Eurofact" Then
WshShell.Run fichier.ShortPath
WScript.Sleep(3000)
WshShell.SendKeys "^p"
WScript.Sleep(2000)
WshShell.SendKeys "{ENTER}" 'imprimer => ok
WScript.Sleep(3000)
WshShell.SendKeys "%(fq)" 'fermeture du document
WScript.Sleep(3000)
End If
If Left(fichier.name,23) = "Main courante Transfact" Then
WshShell.Run fichier.ShortPath
WScript.Sleep(3000)
WshShell.SendKeys "^p"
WScript.Sleep(2000)
WshShell.SendKeys "{ENTER}" 'imprimer => ok
WScript.Sleep(3000)
WshShell.SendKeys "%(fq)" 'fermeture du document
WScript.Sleep(3000)
End If
If Left(fichier.name,21) = "Main courante Elysées" Then
WshShell.Run fichier.ShortPath
WScript.Sleep(3000)
WshShell.SendKeys "^p"
WScript.Sleep(2000)
WshShell.SendKeys "{ENTER}" 'imprimer => ok
WScript.Sleep(3000)
WshShell.SendKeys "%(fq)" 'fermeture du document
WScript.Sleep(3000)
End If
Dim jour, jour1, jour2
jour = DatePart("w", Date)
jour1 = Array("Samedi","Dimanche","Lundi","Mardi","Mercredi","Jeudi","Vendredi")
jour2 = jour1(jour)
If Right(fichier.name,23) = "WEEK-END EUROFACTOR.xls" Then
If jour2 = "Vendredi" Then
WshShell.Run fichier.ShortPath
WScript.Sleep(3000)
WshShell.SendKeys "^p"
WScript.Sleep(2000)
WshShell.SendKeys "{ENTER}" 'imprimer => ok
WScript.Sleep(3000)
WshShell.SendKeys "%(fq)" 'fermeture du document
WScript.Sleep(3000)
End If
End If
If Left(fichier.name,19) = "TRAITEMENTS de NUIT" Then
If jour2 = "Lundi" Then
WshShell.Run fichier.ShortPath
WScript.Sleep(3000)
WshShell.SendKeys "^p"
WScript.Sleep(2000)
WshShell.SendKeys "{ENTER}" 'imprimer => ok
WScript.Sleep(3000)
WshShell.SendKeys "%(fq)" 'fermeture du document
End If
End If
Next
dOsSpr0uTosS
Messages postés90Date d'inscriptiondimanche 22 mai 2005StatutMembreDernière intervention 1 janvier 2006 20 sept. 2005 à 22:32
merci pour cette réponse très précise mais t'as pas genre un exemple simple
j'ai essayé :
Sub essai()
Dim v1
v1.sendkeys(
"a")
End
Sub
il ne m'affiche pas d'erreur mais lorsque j'execute pour tester il me dis que je n'ai pas assigner de valeur a v1
donc concrètement ca donne quoi pour demander de simuler la touche a?