j'essai d'agrandir une fenêtre internet explorer via une commande vba,
et je n'y arrive pas. voici le code (xl2002),
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Navigate ("https://blabla")
IE.Visible = True
Application.Wait Now + 5 / 3600 / 48
With ActiveWindow
SendKeys ("~")
End With
Application.Wait Now + 5 / 3600 / 48
With ActiveWindow
SendKeys ("zaza~")
End With
Application.Wait Now + 5 / 3600 / 48
IE.Visible = True
ActiveWindow.WindowState = xlMaximized
Set IE = Nothing
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Frédéric Sigonneau
Bonsoir Isabelle,
Tu peux passer par une fonction API pour dimensionner internet explorer en fonction de la résolution de l'écran de l'utilisateur de ton code :
'====================Úns un module standard Declare Function GetSystemMetrics32 Lib "user32" _ Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Sub test() Dim IE As Object Set IE = CreateObject("internetexplorer.application") IE.Visible = True: IE.Top = 0: IE.Left = 0 IE.Width = GetSystemMetrics32(0) IE.Height = GetSystemMetrics32(1) End Sub '===================== FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
bonjour voustousse,
j'essai d'agrandir une fenêtre internet explorer via une commande vba, et je n'y arrive pas. voici le code (xl2002),
Dim IE As Object Set IE = CreateObject("internetexplorer.application") IE.Navigate ("https://blabla") IE.Visible = True Application.Wait Now + 5 / 3600 / 48 With ActiveWindow SendKeys ("~") End With Application.Wait Now + 5 / 3600 / 48 With ActiveWindow SendKeys ("zaza~") End With Application.Wait Now + 5 / 3600 / 48 IE.Visible = True ActiveWindow.WindowState = xlMaximized Set IE = Nothing
merci par avance de votre aide ! isabelle
Bonsoir Isabelle,
Tu peux passer par une fonction API pour dimensionner internet explorer en
fonction de la résolution de l'écran de l'utilisateur de ton code :
'====================Úns un module standard
Declare Function GetSystemMetrics32 Lib "user32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Sub test()
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True: IE.Top = 0: IE.Left = 0
IE.Width = GetSystemMetrics32(0)
IE.Height = GetSystemMetrics32(1)
End Sub
'=====================
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
bonjour voustousse,
j'essai d'agrandir une fenêtre internet explorer via une commande vba,
et je n'y arrive pas. voici le code (xl2002),
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Navigate ("https://blabla")
IE.Visible = True
Application.Wait Now + 5 / 3600 / 48
With ActiveWindow
SendKeys ("~")
End With
Application.Wait Now + 5 / 3600 / 48
With ActiveWindow
SendKeys ("zaza~")
End With
Application.Wait Now + 5 / 3600 / 48
IE.Visible = True
ActiveWindow.WindowState = xlMaximized
Set IE = Nothing
Tu peux passer par une fonction API pour dimensionner internet explorer en fonction de la résolution de l'écran de l'utilisateur de ton code :
'====================Úns un module standard Declare Function GetSystemMetrics32 Lib "user32" _ Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Sub test() Dim IE As Object Set IE = CreateObject("internetexplorer.application") IE.Visible = True: IE.Top = 0: IE.Left = 0 IE.Width = GetSystemMetrics32(0) IE.Height = GetSystemMetrics32(1) End Sub '===================== FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
bonjour voustousse,
j'essai d'agrandir une fenêtre internet explorer via une commande vba, et je n'y arrive pas. voici le code (xl2002),
Dim IE As Object Set IE = CreateObject("internetexplorer.application") IE.Navigate ("https://blabla") IE.Visible = True Application.Wait Now + 5 / 3600 / 48 With ActiveWindow SendKeys ("~") End With Application.Wait Now + 5 / 3600 / 48 With ActiveWindow SendKeys ("zaza~") End With Application.Wait Now + 5 / 3600 / 48 IE.Visible = True ActiveWindow.WindowState = xlMaximized Set IE = Nothing
merci par avance de votre aide ! isabelle
Frédo P.
Bonjour Isabelle C'est quoi déjà ce que tu pèche dans ton vaste pays?
Est ce que tu pourrais me tuyauté sur les fichiers d'aide sur xl et leurs créations, la méthode? bisou
Fred "isabelle" a écrit dans le message de news:
:-)) ha ! ben pour ça la pêche j'connais bien, bisou isabelle
Bonjour Isabelle
C'est quoi déjà ce que tu pèche dans ton vaste pays?
Est ce que tu pourrais me tuyauté sur les fichiers d'aide sur xl et leurs
créations, la méthode?
bisou
fredpost@free.fr
Fred
"isabelle" <as.isabellevNOSPAM@videotron.ca> a écrit dans le message de
news: 3F5FBDB4.D5DD3A03@videotron.ca...
:-)) ha ! ben pour ça la pêche j'connais bien,
bisou
isabelle