Recherche site

[maval]

Bonsoir,

Voila j'ai un Userform avec un textbox auquel j'inscrit le nom d'un film et j'ai une combobox auquel je rentre le nom d'un site tel que "Allociné.com, Cinéfil.com ect...
j'aimerai si possible de me retrouver sur la page du nom de film choisie ainsi que le site choisie.
Ex: le film Duels et le site Allociné

Je vous remercie d'avance

 

[Staple1600]

Re : Recherche site

Bonsoir à tous

maval
Avant toute chose, voir les CGU de sites en question
et garder en mémoire le point 8 de la charte du forum.

8 - Les demandes de développements relatives à des extractions de données sur des sites interdisant ces pratiques dans leurs conditions générales sont interdites.

 

[maval]

Re : Recherche site

Bonjour JM

Je ne comprend pas. Je suis tous les jours sur le site Allociné pour prendre les renseignements sur les films et c'est le but du site. Je veut juste le code pour me rendre directement d'Excel vers le site je ne veut rien d'autre, il n'y a aucune extractions de données sur ces sites je ne veut pas être tricheur je ne veut pas de code spécial n'y de crack ect...
Sur ce je te souhaite une bonne journée

 

[maval]

Re : Recherche site

re bonjour,

En faite pour aller sur un site web le code est:

Private Sub CommandButton1_Click()
   Dim Fichier As String
     
    Fichier = "http://www.allocine.fr/film/" 
    ShellExecute 0, "", Fichier, "", "", 0
End Sub

Ce que je recherche c'est suivant le choix de la combobox

Merci d'avance

 

[Pierrot93]

Re : Recherche site

Bonjour,

peut être en modifiant cette partie comme suit :

Fichier = combobox1.value

à condition que l'adresse soit complète dans ta combo...

bonne journée
@+

 

[maval]

Re : Recherche site

Bonjour Pierrot

L'adresse et comme ceci:

  Private Sub UserForm_Initialize()
  ' Nom du Site
 With ComboBox1 ' Site
        .AddItem "Allociné.fr"
        .AddItem "Cinéfil.com "
        .AddItem "MovieCovers.com "
        .AddItem "YoVideo.net"
    End With
  End Sub
Private Sub CommandButton2_Click()
   Dim Fichier As String
     
    Fichier = ""
    ShellExecute 0, "", Fichier, "", "", 0
    Fichier = ComboBox1.Value
End Sub

Merci d'avance

 

[Pierrot93]

Re : Recherche site

Re,

Fichier = "http://www." & combobox1.value & "/film/"

 

[job75]

Re : Recherche site

Bonjour maval, salut Jean-Marie, Pierrot,

Sur "Allociné" la page du film "Duels" a pour adresse "http://www.allocine.fr/film/fichefilm_gen_cfilm=225485.html"

Le numéro 225485 est propre au site, on ne peut le connaître qu'avec un tableau de correspondance nom_film/numéro.

Il me semble que vous perdez votre temps.

A+

 

[maval]

Re : Recherche site

Bonjour Job75
Oui c'est exacte se que vous dite, en faite je recherche suivant le choix de la combobox le site en question "Allociné, Cinéfil ect.. et après je me tournerez vers le film choisie.

Merci et bonne journée

 

[job75]

Re : Recherche site

Re,

Alors il suffit de copier les adresses des sites comme ceci :

Private Sub CommandButton2_Click() 'Valider
Dim a$
Select Case ComboBox1.ListIndex
  Case -1: Exit Sub
  Case 0: a = "http://www.allocine.fr/"
  Case 1: a = "http://www.cinefil.com/"
  Case 2: a = "http://moviecovers.com/"
  Case 3: a = "http://www.yo-video.net/"
End Select
ThisWorkbook.FollowHyperlink a
End Sub

A+

 

[maval]

Re : Recherche site

Re,

merci beaucoup