Recherche internet par cde VBA

Résolu/Fermé

mijean94 Messages postés 413 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 12 septembre 2024 - 13 mars 2016 à 00:33
mijean94 Messages postés 413 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 12 septembre 2024 - 13 mars 2016 à 20:08

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 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

A voir également:

Recherche internet par cde VBA
Recherche automatique des chaînes ne fonctionne pas - Guide
Gps sans internet - Guide
Recherche par image - Guide
Rechercher ou entrer l'adresse mm - recherche google - Guide
Recherche adresse - Guide

2 réponses

Réponse 1 / 2

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 712
13 mars 2016 à 09:55

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

Réponse 2 / 2

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 248
13 mars 2016 à 12:12

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

mijean94 Messages postés 413 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 12 septembre 2024 11
13 mars 2016 à 14:07

Bonjour à tous et merci pour vos réponses

Eriiic, je n'ai pas bien compris comment intégrer ton code dans celui de gbinforme .
Merci pour ta réponse

Bien cordialement

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 248
13 mars 2016 à 14:32

Il remplace ta ligne de code, complétée avec le paramètre TextToDisplay:=...
eric

mijean94 Messages postés 413 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 12 septembre 2024 11 > eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024
13 mars 2016 à 14:55

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

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 248
13 mars 2016 à 15:30

Non, excel ignore totalement ce que tu fais dans une autre appli.

Merci pour la réponse.
Bien cordialement

Discussions similaires

35 GO à l'étranger

Quel est l'équivalent 40 GO d'internet en heures ?

30 Go combien de temp d’internet

Je tiens combien de temps avec 2Go d'internet ?

Erreur d'exécution 13 Incompatibilité de type