Recherche site

Staple1600

XLDnaute Barbatruc

• 20 Mai 2015

• #2

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.

Cliquez pour agrandir...

 

Dernière édition: 21 Mai 2015

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 21 Mai 2015

• #3

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 21 Mai 2015

• #4

Re : Recherche site

re bonjour,

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

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 21 Mai 2015

• #5

Re : Recherche site

Bonjour,

peut être en modifiant cette partie comme suit :

Code:

Fichier = combobox1.value

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

bonne journée
@+

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 21 Mai 2015

• #6

Re : Recherche site

Bonjour Pierrot

L'adresse et comme ceci:

Code:

  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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 21 Mai 2015

• #7

Re : Recherche site

Re,

Code:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Mai 2015

• #8

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+

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 21 Mai 2015

• #9

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Mai 2015

• #10

Re : Recherche site

Re,

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

Code:

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+

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 21 Mai 2015

• #11

Re : Recherche site

Re,

merci beaucoup

 

Vote positif 0 Vote négatif