Private Sub Workbook_Open()
Set ie = CreateObject("internetexplorer.application")
ie.Navigate ("www.autourdelasoye.wordpress.com")
ie.Visible = True
End Sub
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
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)
VB: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.