Piloter une navigation sur modzilla via VBA

bonjour a tous !!!!!

Je souhaiterai via vba pouvoir ouvrir une page modzilla / cliquer sur un bouton ("Cliquez-ici pour lancer le traitement") / avoir une tempo de 3 minutes /fermer la fenêtre modzilla

ci dessous le code pour ouvrir la fenêtre .... pour le reste je bloque .....

Sub firefox()
Dim RetVal
RetVal = _
Shell("C:\Program Files\Mozilla Firefox\firefox.exe https://****************", 1)

End Sub

D'avance merci

bonjour a tous
après des recherches ci dessous des solutions pour ceux que cela peut intéresser

par contre

Avez vous une solution pour que la tache se déroule en fond ?

D'avance merci

Sub miseajourcacherma()

Dim firefox As Object
Dim RetVal

RetVal = Shell("C:\Program Files\Mozilla Firefox\firefox.exe https://forum.excel-pratique.com/excel/piloter-une-navigation-sur-modzilla-via-vba-165998", 1)
'ouvre la page dans modzilla

Application.Wait (Now + TimeValue("0:02:30"))
'tempo de 2 minutes 30

RetVal = Shell("C:\Program Files\Mozilla Firefox\firefox.exe", 0)
'ferme la page

End Sub

Bonjour,

Pouvez-vous essayer en modifiant le première ligne ainsi :

RetVal = Shell("C:\Program Files\Mozilla Firefox\firefox.exe https://forum.excel-pratique.com/excel/piloter-une-navigation-sur-modzilla-via-vba-165998", vbHide)

Justement, l'argument 0 sert à masquer la fenêtre mais il n'est pas garanti que ça entraine la fermeture de la page.

Par exemple, pour fermer un pdf :

CreateObject("WScript.Shell").Run "taskkill.exe /IM AcroRd32.exe /T /F", 0

En l'adaptant, ça pourrait être :

CreateObject("WScript.Shell").Run "taskkill.exe /IM firefox.exe /T /F", 0

Cdlt,

Salut 3GB

Merci!!!!!!

çà fonctionne

Sub miseajourcacherma()

Dim firefox As Object

Dim RetVal

Application.ScreenUpdating = True

ActiveWorkbook.Worksheets("Dashboard_RMA").Application.ScreenUpdating = True

RetVal = Shell("C:\Program Files\Mozilla Firefox\firefox.exe https://**************************", 1)

'ouvre la page dans modzilla

Application.Wait (Now + TimeValue("0:00:01"))

RetVal = Shell("C:\Program Files\Mozilla Firefox\firefox.exe", 0)

CreateObject("WScript.Shell").Run "taskkill.exe /IM firefox.exe /T /F", 0

end sub