Bonjour forum,
J'ai un petit bout de code qui fonctionne parfaitement bien dans une virtual machine Windows 7, seulement j'arrive pas a faire fonctionner le mode Headless dans Windows normal.
Sub Demo_Test()
Dim driver As New ChromeDriver
With driver
.AddArgument "-headless" ''This is the fix
.AddArgument "window-size=1600,1200"
.Get "https://www.google.fr"
Set imageA = driver.TakeScreenshot(500)
imageA.SaveAs "image-a.png", False
End With
End Sub
Et ici avec Firefox impossible de lui faire passer les arguments comme dans chrome, le Window.Maximize fonctionne mais pas.Addargument "window-size=1600, 1200"
Sub TC_Browsers()
Dim driver As New FirefoxDriver
With driver
'.AddArgument "window-size=1600,1200"
'.AddArgument ("headless")
.Get "https://www.google.fr"
'.AddArgument "-headless"
'.AddArgument "window-size=1600,1200"
.Window.Maximize
Set imageA = driver.TakeScreenshot(500)
imageA.SaveAs "image-a.png", False
.Close
End With
End Sub
Voilà j'aimerais un peu d'aide pour en faire fonctionner au moins un merci de vos réponses.