ouvrir un nouvel onglet sous IE via vba

[kenshiro]

Hello a tous,

Voilà je viens de me mettre dans le pilotage d' Internet Explorer depuis VBA.
Et j'avoue que les post de Michel mon super bien aider je vous invite a jetter un coup d'oeil.
https://www.excel-downloads.com/threads/ref-wiki-page-7-de-michelxld.92375/

Voila j'utilise une de ces marco pour lister dans mon classeur XLS les liens présent sur une page web.

La commande :
maPageHtml.Links(y).Click

Me permet d'ouvrir le liens n° y

J'aimerais savoir s'il est possible ouvrir ce liens y dans un nouvel onglet IE plutot que de l'ouvrir dans l'onglet principal de navigation ?

Merci pour votre aide,

a+

 

[vbacrumble]

Re : ouvrir un nouvel onglet sous IE via vba

Bonjour


Test OK sous IE 7

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

 

[kenshiro]

Re : ouvrir un nouvel onglet sous IE via vba

Hello VbaCrumble,

Oui la piste a l'air bonne Merci beaucoup.

Je peu te recontacter au cas ou ?

a+

 

[vbacrumble]

Re : ouvrir un nouvel onglet sous IE via vba

Re



Tu peux revenir sur le forum oui et nous recontacter nous tous, peuple du forum.

 

[kenshiro]

Re : ouvrir un nouvel onglet sous IE via vba

Cool mister vbacrumble,

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

Ca le ferai tip top.

Merci encore

 

[vbacrumble]

Re : ouvrir un nouvel onglet sous IE via vba

Re



Voir par ici
Ce lien n'existe plus

 

[kenshiro]

Re : ouvrir un nouvel onglet sous IE via vba

cool un peu d'anglais
thx

 

[vbacrumble]

Re : ouvrir un nouvel onglet sous IE via vba

Re

kenshiro

Comment tu écris le VBA ? en volapük ?

No, in english of course sir

 

[vbacrumble]

Re : ouvrir un nouvel onglet sous IE via vba

Re


Il semblerait que cela fonctionne aussi

(sauf que sur mon poste trois instances d'IE s'ouvre )

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

 

[kenshiro]

Re : ouvrir un nouvel onglet sous IE via vba

Merci Crumble,

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

quelqun a t-il une idée ?

Thx

 

[vbacrumble]

Re : ouvrir un nouvel onglet sous IE via vba

Re


Essayes de voir du côté de SendKeys et CTRL+W

 

[kenshiro]

Re : ouvrir un nouvel onglet sous IE via vba

Re,
Ah oui pas mal
Je jetterai un coup d'oeil une fois à la maison. Pour l'instant boulot boulot.

Merci pour l'aide, bon aprem a toi crumble

 

[MichelXld]

Re : ouvrir un nouvel onglet sous IE via vba

Bonsoir

Pour fermer la dernière fenêtre IE qui a été ouverte :

'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 :

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

bonne soirée
michel

 

[alaincarvalho]

Re : ouvrir un nouvel onglet sous IE via vba

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

'--------------------------------------- Deuxieme étape

Set maPageHtml = IE.Document '<================ cela fonctionne pour le 1er onglet uniquement

Set Helem = maPageHtml.getElementByID("xxx")
Helem.Value = Log_Pass.L_Mellon

Set Helem = maPageHtml.getElementByID("yyy")
Helem.Value = Log_Pass.P_Mellon

'--------------------------------------- Troisème étape


'Maintenant je souhaiterais me positionner sur le 2eme onglet pour effectuer la meme operation de "remplissage"
'Que dois je faire??

Set maPageHtml = IE.Document ne fonctionne que pour le premier onglet.


Merci,
Alain