Const openInTab = &H1000
Sub test()
Dim IE As InternetExplorer
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate2 "http://www.excel-downloads.com"
IE.Navigate2 "http://www.excel-downloads.com/forum/excel/", openInTab
End Sub
Ca marche impect. Alors quelques petites questions complémentaires si tu le permet.
Connais tu les commandes pour :
> pointer vers un onglet n° x
> fermer un onglet n° z
(sauf que sur mon poste trois instances d'IE s'ouvre )
Code:
Sub test2()
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate2 "http://www.excel-downloads.com", 1
IE.Navigate2 "http://www.excel-downloads.com/forum/excel/", 2048
End Sub
et bien pour le coup, en anglais ou en fraçais, j'ai rien trouvé pour fermer un onglet IE via excel sur ton lien. Déjà qu'en frenchie j'ai du mal tout seul
Pour fermer la dernière fenêtre IE qui a été ouverte :
Code:
'Nécessite d 'activer la référence
'Microsoft Internet Controls
Dim IE As InternetExplorer
Dim winShell As New ShellWindows
Set IE = winShell(winShell.Count - 1)
IE.Quit
Set IE = Nothing
pour identifier l'avant dernière fenêtre, utilise:
winShell.Count - 2
Un autre exemple qui boucle sur toutes les fenêtres IE ouvertes :
Code:
Dim IE As InternetExplorer
Dim winShell As New ShellWindows
Set IE = CreateObject("InternetExplorer.Application")
On Error Resume Next
For Each IE In winShell
If IE.LocationURL <> "" Then MsgBox IE.LocationURL
'IE.Quit 'option pour les fermer
Next IE
Bonjour à tous,
Je cherche depuis pas mal de temps comment me possitionner sur le second onglet d'une fenêtre IE.
Mon code est le suivant:
[...]
Set Plage = Sheets("Menu").[W1:W9]
Delay = 1
Set IE = New InternetExplorer
IE.Visible = True
On Error GoTo IEfermerOuErreur 'si on ferme le navigateur
i = 1
For Each Cel In Plage
'Ouvrir la page
If i = 1 Then
IE.Navigate Cel.Value
Else
IE.Navigate2 Cel.Value, 2048
End If
Next