Recherche internet par cde VBA
Résolu
mijean94
Messages postés
413
Date d'inscription
Statut
Membre
Dernière intervention
-
mijean94 Messages postés 413 Date d'inscription Statut Membre Dernière intervention -
mijean94 Messages postés 413 Date d'inscription Statut Membre Dernière intervention -
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 !!!
Serait-il possible de ne pas faire écrire l’adresse dans la cellule active ?
Merci pour votre aide.
Bien cordialement
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 image
ActiveCell.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:=True
End Sub
Serait-il possible de ne pas faire écrire l’adresse dans la cellule active ?
Merci pour votre aide.
Bien cordialement
2 réponses
-
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 -
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
-
-
Il remplace ta ligne de code, complétée avec le paramètre TextToDisplay:=...
eric- Re,
Merci, ça marche très bien.
Y a t-il une solution pour après avoir choisi une image, la sauvegarder dans un répertoire, ça pas de problème clic droit et sauvegarde image, mais ce que j'aimerai c'est pouvoir revenir automatiquement sur mon programme Excel après la sauvegarde et donc quitter internet.
Bien cordialement
-
Non, excel ignore totalement ce que tu fais dans une autre appli.
-
