Grand Debutant VBA | Macro pour ouvrir formules hypertextes
Bonjour à tous,
Après moult recherches, j'ai trouvé un seul topic sans réponse face à cette problématique.
Un grand merci d'avance pour votre aide!
Je souhaiterai ouvrir 100+ recherches google depuis excel.
Pour cela, j'utilise une formule hypertexte pour lancer une recherche google. Puis, j'ai trouvé un code VBA pour activer automatiquement tout les liens hypertextes d'une feuille donnée.
En regardant de plus près la formule, je me suis rendu compte que le lien hypertexte est inclus dans une formule Excel. C'est pourquoi le code ne fonctionne pas.
Voici quelques détails et un exemple de fichier ci-joint.
Formule:
=LIEN_HYPERTEXTE(CONCATENER("https://encrypted.google.com/search?hl=en&q=";[@Réponse]))
[@Réponse]: (=mots clefs de ma recherche google)
="Restaurant "&[@Restaurant]&" site internet mail @ "&[@[Prenom Nom]]
Code VBA:
Sub Ouvrir_Lien_Hypertexte()
Dim C As Range
On Error Resume Next
With Worksheets("Liste Globale") 'NOm Feuille à adapter
'adresse de la plage de cellules à adapter
For Each C In .Range("F2:F700")
C.Hyperlinks(1).Follow False
t = Timer + 1 'Délai d'une seconde pour permettre à
'chacune des fenêtres de s'afficher.
Do While Timer <= t
DoEvents
Loop
Next
End With
End Sub
J'aimerai ajouter à ce code : une action pour supprimer les accents et cédille, est ce possible ?
Merci pour votre aide !
Alexis
Petit Up quelqu'un peut m'aider s'il vous plait ?