Tout d'abord : 2 grands merci ! A toi et a l'auteur de ce forum génial.
Tu m'as aidé pas mal pour d'autres question que je me posais grace à ton site (excellent, beau boulot !) [ta procédure pour envoyer un mail est fabuleuse]
En revanche je reste bloqué sur la manière d'envoyer un flux de caractères à une session internet explorer. En effet, je dois, comme je le disais dans mon premier message, me connecter avec authentification login/password.
Je dois donc envoyer à la session internet le flux suivant par exemple:
chaine = "login" & "{TAB}" & "password" & "{TAB}" & "{TAB}" & "{ENTER}" & "{TAB}" & "http://www.google.fr" & "{ENTER}"
et le flux ne passe pas dans de bonne condition.
Le seul résultat auquel j'arrive est de faire passer le flux suivant :
chaine = "xlogin" & "{TAB}" & "password" _
& "{TAB}" & "{TAB}" & "{ENTER}" _
REMARQUE : le 1er caractère "x" est mis parce que je perds à chaque fois le premier caractère lorsque j'envoie le flux....Je ne sais pas non plus pourquoi ?????
Voici le script qui tente d'envoyer ce flux :
----------------------------------------------------
(En espérant que quelqu'un peut m'aider !!!!!)
Dim ReturnValue, I
Sub connecte()
' Indiquer le chemin de ie.exe
ReturnValue = Shell("C:\Program Files\Plus!\Microsoft Internet\Iexplore.exe", 1) ' Exécute
' ' l’application
' IE.
AppActivate ReturnValue ' Active l’application
' Calculatrice.
chaine = "xlogin" & "{TAB}" & "password" _
& "{TAB}" & "{TAB}" & "{ENTER}" _
For I = 1 To Len(chaine) ' Configure la boucle de comptage.
If Mid(chaine, I, 1) <> "{" And I <> Len(chaine) And Mid(chaine, I, 1) <> "/" Then
SendKeys Mid(chaine, I, 1), True
Else
If Mid(chaine, I + 1, 3) = "TAB" Then
SendKeys Mid(chaine, I, 5), True
I = I + 4
End If
If Mid(chaine, I + 1, 5) = "ENTER" Then
SendKeys Mid(chaine, I, 7), True
I = I + 6
End If
If Mid(chaine, I, 1) = "/" Then
SendKeys "/", True
SendKeys Mid(chaine, I, 7), True ' Envoie des frappes de
End If
End If
Next I
End Sub