modification d'adresse dans lien hypertext

stf4 · 28 Novembre 2013

Bonjour,

J'ai essayer de retrouver une macro avec google qui fonctionne mais en vain ,alors si une ame charitable pouvait m'aider ce serait hyper cool :

Voila j'ai un classeur excel dans lequel il a des liens hypertexte qui point vers des fichiers pdf nommé (2013-1.pdf-2013.2.pdf etc...)

j'ai du changer l'emplacement du dossier des fichiers j'aimerai que mes liens pointent vers le dossier ci dessous et qu'il soit associer a leur fichier.

\\Ficsvc05\s_ass$\Commun\CTA - Département Exploitation et Maintenance des Ouvrages\Maintenance\Surveillants travaux\Vérification ouvrage\PLAN\2013

exemple de lien vers \\Ficsvc05\s_ass$\Commun\CTA - Département Exploitation et Maintenance des Ouvrages\Maintenance\Surveillants travaux\Vérification ouvrage\PLAN\2013\2013-1.pdf

ainsi de suite .

Voila le fichier ci joint merci de votre aides si vous pouviez me le modifier en conséquence merci d'avance

a bientot

BD

JNP · 28 Novembre 2013

Re : modification d'adresse dans lien hypertext

Bonjour
Si j'ai compris :

Code:

Sub Test()
Dim MonLien As Hyperlink, I As Integer
For Each MonLien In Sheets("Feuil1").Hyperlinks
    MonLien.Address = Replace(Replace(MonLien.Address, _
        "\Vérification ouvrage\", "\Vérification ouvrage\2013\"), _
        "/Vérification ouvrage/", "/Vérification ouvrage/2013/")
Next MonLien
End Sub

Bonne suite

stf4 · 29 Novembre 2013

Re : modification d'adresse dans lien hypertext

Merci JNP tu est un chef !

Ta macro fonctionne a merveille !

Bonne journée

modification d'adresse dans lien hypertext

stf4

XLDnaute Nouveau

Pièces jointes

JNP

XLDnaute Barbatruc

stf4

XLDnaute Nouveau

Discussions similaires