Recherche internet par cde VBA [Résolu/Fermé]
Signaler
mijean94
mijean94
- Messages postés
- 341
- Date d'inscription
- mercredi 16 décembre 2015
- Statut
- Membre
- Dernière intervention
- 7 novembre 2019
mijean94
- Messages postés
- 341
- Date d'inscription
- mercredi 16 décembre 2015
- Statut
- Membre
- Dernière intervention
- 7 novembre 2019
A voir également:
- Recherche internet par cde VBA
- Recherche internet par cde VBA ✓ - Forum - Excel
- Recherche internet - Articles
- Changer moteur de recherche internet explorer - Guide
- Trouver une information sur Internet - Conseils pratiques - Moteurs de recherche
- Recherche internet par photo - Guide
2 réponses
gbinforme
- Messages postés
- 14934
- Date d'inscription
- lundi 18 octobre 2004
- Statut
- Contributeur
- Dernière intervention
- 24 juin 2020
Bonjour,
Si tu ne veux pas toucher aux cellules tu peux le faire avec un "shape"
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
- Messages postés
- 23802
- Date d'inscription
- mardi 11 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 16 janvier 2021
Bonjour,
à moins que tu ne veuilles afficher le mot recherché :
eric
à 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
- 341
- Date d'inscription
- mercredi 16 décembre 2015
- Statut
- Membre
- Dernière intervention
- 7 novembre 2019
- Messages postés
- 23802
- Date d'inscription
- mardi 11 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 16 janvier 2021
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
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
mijean94
- Messages postés
- 341
- Date d'inscription
- mercredi 16 décembre 2015
- Statut
- Membre
- Dernière intervention
- 7 novembre 2019
- Messages postés
- 23802
- Date d'inscription
- mardi 11 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 16 janvier 2021
Merci pour la réponse.
Bien cordialement
Bien cordialement