Ouvrir une page internet depuis une macro

[Jipé]

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]

Bonjour, "Jipé, le Forum,

Comme ceci ?

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 🙂

 

[Jipé]

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!
merci beaucoup

 

[DoubleZero]

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😳n cas .

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 🙂

 

[Jipé]

Je comprends
Mais mon module contient quelques dizaines de lignes contenant d'autres instructions qui ne nécessitent pas le "Option Explicit", et donc, en le rajoutant, il me "sabote" quelques macros
Donc, tant que je peux m'en passer ;-)

 

[DoubleZero]

Re-bonjour,

... il me "sabote" quelques macros ..Donc, tant que je peux m'en passer ;-)

A toutes fins utiles, pour les futurs codes, de précieuses informations : ici.

A bientôt 🙂

 

[Jipé]

Cool merci 🙂