Re,
voici pour moi le code qui fonctionne :
Dim nav As Long
nav = ShellExecute(0, "open", "C:\Program Files\Internet Explorer\iexplore.exe", [_URL], 0, 1)
Application.Wait (Now + TimeValue("00:00:05"))
On Error Resume Next
Kill Environ("USERPROFILE") & "\Downloads\" & [_FICHIER]
On Error GoTo 0
SendKeys "%d"
Application.Wait (Now + TimeValue("00:00:01"))
SendKeys "javascript:" & [_SCRIPT] & "{(}{)}"
SendKeys "{ENTER}"
Application.Wait (Now + TimeValue("00:00:05"))
SendKeys "+{TAB}"
SendKeys "+{TAB}"
SendKeys "+{TAB}"
SendKeys "{ENTER}"
Application.Wait (Now + TimeValue("00:00:05"))
SendKeys "%{F4}"
MsgBox Environ("USERPROFILE") & "\Downloads\" & [_FICHIER]
Workbooks.OpenText Filename:=Environ("USERPROFILE") & "\Downloads\" & [_FICHIER], Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, Local:=True, Semicolon:=False, Comma:=True
End Sub
Je force l'ouverture avec IE, et les SendKeys "+{TAB}" me permettent de sélectionner "enregistrer" dans la fenêtre de téléchargement.
Faut que je modifie les tempo maintenant
sinon ça peux faire le travail !