Discussion :

[chahnou]

Bonjour
J’ai un formulaire qui contient deux champs : Famille & désignation
Je veut créer un bouton de commande ou une macro qui cherche le mot (famille+designation) sur google image
Exemple
Rechercher l article azzaro 3615


merci

[LedZeppII]

Bonjour,

Voici une piste avec cet exemple de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim sUrl As String
Dim sRechArt As String, sRechFam As String
Dim oShell As Object
 
sRechFam = "azzaro"
sRechArt = "3615"
sUrl = "http://www.google.fr/search?tbm=isch&q=" & _
       Replace(sRechFam, " ", "%20") & _
       "+" & _
       Replace(sRechArt, " ", "%20")
 
Set oShell = CreateObject("Shell.Application")
oShell.Open (sUrl)
Set oShell = Nothing

A+

[chahnou]

merci beacoup
c'est reglé

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
Private Sub Commande42_Click()
Dim sUrl As String
Dim sRechArt As String, sRechFam As String
Dim oShell As Object
 
sRechFam = (FAMILLE)
sRechArt = (Designation)
sUrl = "http://www.google.fr/search?tbm=isch&q=" & _
       Replace(sRechFam, " ", "%20") & _
       "+" & _
       Replace(sRechArt, " ", "%20")
 
Set oShell = CreateObject("Shell.Application")
oShell.Open (sUrl)
Set oShell = Nothing
End Sub:)