1. #1
    Nouveau membre du Club Avatar de morobaboumar
    Inscrit en
    septembre 2009
    Messages
    113
    Détails du profil
    Informations forums :
    Inscription : septembre 2009
    Messages : 113
    Points : 39
    Points
    39

    Par défaut 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 : 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
    Fichiers attachés Fichiers attachés
    Le savoir est la lumière de l'esprit
    Le chemin de la réussite

    Qui cherche positivement trouve
    Tout ce qui brille n'est pas l'or ou diamant
    Mais l'or et le diamant se trouvent avec sagesse, intelligence et effort

  2. #2
    Membre expert
    Avatar de tee_grandbois
    Homme Profil pro
    retraité mais encore activé
    Inscrit en
    novembre 2004
    Messages
    1 944
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 60
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : retraité mais encore activé

    Informations forums :
    Inscription : novembre 2004
    Messages : 1 944
    Points : 3 309
    Points
    3 309

    Par défaut

    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

  3. #3
    Nouveau membre du Club Avatar de morobaboumar
    Inscrit en
    septembre 2009
    Messages
    113
    Détails du profil
    Informations forums :
    Inscription : septembre 2009
    Messages : 113
    Points : 39
    Points
    39

    Par défaut Une solution trouvée

    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
    Le savoir est la lumière de l'esprit
    Le chemin de la réussite

    Qui cherche positivement trouve
    Tout ce qui brille n'est pas l'or ou diamant
    Mais l'or et le diamant se trouvent avec sagesse, intelligence et effort

  4. #4
    Membre expert
    Avatar de tee_grandbois
    Homme Profil pro
    retraité mais encore activé
    Inscrit en
    novembre 2004
    Messages
    1 944
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 60
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : retraité mais encore activé

    Informations forums :
    Inscription : novembre 2004
    Messages : 1 944
    Points : 3 309
    Points
    3 309

    Par défaut

    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 ?

  5. #5
    Nouveau membre du Club Avatar de morobaboumar
    Inscrit en
    septembre 2009
    Messages
    113
    Détails du profil
    Informations forums :
    Inscription : septembre 2009
    Messages : 113
    Points : 39
    Points
    39

    Par défaut Remerciement

    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
    Le savoir est la lumière de l'esprit
    Le chemin de la réussite

    Qui cherche positivement trouve
    Tout ce qui brille n'est pas l'or ou diamant
    Mais l'or et le diamant se trouvent avec sagesse, intelligence et effort

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Site internet avec ascenceur
    Par Fala fala dans le forum Balisage (X)HTML et validation W3C
    Réponses: 4
    Dernier message: 18/07/2007, 18h39
  2. Problème pour ouvrir un site internet
    Par emma07 dans le forum Access
    Réponses: 6
    Dernier message: 31/05/2006, 09h25
  3. Réponses: 3
    Dernier message: 22/05/2006, 10h03
  4. Application web / Site internet avec delphi ??
    Par DarkChamallo dans le forum Web & réseau
    Réponses: 6
    Dernier message: 14/03/2006, 13h51
  5. Site internet avec dons PAYPAL
    Par LhIaScZkTer dans le forum E-Commerce
    Réponses: 7
    Dernier message: 25/01/2006, 16h25

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo