Discussion :

[Alexou.]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[EngueEngue]

J'ai IE7 & Excel 2010:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[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

[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

[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})"