Ouvrir un Site internet avec un control liste déroulante

Bonjour Membres du forum!
Dites moi comment ouvre t on un site sélectionné dans le Control liste déroulante grâce au code

Code:

---

ShellExecute Me.hwnd, "open", "ici la référence du site sélectionné", "", CurrentProject.Path, 1

---

?

- Pièce jointe

Merci infiniment

bonjour,
avec FollowHyperlink, tout simplement :

Code:

---

1 2 3 4

Private Sub OuvrirSiteSelectionne_AfterUpdate() 'ShellExecute Me.hwnd, "open", Me.SITE_INTERNET, "", CurrentProject.Path, 1 Application.FollowHyperlink Me.OuvrirSiteSelectionne End Sub

---

mais il faut enlever SITE_INTERNET dans source contrôle de la liste OuvrirSiteSelectionne

Salut membres du forum !
Je viens de trouver une solution suivante:

[CODE]['Déclaration de Comment ouvrir un fichier HTML, Word, PDF ou autre en utilisant l'exécutable associé ?
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
/CODE]
Voici le code du bouton de commande:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub OuvrirSiteSelectionne_AfterUpdate() If Me.OuvrirSiteSelectionne = "http://www.developpez.com" Then ShellExecute Me.hwnd, "open", "http://www.developpez.com", "", CurrentProject.Path, 1   ElseIf Me.OuvrirSiteSelectionne = "http://www.developpez.net" Then ShellExecute Me.hwnd, "open", "http://www.developpez.net", "", CurrentProject.Path, 1   ElseIf Me.OuvrirSiteSelectionne = "http://www.michelin.fr" Then ShellExecute Me.hwnd, "open", "http://www.michelin.fr", "", CurrentProject.Path, 1   ElseIf Me.OuvrirSiteSelectionne = "https://www.facebook.com" Then ShellExecute Me.hwnd, "open", "https://www.facebook.com", "", CurrentProject.Path, 1   ElseIf Me.OuvrirSiteSelectionne = "https://www.google.com" Then ShellExecute Me.hwnd, "open", "https://www.google.com", "", CurrentProject.Path, 1 End If End Sub

---

Par contre, je souhaite trouver le code simplifié qui ouvrirais le site le site sélectionné dans le
contrôle liste déroulante"OuvrirSiteSelectionne" du formulaire "Tbl_SITE_Internet"

Très cordialement

Citation:

---

Par contre, je souhaite trouver le code simplifié qui ouvrirais le site le site sélectionné dans le
contrôle liste déroulante"OuvrirSiteSelectionne" du formulaire "Tbl_SITE_Internet"

---

as-tu regardé ma solution ?

Salut membres du forum !
Recevez tous mes reconnaissances et remerciements.
La solution de tee_grandbois est très efficace par rapport à la mienne.
J'opte pour la solution de tee_grandbois:

bonjour,
avec FollowHyperlink, tout simplement :

Code:

---

1 2 3 4

Private Sub OuvrirSiteSelectionne_AfterUpdate() 'ShellExecute Me.hwnd, "open", Me.SITE_INTERNET, "", CurrentProject.Path, 1 Application.FollowHyperlink Me.OuvrirSiteSelectionne End Sub

---

mais il faut enlever SITE_INTERNET dans source contrôle de la liste OuvrirSiteSelectionne