vba lien url https en http

bonjour
j'ai un lien mail de google sur excel comme ceci
Pièce jointe 300582
j'aimerais remplacer https par http mais bizarrement c'est impossible
bizarre non?
si vous avez une piste .merci d'avance

Code:

---

1 2 3 4

For Each c In range(Selection.Address) c.offset(0,1) = c.Value.Replace("https", "http") Next c

---

Bonjour,
La syntaxe de la fonction Replace n'est pas bonne. Comme ceci c'est mieux

Code:

---

c.Offset(0, 1) = Replace(c.Value, "https", "http")

---

Par contre, tu peux utiliser la méthode Replace de l'objet Range avec cette syntaxe

Code:

---

Selection.Replace "https", "http"

---

merci philippe
j'ai réussi à faire comme celà grace à ta 1er méthode

Code:

---

1 2 3 4 5

For Each c In range(Selection.Address) i = i + 1 c.Value = Replace(c.Value, "https", "http") ActiveSheet.Hyperlinks.Add Anchor:=c, Address:=c.Value, TextToDisplay:=text_deb & "-" & i Next c

---

mais pour la 2em methode on ferait comment avec

Code:

---

Selection.Replace "https", "http"

---

Bonjour,
La première procédure utilise la fonction Replace, la seconde utilise la méthode Replace de l'objet Range qui est l'équivalent de la boîte de dialogue Chercher/Remplacer.
Donc pour l'utiliser, tu dois placer cette procédure nommée par exemple FindReplace dans un module quelconque.

Code:

---

1 2 3

Sub FindReplace() Selection.Replace "https", "http" End Sub

---

Ensuite, tu sélectionnes la plage de données qui contient les adresses URL dont tu veux remplacer le mot https par http et enfin tu lances la procédure FindReplace.