Ouvrir différents onglets IE depuis Excel

Version imprimable

Bonjour le forum
Petite question toute bête mais je sèche totalement
Je cherche un petit bout de code qui me permet d’ouvrir différentes pages (une liste d’adresses web qui se trouve sur Excel) dans différents onglet sur internet Explorer.

Actuellement, grâce a une boucle, je parcours ma feuille Excel et j’ouvre mes pages mais elles s’ouvrent dans de nouvelles pages et non dans de nouveaux onglets… Avez-vous une idée pour m’aider
Voici le code que j’utilise pour charger mes pages
Code:

1 2 3 4 5 6 7 8 9 10 Set IE = CreateObject("internetExplorer.Application") IE.Visible = True With IE .Navigate Site Do Until .readyState = 4 DoEvents Loop End With
Site est une variable correspondant aux adresses web des sites. Elle est modifiée dans ma boucle qui parcourt ma feuille Excel

Merci par avance de vos réponses

J'ai IE7 & Excel 2010:

Code:

1
2
3
4
5
6
7
8
9
Const nouvonglet = &H1000
 
Sub toto()
Dim IE As InternetExplorer
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate2 "http://www.google.com"
IE.Navigate2 "http://www.developpez.net/", nouvonglet
End Sub

13/08/2013, 14h59
Alexou.

Merci pour ta réponse.
Cela fonctionne chez moi avec IE10.

Peux tu m'expliquer que représente " &H1000" et quelle est la différence entre Navigate et Navigate2 svp.
13/08/2013, 15h02
EngueEngue

Navigates the browser to a location that might not be expressed as a URL, such as a pointer to an item identifier list (PIDL) for an entity in the Windows Shell namespace.

&H1000= 1000 en hexadécimal. Argument de navigate2 qui veut dire nouvel onglet
13/08/2013, 15h04
Alexou.

merci pour cette précision.

Est ce que tu sais pas hasard comment se placer directement sur le dernier onglet chargé. actuellement, je vois toujours le 1er
13/08/2013, 15h13
EngueEngue

Bonne question... Aucune idée faudrait regarder mais je ne trouve pas la propriété ni l'action en shell..

Je regarderais un de ces quattre...

En attendant tu peux faire en bouclant des:
SendKeys "^({TAB})"
13/08/2013, 15h18
Alexou.

j'avais cette solution aussi en tête mais je cherchais un truc un peu plus propre.

Merci en tout cas pour ton aide.
13/08/2013, 15h20
EngueEngue

Si tu es sur le premier onglet...

Ctrl+Shift+Tab

devrait te renvoyer sur le dernier

Déjà un peu moins sâle.. Pardonne mon ignorance à ce sujet
13/08/2013, 15h25
Alexou.

merci encore. Pas de soucis. Je pense que j'en connais encore moins que toi sur le sujet.

Si je trouve un joli bout de code, je le posterais.