Excel et Internet Explorer?

Bon, j'ai trouvé une solution qui fonctionne pour ce que je veux faire...

Mais ça ressemble à du bricolage et je n'aime pas trop ça.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Test() Dim ParentWndHandle As Long 'Dim GInput(0 To 1) As GENERALINPUT 'Obtenir le handle de la fenetre ParentWndHandle = FindWindow("#32770", "Téléchargement de fichier") If ParentWndHandle <> 0 Then Dim ChildWndHandle As Long SetForegroundWindow ParentWndHandle Application.Wait Now + TimeValue("00:00:01") SendKeys "%v", True End If End Sub

---

Le principe :

1) je récupere le handle de la fenetre
2) j'active la fenetre
3) j'attend 1 seconde avant d'envoyer un SendKeyx ALT+V

Si vraiment quelqu'un d'autre connais une solution meilleur, merci de me la communiquer.

Voici ce que j'ai fait :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub TestFull() Dim i As Integer Dim IE As InternetExplorer Dim maPageHtml As HTMLDocument Dim Helem As IHTMLElementCollection Dim ParentWndHandle As Long On Error Resume Next 'Call listerFenetres_IE_Ouvertes 'Call listerFenetres_IE_Ouvertes Set IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.navigate "http://127.0.0.1/Doc1.doc" Do Until IE.readyState = READYSTATE_COMPLETE DoEvents Loop 'attend la fin du chargement IE.Visible = True 'Fonction récuperation du handle et activation du bouton Call FindWindow("#32770", "Téléchargement de fichier") ParentWndHandle = FindWindow("#32770", "Téléchargement de fichier") If ParentWndHandle <> 0 Then Dim ChildWndHandle As Long SetForegroundWindow ParentWndHandle Pause 2 'Fonction pause de 2 seconde SendKeys "%v", True End If End Sub

---

Le début de la fonction ouvre ma page web
Ensuite, sous le commentaire 'Fonction récuperation du handle et activation du bouton', je récupère le handle etc...

Cette fonction fonctionne si j'ouvre à la main ma fenetre de telechargement et si je lance à la main ma fonction...
Mais ne fonctionne pas si je lance tout dans la foulé...

Merci de votre aide...