lancer automatiquement un lien hypertexte à l'ouverture d'un classeur excel

[Laguamar]

Bonjour à tous,

Je souhaiterais savoir s'il est possible de lancer automatiquement un lien hypertexte (vers un site web ou autre) à l'ouverture d'un classeur excel (donc sans action manuelle de ma part)

Merci par avance et bonne journée !

 

[phlaurent55]

Bonjour Laguamar,

ce petit code te dirigera vers mon site à l'ouverture du classeur

Private Sub Workbook_Open()
Set ie = CreateObject("internetexplorer.application")
ie.Navigate ("www.autourdelasoye.wordpress.com")
ie.Visible = True
End Sub

à+
Philippe

 

[Laguamar]

Du travail de pro mon cher Philippe ! C'est parfait. Merci beaucoup pour ton aide rapide et efficace !
A+

 

[Staple1600]

Bonsoir le fil, le forum

Excel sait le faire en natif et ce quel que soit le navigateur.
(le lien sera ouvert dans celui définit par défaut)

Private Sub Workbook_Open()
Dim URL$
URL = "https://www.excel-downloads.com/threads/lancer-automatiquement-un-lien-hypertexte-à-louverture-dun-classeur-excel.20020561/"
ThisWorkbook.FollowHyperlink URL, , True
End Sub

PS: Le code de phlaurent55 ne fonctionnera pas sur Excel Mac.

 

[Laguamar]

Bonsoir le fil, le forum

Excel sait le faire en natif et ce quel que soit le navigateur.
(le lien sera ouvert dans celui définit par défaut)

Private Sub Workbook_Open()
Dim URL$
URL = "https://www.excel-downloads.com/threads/lancer-automatiquement-un-lien-hypertexte-à-louverture-dun-classeur-excel.20020561/"
ThisWorkbook.FollowHyperlink URL, , True
End Sub

PS: Le code de phlaurent55 ne fonctionnera pas sur Excel Mac.

 

[Laguamar]

Salut,

Un big merci pour ton aide c'est bon à savoir. Vraiment super service les gars!
A+