Ouvrir un site internet à partir d'un bouton sous access

Réponse acceptée !
salut,

il suffit de mettre la bonne URL avec ta recherche en utilisant ShellExecute

çà donne ceci :
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
Public Sub OpenWiki(ByVal sExpression As String)
'   page de consultation
    ShellExecute 0&, "open", "http://fr.wikipedia.org/wiki/" & Replace(sExpression, " ", "_"), vbNullString, vbNullString, 1&
    
'   page de recherche
    ShellExecute 0&, "open", "http://fr.wikipedia.org/wiki/Special:Recherche?search=" & Replace(sExpression, " ", "+") & "&fulltext=Rechercher", vbNullString, vbNullString, 1&
End Sub


à utiliser comme çà :
OpenWiki "étique"

pas de vérif de l'existant par contre
++

---

Prenez un instant pour répondre à ce sondage svp  

Réponse acceptée !
Merci PCPT, réponse très pointue et qui fonctionne du feu de Dieu !
J'avais trouvé dans le forum cette astuce :
"AppActivate Shell("Explorer " & " [ Lien ]" & Me![MOT], 1),"

Bien qu'elle m'affiche la page de résultat, access se bloque sur une erreur 5, appel de procédure interdit.
L'avantage, c'est que cela me mettait mon navigateur au premier plan.
Pense-tu qu'on puisse y arriver quand même?
En parcourant les objets "windows", par exemple, mais je vois pas trop comment faire.

De plus tu a très bien anticipé en me proposant 2 actions : recherche et consultation. En effet, il arrive parfois que recherche ne donne rien, aors je fais consultation.
J'ai également paramétré "wiktionary" qui est pas mal aussi.

Merci encore

 Christian de Chartres

Réponse acceptée !
essaye éventuellement en remplaçant les 1& par cette constante :
Private Const SW_SHOWMAXIMIZED as long = 3&