Discussion :

[morobaboumar]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

?

- Pièce jointe

Merci infiniment

[tee_grandbois]

bonjour,
avec FollowHyperlink, tout simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[morobaboumar]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tee_grandbois]

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 ?

[morobaboumar]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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