recherche internet par cde VBARésolu/Fermé

Question

Bonjour,

J’utilise le code qui suit après modif (trouvé sur le net)  pour faire appel à Google image et ça marche bien, mais, 

L’adresse de recherche est insérée dans la cellule active de mon tableau !!!

Sub recherche_image()Dim mavar As String'*****monchoix = InputBox("Veuillez saisir un mot pour votre recherche")'*** choix sur google imageActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="https://www.google.fr/search?q=dessin+&gws_rd=ssl" & monchoix & "+noir+et+blanc&hl=fr&tbm=isch&tbo"'*****ActiveCell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=TrueEnd Sub


Serait-il possible de ne pas faire écrire l’adresse dans la cellule active ?

Merci pour votre aide.

Bien cordialement

gbinforme · Answer

Bonjour, 

Si tu ne veux pas toucher aux cellules tu peux le faire avec un "shape"
Sub recherche_image()
Dim mavar As String
'*****
mavar = InputBox("Veuillez saisir un mot pour votre recherche")
'*** choix sur google image
With ActiveSheet
    .Shapes.AddShape msoShapeRectangle, 1, 1, 11, 1
    .Shapes(1).Select
    .Hyperlinks.Add Anchor:=Selection.ShapeRange(1), Address:="http://www.google.fr/search?q=dessin+" & mavar & "+noir+et+blanc&hl=fr&tbm=isch&tbo"
    .Shapes(1).Hyperlink.Follow NewWindow:=False, AddHistory:=True
    .Shapes(1).Delete
End With
End Sub

eriiic · Answer

Bonjour,

à moins que tu ne veuilles afficher le mot recherché :
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="http://www.google.fr/search?q=dessin+" & monchoix & "+noir+et+blanc&hl=fr&tbm=isch&tbo", TextToDisplay:=monchoix 
eric

Recherche internet par cde VBA

2 réponses

Newsletters