Comment ouvrir IE sur un moniteur spécifié en utilisant VBA dans Excel?

-1

J'ai un code pour centrer un formulaire utilisateur sur le moniteur actif. La forme d'utilisateur a une option pour ouvrir une fenêtre IE en plein écran qui amène l'utilisateur à un site et effectue une analyse HTML. Je voudrais donner à l'utilisateur le choix d'ouvrir la fenêtre IE sur le moniteur actuel ou secondaire mais je n'ai pas de chance de trouver des informations utiles en ligne. Le VBA que j'utilise pour ouvrir IE est montré ci-dessous. Toute indication serait appréciée!Comment ouvrir IE sur un moniteur spécifié en utilisant VBA dans Excel?

Dim ie As Object 
    Dim LoginAttempt As String 
    Set ie = Nothing 
    Set ie = New InternetExplorerMedium 
    ie.Visible = False 
    ie.Navigate "www.gooogle.com”

Source

2017-10-20 dman

S'il vous plaît utilisez [comment poser une question] (https://stackoverflow.com/help/how-to-ask) – Maldred

@Maldred, je ne vois pas comment cela aide ... j'ai eu la question en lisant simplement le titre, c'est juste que je ne peux pas y répondre avec google et tester autour ;-) – Harry

Eh bien, vous avez changé votre question, il semblait que vous demandiez juste du code. Malheureusement, je ne suis pas en mesure de répondre à cette question, mais une recherche rapide sur Google a trouvé cela! [Peut-être que cela peut être utile?] (Https://www.experts-exchange.com/questions/27867541/How-Can-I-Specify-what-Screen-to-Open-an-Application-on.html) En outre, essayez de poster votre code que vous essayez de l'ajouter et peut-être quelqu'un d'autre ici avec plus de connaissances peut être d'une meilleure assistance – Maldred

Cela peut ne pas être le moyen le plus optimal à ce sujet, mais cela fonctionne pour mon application.

Sub openBrowser() 
Dim ie As Object 
Dim Answ As Variant 

Set ie = CreateObject("InternetExplorer.Application") 
Answ = MsgBox("Do you want to open on scondary monitor?", vbYesNo) 
If Answ = vbYes Then ie.Left = 0 
ie.fullscreen = True 
ie.Visible = True 
ie.navigate "https://www.google.com" 

End Sub

Cela fonctionne pour moi. Espérons que cela vous aide à

Source

2017-10-22 14:01:49

J'ai dû changer la valeur ie.Left de 0 à 1060 pour déplacer la fenêtre à mon prochain surveiller mais c'était exactement ce que je cherchais. Merci! – dman

Comment ouvrir IE sur un moniteur spécifié en utilisant VBA dans Excel?

Répondre

Questions connexes