VBA - Ouvrir un lien dans une cellule avec un navigateur spécifique

  • Initiateur de la discussion Initiateur de la discussion winnie
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

winnie

XLDnaute Nouveau
Bonjour, je cherche à tester la compatibilité de site via plusieurs navigateur.

J'aimerai rendre cela automatique par le biais d'une macro.

Je souhaite donc que le navigateur x ouvre l'adresse situé dans la cellule A9 par exemple.

Pour l'instant j'ai modélisé vulgairement cela comme pour bien montrer ce que je veux :

Sub firefoxII()

Dim RetVal

RetVal = Shell("C:\program files (x86)\mozilla firefox\firefox.exe Range("A9")", 1)


End Sub


Merci par avance
 
Re : VBA - Ouvrir un lien dans une cellule avec un navigateur spécifique

Bonjour winnie,


Je n'ai pas tester, mais ton idée de base avait une erreur de syntaxe.
essaye avec cette ligne :
Code:
RetVal = Shell("C:\program files (x86)\mozilla firefox\firefox.exe " & Range("A9").Text, 1)

a+
 
Re : VBA - Ouvrir un lien dans une cellule avec un navigateur spécifique

J'ai testé et ca ne m'ouvre que ma page d'accueil de Mozilla et non pas l'adresse internet située dans la cellule A9 elle même située sur ma feuille 1

mais merci déjà pour ce petit coup de pouce, peut être y a t-il un autre moyen de modéliser ce que je veux faire
 
Re : VBA - Ouvrir un lien dans une cellule avec un navigateur spécifique

Re,

Bizarre, si j'ai
Code:
http://www.excel-downloads.com/
en A9, le code
VB:
Sub Test()
Dim RetVal  As Long

    RetVal = Shell("C:\Program Files\Mozilla Firefox\firefox.exe " & Range("A9").Text, 1)
End Sub
m'ouvre bien firefox à l'adresse indiquée en A9 😕😕😕

a+
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour