Remplacement dans lien hypertextel
Résolu
Bonjour,
J'ai un grand fichier Excel (F1 depuis 1950) qui comprend des cellules hypertexte pour chaque grand prix. La société wikipédia ne supporte plus, depuis début novembre, le lien vers les informations de leus site.
En fait, je dois remplacer :
//wapedia.mobi/fr
par
//fr.wikipedia.org/wiki
dans chaque lien hypertexte
Comment faire en une seule opération ?
merci de votre aide
Francis
J'ai un grand fichier Excel (F1 depuis 1950) qui comprend des cellules hypertexte pour chaque grand prix. La société wikipédia ne supporte plus, depuis début novembre, le lien vers les informations de leus site.
En fait, je dois remplacer :
//wapedia.mobi/fr
par
//fr.wikipedia.org/wiki
dans chaque lien hypertexte
Comment faire en une seule opération ?
merci de votre aide
Francis
4 réponses
-
Bonjour CCM81
merci de votre réponse. Comme, je ne connais pas la manipulation des macros dans Excel, j'ai envoyé mon fichier et votre macro à une connaissance qui sait adapter les macros.
Mon fichier est en ordre et je vous remercie pour l'aide apportée.
Bonne journée.
Bien à vous.
Francis (Biwhite) -
Peut être via une petite macro
Option Explicit
Const s1 = "wapedia.mobi/fr"
Const s2 = "/fr.wikipedia.org/wiki"
Public Sub modiflht()
Dim L As String, cel As Range
For Each cel In Selection
If cel <> "" Then
L = cel.Hyperlinks(1).Address
L = Replace(L, s1, s2)
cel.Hyperlinks(1).Address = L
End If
Next cel
End Sub
Cdlmnt -
Merci de votre réponse, mais cela ne fonctionne pas.
la cellule est F1 France 1954( en bleu) le lien hypertexte qui est derriére est http://wapedia.mobi/fr/grand_ prix_ de_france_1954
qu'il faut remplacer par:
http://fr.wikipedia.org/wiki/grand_prix_de_france_1954
Il y a 850 cellules dans le fichier.
Il faut donc,modifier un lien hypertexte cacher derriére les cellules
avez-vous une idée ?
merci
Francis -
Bonjour
Je pense qu'en sélectionnant la plage à traiter et Edition/Remplacer .... puis Remplacer tout, ça devrait marcher
Cdlmnt
