pb de guillemets dans une recherche Google dans macro Word VB
pb de guillemets dans une recherche Google dans macro Word VB - VB/VBA/VBS - Programmation
Marsh Posté le 05-12-2023 à 22:24:29
Tu dois encoder les " avec % et le code hexa du "
---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta
Sujets relatifs:
- TinyMCE et les alternatives proposant un Paste from Word correct
- VB Script - filtre tableau
- Recherche et Remplacement devant une image
- (Résolu) VBA Word et suppression de marques de paragraphe (lignes)
- Probleme copier/coller entre Excel et Word
- [RECHERCHE] Coup de pouce pour un site de groupe
- Assignation d'une macro à un raccourci-clavier
- Changer la couleur des liens déjà vus des résultats google search
- Recherche Framework pour appel d'API
- Macro qui s'exécute sur Personal.xlsb
Marsh Posté le 03-12-2023 à 15:52:50
Bonjour,
J'ai écrit une macro pour Word qui est censée ouvrir un nouvel onglet Firefox et rechercher dans Google la chaîne de caractère sélectionnée entre guillemets.
Tout marche bien sauf que les guillemets ne sont pas transmis à Firefox alors qu'ils sont bien dans la chaîne d'après le débogueur.
Quelqu'un aurait une idée ?
Merci à tous !
Voici la macro :
Sub OM_google_search()
'
'
Dim cheminFirefox As String
Dim argument As String
Dim selectedText As String
cheminFirefox = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"
selectedText = Selection.Text
selectedText = Replace(selectedText, " ", "+" )
argument = "-new-tab https://www.google.com/search?q=""" & selectedText & """"
Shell (cheminFirefox & " " & argument)
End Sub