XL 2010 [VBA] Ouverture URL dans un nouvel onglet

Staple1600

XLDnaute Barbatruc

• 17 Février 2018

• #2

Bonsoir le fil, le forum

Vois ce que tu peux faire avec ce bout de code
(retrouvé dans la poussière de mes archives )

VB:

Sub IE_Nouvel_Onglet()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
With IE
    .GoHome
    .Visible = True
    While .ReadyState <> 4
    DoEvents
    Wend
    'ajouter nouvel onglet
    .Navigate "https://www.excel-downloads.com/threads/vba-ouverture-url-dans-un-nouvel-onglet.20022699/", CLng(2048)
End With
End Sub

 

Vote positif 0 Vote négatif

F

F22Raptor

XLDnaute Impliqué

• 17 Février 2018

• #3

Hello Staple,
En effet, l'effet est différent de mon bout de code.
Il ouvre une nouvelle instance d'IE (avec l'onglet par défaut), et dans cette instance, crée un nouvel onglet.
Mais il n'utilise pas la fenêtre d'IE ouverte sur le poste avant de cliquer sur le bouton.

La méthode FollowHyperLink fait bien cela (nouvel onglet dans la fenêtre existante), mais elle plante mon Excel quand je la lance depuis le Userform où j'ai mis le bouton.
Plus précisément, elle plante SI un classeur est actif dans Excel : s'il n'y pas de classeur actif (le classeur avec le Userform est caché), alors FollowHyperLink ne plante pas ... Bizarre !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Février 2018

• #4

Re

Ne plante pas chez moi.

VB:

Private Sub CommandButton1_Click()
Dim sURL$
sURL = "https://www.excel-downloads.com/threads/vba-ouverture-url-dans-un-nouvel-onglet.20022699/#post-20169467"
ActiveWorkbook.FollowHyperlink _
    Address:=sURL, _
    NewWindow:=False, _
    AddHistory:=False, _
    ExtraInfo:=Address, _
    Method:=msoMethodGet
End Sub

 

Vote positif 0 Vote négatif

F

F22Raptor

XLDnaute Impliqué

• 17 Février 2018

• #5

C'est assez curieux : j'uilise FollowHyperLink sur certains de mes classeurs, et ça marche.
Mais lancé à parti de ce classeur masqué (assez conséquent, avec pas mal de Userforms, de modules), ça me plante Excel (quand un classeur est actif).
Il doit y avoir un conflit qq part, mais c'est trop gros à débugger !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Février 2018

• #6

Re

De l'utilité d'aller au plus simple... (cf le principe KISS)

Pourquoi masquer ton classeur? Pour quelle utilité ?

A part celle de planter Excel!

 

Vote positif 0 Vote négatif

F

F22Raptor

XLDnaute Impliqué

• 17 Février 2018

• #7

C'est en fait un "environnement" pro ce classeur (que mes collègues ouvrent automatiquement en lecture seule). Il y a des boutons dans la barre d'accès rapide qui permettent d'ouvrir différents UF de ce classeur, qui servent à lancer des actions/fichiers.
Et les feuilles de ce classeur contiennent des petites listes/bases liées aux fonctions des UF.

Et donc c'est plus propre/pro s'il est masqué !
Cela dit, ce n'est pas le fait qu'il soit masqué qui fait planter XL.

Situation 1 :
Excel démarré, le classeur masqué.
Aucun autre classeur ouvert (fonds gris sur Excel).
Je clique sur mon icône d'accès rapide, ça ouvre l'UF, je clique sur le bouton qui lance le FollowHL, et tout marche bien.

Situation 2 :
Excel démarré, le classeur masqué.
Un classeur est ouvert (nouveau classeur vierge, ou classeur existant).
Je lance l'icône, je clique sur le bouton : ça plante !

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Février 2018

• #8

Re

Et donc c'est plus propre/pro s'il est masqué !

Cliquez pour agrandir...

C'est juste un point de vue esthétique, pas fonctionnel.
(Là encore, je mets en avant le KISS )

La seule chose qui compte c'est que l'utilisateur final utilise un outil qui ne plante pas

Ce qui n'est pas actuellement le cas.

NB: Plutôt que de masquer, pourquoi ne pas transformer ton classeur en *.xlam ?

 

Vote positif 0 Vote négatif

F

F22Raptor

XLDnaute Impliqué

• 17 Février 2018

• #9

Tout à fait d'accord !

Cela dit, ça ne change rien : quand j'affiche le classeur, c'est même "pire", car dans ce cas, par définition, il y a un classeur actif, celui-là !
Et donc classeur actif=plantage !

Au moins s'il est masqué, pas de plantage si le user n'a rien ouvert dans XL !

Mais bon du coup, je passe par Navigate : ça marche bien, le seul (léger) souci étant la nouvelle fenêtre IE.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Février 2018

• #10

Re

Et donc?

Staple1600 à dit:

NB: Plutôt que de masquer, pourquoi ne pas transformer ton classeur en *.xlam ?

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

F

F22Raptor

XLDnaute Impliqué

• 19 Février 2018

• #11

Il faudrait que j'y réfléchisse et que je regarde du côté des avantages/inconvénients comparés.

 

Vote positif 0 Vote négatif