Help macro Excel ! Fermé

Question

Bonjour, 
Donc voilà, je suis actuellement en stage dans une entreprise et j'ai besoin de modifier les liens hypertexte dans plusieurs millier de fichier Excel... Donc dans les liens j'ai des %20 qui correspondent à des espaces et j'ai besoin de les remplacer par des _ ... Je risque de passer ma vie là dessus et j'aimerais trouver un moyen rapide de tout modifier ! 
Les classeurs se trouvent dans des dossiers et sous dossier et il y a également les fichiers HTML générés par excel à modifier... Pour les nom des fichiers nous avons déjà un programme !
Merci d'avance de vos réponses ;)



Configuration: Windows 7 / Safari 536.5

eriiic · Accepted Answer

Tu as affaire à des bénévoles (et pas à des larbins)  qui prennent de leur temps pour aider et merci est leur seul salaire.
Si la politesse te parait superflue je vais plutôt répondre à ceux à qui ça dit encore quelque chose...
eric

Xrag · Answer

Up !

eriiic · Answer

Bonsoir,

C'est le lien lui même ou ce qui est lisible dans la cellule qu'il faut reprendre ?

eric

eriiic · Answer

Bon, tu rayeras la mention inutile :
Sub MajLienHypertexte()
    Dim sh As Worksheet, hl As Hyperlink, a
    For Each sh In Sheets
        For Each hl In sh.Hyperlinks
            hl.Address = Replace(hl.Address, "%20", "_")
            hl.TextToDisplay = Replace(hl.TextToDisplay, "%20", "_")
        Next hl
    Next sh
End Sub

Agit sur toutes les feuilles du classeur actif.

eric

Xrag · Answer

Il faudrait que ça le fasse automatiquement pour tous les fichier dans le dossier et les sous dossiers.

Help macro Excel !

5 réponses

Discussions similaires