Ouvrire une url composé en partie d'un champ d'un formulaire

Marsh Posté le 08-09-2002 à 01:33:47

Voila, je voudrais m faire une petite base de données pour ranger mes films.
Je voudrais q'en cliquant sur un bouton on lance automatiquement la partie recherche d'allocine concaténé au titre du film
Champ [titre] = "La planete des singes"
ouvre l'application iexplorer.exe avec comme paramètre "http://www.allocine.fr/recherche/default.html?motcle=" et collé ensuite la valeur de [Titre]

Genre le code généré par l'assistant :
Private Sub Commande11_Click()
On Error GoTo Err_Commande11_Click

Dim stAppName As String

stAppName = "C:\Program Files\Internet Explorer\IEXPLORE.EXE"
Call Shell(stAppName, 1)

Exit_Commande11_Click:
Exit Sub

Err_Commande11_Click:
MsgBox Err.Description
Resume Exit_Commande11_Click

End Sub

kes ke je peux modifier la dedans pour que ça marche ?

merci d'avance

Marsh Posté le 08-09-2002 à 01:33:47

Marsh Posté le 17-09-2002 à 17:14:30

normalement cette fonction devrait marcher:

Code :

Private Sub ChercheFilm(NomFilm As String)
Dim strApp As String
Dim X As Long
strApp = "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & _
"http://www.allocine.fr/recherche/default.html?motcle=" & NomFilm
X = Shell(strApp, vbNormalFocus)
End Sub

Marsh Posté le 09-10-2002 à 00:28:04

Ah merci je vais essayer

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *