Ouvrir une page internet depuis une macro

Jipé

XLDnaute Nouveau
Bonjour, j'ai un fichier Excel avec diverses macro (un control board) et j'aimerais en créer une que j'associe à un bouton pour démarrer une page web utile à mes collaborateurs

voici le code utilisé, mais je reçois un message d'erreur, "variable not defined"

Sub AURA()
navigate = "Ce lien n'existe plus"
Shell ("C:\Program Files (x86)\Internet Explorer\iexplore.exe " & navigate)
End Sub

les xxxxxxx sont bien entendu remplacé par l'adresse exacte, avez vous une idée?

Merci
 

DoubleZero

XLDnaute Barbatruc
Bonjour, "Jipé, le Forum,

Comme ceci ?
Code:
Option Explicit
Sub Internet_site_accéder()
' adaptation d'un code de tatiak (merci !)
    Dim URL As String
    URL = "https://www.excel-downloads.com/forums/forum-excel.7/"    ' adresse adapter
    ThisWorkbook.FollowHyperlink URL
End Sub
A bientôt :)
 

DoubleZero

XLDnaute Barbatruc
Re-bonjour,
en fait, j'avais en effet au début de mon code VBA l'expression "Option Explicit" en supprimant cette ligne, mon code initial re fonctionne!..

L'insertion de "Option Explicit" rend obligatoire la déclaration des variables. Il est préférable de l'utiliser lorsque notre niveau en VBA est faible... C'est m:oops:n cas .
Code:
Option Explicit
Sub AURA()
    Dim navigate As String
    navigate = "https://www.excel-downloads.com/forums/forum-excel.7/"    ' adresse adapter
    Shell ("C:\Program Files (x86)\Internet Explorer\iexplore.exe " & navigate)
End Sub
A bientôt :)
 

Discussions similaires

Réponses
8
Affichages
595

Statistiques des forums

Discussions
311 720
Messages
2 081 904
Membres
101 834
dernier inscrit
Jeremy06510