Est-il possible de démarrer Internet Explorer à partir du code VBA depuis Excel ?
Jacques93
Bonjour Christophe,
l'API ShellExecute permet d'ouvrir l'application associé soit aux URL , soit aux extensions de fichiers :
Private Declare Function ShellExecute Lib "Shell32.dll" Alias _ "ShellExecuteA" (ByVal hWnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Const SW_SHOWMAXIMIZED = 3
Private Sub CommandButton2_Click() ' Pour ouvrir une URL avec le navigateur défaut ShellExecute 0&, "open", "http://www.excelabo.net", _ vbNullString, vbNullString, SW_SHOWMAXIMIZED
' Pour ouvrir un document avec Word ShellExecute 0&, "open", "C:Toto.doc", _ vbNullString, vbNullString, SW_SHOWMAXIMIZED
' etc... End Sub
Bonjour.
Est-il possible de démarrer Internet Explorer à partir du code VBA depuis Excel ?
-- Cordialement,
Jacques.
Bonjour Christophe,
l'API ShellExecute permet d'ouvrir l'application associé soit aux URL
, soit aux extensions de fichiers :
Private Declare Function ShellExecute Lib "Shell32.dll" Alias _
"ShellExecuteA" (ByVal hWnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Const SW_SHOWMAXIMIZED = 3
Private Sub CommandButton2_Click()
' Pour ouvrir une URL avec le navigateur défaut
ShellExecute 0&, "open", "http://www.excelabo.net", _
vbNullString, vbNullString, SW_SHOWMAXIMIZED
' Pour ouvrir un document avec Word
ShellExecute 0&, "open", "C:Toto.doc", _
vbNullString, vbNullString, SW_SHOWMAXIMIZED
' etc...
End Sub
Bonjour.
Est-il possible de démarrer Internet Explorer à partir du code VBA depuis
Excel ?
l'API ShellExecute permet d'ouvrir l'application associé soit aux URL , soit aux extensions de fichiers :
Private Declare Function ShellExecute Lib "Shell32.dll" Alias _ "ShellExecuteA" (ByVal hWnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Const SW_SHOWMAXIMIZED = 3
Private Sub CommandButton2_Click() ' Pour ouvrir une URL avec le navigateur défaut ShellExecute 0&, "open", "http://www.excelabo.net", _ vbNullString, vbNullString, SW_SHOWMAXIMIZED
' Pour ouvrir un document avec Word ShellExecute 0&, "open", "C:Toto.doc", _ vbNullString, vbNullString, SW_SHOWMAXIMIZED
' etc... End Sub
Bonjour.
Est-il possible de démarrer Internet Explorer à partir du code VBA depuis Excel ?
-- Cordialement,
Jacques.
michdenis
Bonjour Christophe,
En plus de l'excellente réponse de Thierry (que je salue en passant), voici une réponse de Frédéric Sigonneau :
'------------------------------ Sub test() Dim IE As Object Set IE = CreateObject("internetexplorer.application") IE.Visible = True: IE.Top = 0: IE.Left = 0 IE.Navigate ("https://blabla") IE.StatusBar = True IE.StatusText = "Coucou" MsgBox IE.StatusText End Sub '------------------------------
Pour explorer un peu plus les possibilités de la bibliothèque d'Internet Explorer, coche dans l'éditeur VBE la référence à Microsoft Internet Controls (dans la liste affichée par OutilsRéférences...). Ensuite, lance l'explorateur d'objets (F2), sélectionne 'SHDocVw' dans la liste des bibliothèques, clique sur l'objet InternetExplorer dans le panneau gauche...et explore le contenu du panneau droit.
Salutations!
"Christophe" a écrit dans le message de news:
Bonjour.
Est-il possible de démarrer Internet Explorer à partir du code VBA depuis Excel ?
Bonjour Christophe,
En plus de l'excellente réponse de Thierry (que je salue en passant), voici une réponse de Frédéric Sigonneau :
'------------------------------
Sub test()
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True: IE.Top = 0: IE.Left = 0
IE.Navigate ("https://blabla")
IE.StatusBar = True
IE.StatusText = "Coucou"
MsgBox IE.StatusText
End Sub
'------------------------------
Pour explorer un peu plus les possibilités de la bibliothèque d'Internet
Explorer, coche dans l'éditeur VBE la référence à Microsoft Internet Controls
(dans la liste affichée par OutilsRéférences...).
Ensuite, lance l'explorateur d'objets (F2), sélectionne 'SHDocVw' dans la liste
des bibliothèques, clique sur l'objet InternetExplorer dans le panneau
gauche...et explore le contenu du panneau droit.
Salutations!
"Christophe" <Christophe@discussions.microsoft.com> a écrit dans le message de news:
AD907B7C-FE4A-4C7C-98D4-9FF550CA691B@microsoft.com...
Bonjour.
Est-il possible de démarrer Internet Explorer à partir du code VBA depuis
Excel ?
En plus de l'excellente réponse de Thierry (que je salue en passant), voici une réponse de Frédéric Sigonneau :
'------------------------------ Sub test() Dim IE As Object Set IE = CreateObject("internetexplorer.application") IE.Visible = True: IE.Top = 0: IE.Left = 0 IE.Navigate ("https://blabla") IE.StatusBar = True IE.StatusText = "Coucou" MsgBox IE.StatusText End Sub '------------------------------
Pour explorer un peu plus les possibilités de la bibliothèque d'Internet Explorer, coche dans l'éditeur VBE la référence à Microsoft Internet Controls (dans la liste affichée par OutilsRéférences...). Ensuite, lance l'explorateur d'objets (F2), sélectionne 'SHDocVw' dans la liste des bibliothèques, clique sur l'objet InternetExplorer dans le panneau gauche...et explore le contenu du panneau droit.
Salutations!
"Christophe" a écrit dans le message de news:
Bonjour.
Est-il possible de démarrer Internet Explorer à partir du code VBA depuis Excel ?
Christophe
Bonjour Jacques et merci pour cette excellente réponse
Bonjour Christophe,
l'API ShellExecute permet d'ouvrir l'application associé soit aux URL , soit aux extensions de fichiers :
Private Declare Function ShellExecute Lib "Shell32.dll" Alias _ "ShellExecuteA" (ByVal hWnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Const SW_SHOWMAXIMIZED = 3
Private Sub CommandButton2_Click() ' Pour ouvrir une URL avec le navigateur défaut ShellExecute 0&, "open", "http://www.excelabo.net", _ vbNullString, vbNullString, SW_SHOWMAXIMIZED
' Pour ouvrir un document avec Word ShellExecute 0&, "open", "C:Toto.doc", _ vbNullString, vbNullString, SW_SHOWMAXIMIZED
' etc... End Sub
Bonjour.
Est-il possible de démarrer Internet Explorer à partir du code VBA depuis Excel ?
-- Cordialement,
Jacques.
Bonjour Jacques et merci pour cette excellente réponse
Bonjour Christophe,
l'API ShellExecute permet d'ouvrir l'application associé soit aux URL
, soit aux extensions de fichiers :
Private Declare Function ShellExecute Lib "Shell32.dll" Alias _
"ShellExecuteA" (ByVal hWnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Const SW_SHOWMAXIMIZED = 3
Private Sub CommandButton2_Click()
' Pour ouvrir une URL avec le navigateur défaut
ShellExecute 0&, "open", "http://www.excelabo.net", _
vbNullString, vbNullString, SW_SHOWMAXIMIZED
' Pour ouvrir un document avec Word
ShellExecute 0&, "open", "C:Toto.doc", _
vbNullString, vbNullString, SW_SHOWMAXIMIZED
' etc...
End Sub
Bonjour.
Est-il possible de démarrer Internet Explorer à partir du code VBA depuis
Excel ?
Bonjour Jacques et merci pour cette excellente réponse
Bonjour Christophe,
l'API ShellExecute permet d'ouvrir l'application associé soit aux URL , soit aux extensions de fichiers :
Private Declare Function ShellExecute Lib "Shell32.dll" Alias _ "ShellExecuteA" (ByVal hWnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Const SW_SHOWMAXIMIZED = 3
Private Sub CommandButton2_Click() ' Pour ouvrir une URL avec le navigateur défaut ShellExecute 0&, "open", "http://www.excelabo.net", _ vbNullString, vbNullString, SW_SHOWMAXIMIZED
' Pour ouvrir un document avec Word ShellExecute 0&, "open", "C:Toto.doc", _ vbNullString, vbNullString, SW_SHOWMAXIMIZED
' etc... End Sub
Bonjour.
Est-il possible de démarrer Internet Explorer à partir du code VBA depuis Excel ?
-- Cordialement,
Jacques.
Christophe
merci michdenis je vais appronfondir le sujet.
Bonjour Christophe,
En plus de l'excellente réponse de Thierry (que je salue en passant), voici une réponse de Frédéric Sigonneau :
'------------------------------ Sub test() Dim IE As Object Set IE = CreateObject("internetexplorer.application") IE.Visible = True: IE.Top = 0: IE.Left = 0 IE.Navigate ("https://blabla") IE.StatusBar = True IE.StatusText = "Coucou" MsgBox IE.StatusText End Sub '------------------------------
Pour explorer un peu plus les possibilités de la bibliothèque d'Internet Explorer, coche dans l'éditeur VBE la référence à Microsoft Internet Controls (dans la liste affichée par OutilsRéférences...). Ensuite, lance l'explorateur d'objets (F2), sélectionne 'SHDocVw' dans la liste des bibliothèques, clique sur l'objet InternetExplorer dans le panneau gauche...et explore le contenu du panneau droit.
Salutations!
"Christophe" a écrit dans le message de news:
Bonjour.
Est-il possible de démarrer Internet Explorer à partir du code VBA depuis Excel ?
merci michdenis je vais appronfondir le sujet.
Bonjour Christophe,
En plus de l'excellente réponse de Thierry (que je salue en passant), voici une réponse de Frédéric Sigonneau :
'------------------------------
Sub test()
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True: IE.Top = 0: IE.Left = 0
IE.Navigate ("https://blabla")
IE.StatusBar = True
IE.StatusText = "Coucou"
MsgBox IE.StatusText
End Sub
'------------------------------
Pour explorer un peu plus les possibilités de la bibliothèque d'Internet
Explorer, coche dans l'éditeur VBE la référence à Microsoft Internet Controls
(dans la liste affichée par OutilsRéférences...).
Ensuite, lance l'explorateur d'objets (F2), sélectionne 'SHDocVw' dans la liste
des bibliothèques, clique sur l'objet InternetExplorer dans le panneau
gauche...et explore le contenu du panneau droit.
Salutations!
"Christophe" <Christophe@discussions.microsoft.com> a écrit dans le message de news:
AD907B7C-FE4A-4C7C-98D4-9FF550CA691B@microsoft.com...
Bonjour.
Est-il possible de démarrer Internet Explorer à partir du code VBA depuis
Excel ?
En plus de l'excellente réponse de Thierry (que je salue en passant), voici une réponse de Frédéric Sigonneau :
'------------------------------ Sub test() Dim IE As Object Set IE = CreateObject("internetexplorer.application") IE.Visible = True: IE.Top = 0: IE.Left = 0 IE.Navigate ("https://blabla") IE.StatusBar = True IE.StatusText = "Coucou" MsgBox IE.StatusText End Sub '------------------------------
Pour explorer un peu plus les possibilités de la bibliothèque d'Internet Explorer, coche dans l'éditeur VBE la référence à Microsoft Internet Controls (dans la liste affichée par OutilsRéférences...). Ensuite, lance l'explorateur d'objets (F2), sélectionne 'SHDocVw' dans la liste des bibliothèques, clique sur l'objet InternetExplorer dans le panneau gauche...et explore le contenu du panneau droit.
Salutations!
"Christophe" a écrit dans le message de news:
Bonjour.
Est-il possible de démarrer Internet Explorer à partir du code VBA depuis Excel ?
Est-il possible de démarrer Internet Explorer à partir du code VBA depuis Excel ?
ru-th
c'est toujours un plaisir de repasser dans le coin et de voir que tu es toujours présent, comme d'ailleurs le petit AV ;-)) a+ rural thierry "michdenis" a écrit dans le message de news:%
Bonjour Christophe,
En plus de l'excellente réponse de Thierry (que je salue en passant), voici une réponse de Frédéric Sigonneau :
'------------------------------ Sub test() Dim IE As Object Set IE = CreateObject("internetexplorer.application") IE.Visible = True: IE.Top = 0: IE.Left = 0 IE.Navigate ("https://blabla") IE.StatusBar = True IE.StatusText = "Coucou" MsgBox IE.StatusText End Sub '------------------------------
Pour explorer un peu plus les possibilités de la bibliothèque d'Internet Explorer, coche dans l'éditeur VBE la référence à Microsoft Internet Controls
(dans la liste affichée par OutilsRéférences...). Ensuite, lance l'explorateur d'objets (F2), sélectionne 'SHDocVw' dans la liste
des bibliothèques, clique sur l'objet InternetExplorer dans le panneau gauche...et explore le contenu du panneau droit.
Salutations!
"Christophe" a écrit dans le message de news:
Bonjour.
Est-il possible de démarrer Internet Explorer à partir du code VBA depuis Excel ?
c'est toujours un plaisir de repasser dans le coin et de voir que tu es
toujours présent, comme d'ailleurs le petit AV ;-))
a+
rural thierry
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23QN9xYCxFHA.1456@TK2MSFTNGP11.phx.gbl...
Bonjour Christophe,
En plus de l'excellente réponse de Thierry (que je salue en passant),
voici une réponse de Frédéric Sigonneau :
'------------------------------
Sub test()
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True: IE.Top = 0: IE.Left = 0
IE.Navigate ("https://blabla")
IE.StatusBar = True
IE.StatusText = "Coucou"
MsgBox IE.StatusText
End Sub
'------------------------------
Pour explorer un peu plus les possibilités de la bibliothèque d'Internet
Explorer, coche dans l'éditeur VBE la référence à Microsoft Internet
Controls
(dans la liste affichée par OutilsRéférences...).
Ensuite, lance l'explorateur d'objets (F2), sélectionne 'SHDocVw' dans la
liste
des bibliothèques, clique sur l'objet InternetExplorer dans le panneau
gauche...et explore le contenu du panneau droit.
Salutations!
"Christophe" <Christophe@discussions.microsoft.com> a écrit dans le
message de news:
c'est toujours un plaisir de repasser dans le coin et de voir que tu es toujours présent, comme d'ailleurs le petit AV ;-)) a+ rural thierry "michdenis" a écrit dans le message de news:%
Bonjour Christophe,
En plus de l'excellente réponse de Thierry (que je salue en passant), voici une réponse de Frédéric Sigonneau :
'------------------------------ Sub test() Dim IE As Object Set IE = CreateObject("internetexplorer.application") IE.Visible = True: IE.Top = 0: IE.Left = 0 IE.Navigate ("https://blabla") IE.StatusBar = True IE.StatusText = "Coucou" MsgBox IE.StatusText End Sub '------------------------------
Pour explorer un peu plus les possibilités de la bibliothèque d'Internet Explorer, coche dans l'éditeur VBE la référence à Microsoft Internet Controls
(dans la liste affichée par OutilsRéférences...). Ensuite, lance l'explorateur d'objets (F2), sélectionne 'SHDocVw' dans la liste
des bibliothèques, clique sur l'objet InternetExplorer dans le panneau gauche...et explore le contenu du panneau droit.
Salutations!
"Christophe" a écrit dans le message de news:
Bonjour.
Est-il possible de démarrer Internet Explorer à partir du code VBA depuis Excel ?
