XL 2010 [VBA] FollowHyperlink avec un Dièse

[F22Raptor]

Hello
Je veux lancer une URL depuis une Listbox VBA , cette URL contenant un dièse
Problème : le dièse ne passe pas !

Ci-joint un fichier : le lien s'affiche bien avec le dièse dans la MSGBOX, mais est envoyé en %20-%20 dans l'URL ...
Vous avez une idée pour gérer cela ? (on trouve pas mal de sujets sur le web avec ça, mais aucun ne m'offre de soluce !)

(PS : sachant que le seul browser autorisé sur nos PC au bureau est IE11 ... qui semble avoir un pb avec le #)

Merci !

 

[Bernard_XLD]

Bonjour F22Raptor, le forum

aucun problème sur ie11, le dièse passe bien et ton code fonctionne correctement, les pages s'ouvrent sans problème.
testé sur seven, ie11, excel 2010
la vérité est ailleurs !

Bien cordialement, @+

 

[F22Raptor]

heureux homme ! 😀

Apparemment c'est un vrai souci, assez documenté, mais sans réelle solution
https://social.msdn.microsoft.com/F.../hyperlink-containing-in-excel?forum=exceldev

 

[Bernard_XLD]

deux précisions à voir
url tapée avec # directement dans IE11, ça passe ?
un raccourci avec l'url, ça passe ?

 

[F22Raptor]

deux précisions à voir
url tapée avec # directement dans IE11, ça passe ?
un raccourci avec l'url, ça passe ?

Oui, tapée dans IE ça passe, ainsi que dans un mail Outlook par exemple.
En revanche, depuis VBA ou depuis une cellule Excel avec l'adresse, ça plante.

 

[Bernard_XLD]

dans ce cas tu dois pouvoir contourner en créant un raccourci avec l'adresse et en le lançant
voila un code créant un raccourci sur le bureau, s'il fonctionne, tu pourras le stocker ou tu veux et le lancer avec la même proc
un DoEvents le fera s'exécuter si tu as besoin que ton code continue

Sub Adressage_Web()
Set Objet_Raccourci = CreateObject("WScript.Shell")
Set Raccourci = Objet_Raccourci.CreateShortcut(Objet_Raccourci.SpecialFolders("Desktop") & "\site_web.lnk")
Raccourci.WorkingDirectory = Objet_Raccourci.SpecialFolders("Desktop")
Raccourci.TargetPath = "Ce lien n'existe plus"
Raccourci.Save
Set Raccourci = Nothing
Set Objet_Raccourci = Nothing
End Sub