Recherche internet par cde VBA
Résolu/Fermé
mijean94
Messages postés
394
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
8 novembre 2021
-
13 mars 2016 à 00:33
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 - 13 mars 2016 à 20:08
mijean94 Messages postés 394 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 8 novembre 2021 - 13 mars 2016 à 20:08
A voir également:
- Recherche internet par cde VBA
- Google recherche par image - Guide
- Recherche musique - Guide
- Gps sans internet - Guide
- Envoyer sms par internet - Guide
- Telecharger internet explorer - Télécharger - Navigateurs
2 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 680
13 mars 2016 à 09:55
13 mars 2016 à 09:55
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
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
14 mars 2024
7 210
13 mars 2016 à 12:12
13 mars 2016 à 12:12
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
394
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
8 novembre 2021
10
13 mars 2016 à 14:07
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, 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
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
14 mars 2024
7 210
13 mars 2016 à 14:32
13 mars 2016 à 14:32
Il remplace ta ligne de code, complétée avec le paramètre TextToDisplay:=...
eric
eric
mijean94
Messages postés
394
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
8 novembre 2021
10
>
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
14 mars 2024
13 mars 2016 à 14:55
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
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
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
14 mars 2024
7 210
13 mars 2016 à 15:30
13 mars 2016 à 15:30
Non, excel ignore totalement ce que tu fais dans une autre appli.
mijean94
Messages postés
394
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
8 novembre 2021
10
>
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
14 mars 2024
13 mars 2016 à 20:08
13 mars 2016 à 20:08
Merci pour la réponse.
Bien cordialement
Bien cordialement