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
| 'Boutton charger le fichier pdf
While IE.readyState <> READYSTATE_COMPLETE: DoEvents: Wend
Set Generic = TrouverTagClass(IEDoc, "span", "css-1ixbp0l")
Generic.Click
'Selection du fichier pdf
chemin = Ong_Encours.Name & " " & DateDoc & "_Cmd" & Range("COMMANDE_NUMERO").Value & ".pdf"
Sleep (50)
Application.SendKeys chemin + "{enter}"
J'ai tenté d'identifier ce POP UP en explorant les objets dans winShell ==> Sans résultats
Dim IE2 As New InternetExplorer
Dim IE3 As New InternetExplorer
Dim winShell As New ShellWindows
Dim mesure As Integer
Dim i As Integer
Dim maPageHtml As HTMLDocument
Dim chemin As String
On Error Resume Next
For Each IE2 In winShell
MsgBox (IE2.Name)
Next IE2 |
Partager