Discussion :

[jojo86]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[jojo86]

Voici ce que j'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...