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 = "http://xxxxxxxxxxxxxx"
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 :)
 

Jipé

XLDnaute Nouveau
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

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 :)
 

Jipé

XLDnaute Nouveau
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 ;-)
 

Discussions similaires


Haut Bas