Ouvrir automatiquement un lien web

[Joelaindien]

Bonsoir à tous,

Je vous fais part de mon problème.

J'ai une liste d'adresses de sites web dans excel (en colonne) et je souhaite pouvoir automatiser l'ouverture des liens.

Concrètement, il s'agit de permettre l'ouverture du 1e lien dans Firefox, puis une fois fait, excel passe dans la cellule du dessous, ouvre le second lien, etc...

Je vous ai mis un exemple en pièce jointe. Le principe est que une fois la page excel ouverte et la macro lancée, tous les liens de la page s'ouvrent dans des onglets séparés de Firefox.

En vous remerciant pour votre attention et votre réponse 😉

Bien cordialement
Pierre

 

[Dormeur74]

Re : Ouvrir automatiquement un lien web

Tu insère un module dans lequel tu colles la fonction API suivante :

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sous VBA, tu fais un double-clic sur la feuille concernée, tu sélectionnes Worksheet dans la liste déroulante de gauche et l'événement SelectionChange dans celle de droite. Là tu colles le code suivant :

    If LCase(Left(Target, 4)) = "http" Then Call ShellExecute(0, "", Target, "", "", 0)

Ca va ouvrir la page Web concernée dans le navigateur par défaut, même s'il n'y a pas de lien hypertexte dans la feuille.

 

[Joelaindien]

Re : Ouvrir automatiquement un lien web

Merci, tu es au top !
Bonne soirée