Remplacement dans lien hypertextel

Résolu/Fermé
biwhite - 29 nov. 2013 à 16:39
 biwhite - 3 déc. 2013 à 11:06
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

4 réponses

ccm81 Messages postés 10863 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 12 juin 2024 2 410
Modifié par ccm81 le 29/11/2013 à 18:05
Bonjour

Je pense qu'en sélectionnant la plage à traiter et Edition/Remplacer .... puis Remplacer tout, ça devrait marcher

Cdlmnt
0
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
0
ccm81 Messages postés 10863 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 12 juin 2024 2 410
29 nov. 2013 à 20:53
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
0
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)
0