Sujet Précédent Sujet Suivant

Help macro Excel !

Fermé
Xrag - 1 juin 2012 à 15:07
eriiic Messages postés 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 mai 2024 - 4 juin 2012 à 09:49
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 ;)



A voir également:

5 réponses

Réponse 1 / 5
eriiic Messages postés 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 mai 2024 7 216
4 juin 2012 à 09:49
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
2
Réponse 2 / 5
Xrag
3 juin 2012 à 19:55
Up !
0
Réponse 3 / 5
eriiic Messages postés 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 mai 2024 7 216
3 juin 2012 à 23:14
Bonsoir,

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

eric
0
Réponse 4 / 5
eriiic Messages postés 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 mai 2024 7 216
3 juin 2012 à 23:24
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
Xrag
4 juin 2012 à 08:48
Il faudrait que ça le fasse automatiquement pour tous les fichier dans le dossier et les sous dossiers.
0
eriiic Messages postés 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 mai 2024 7 216
4 juin 2012 à 08:57
Et bonjour, s'il te plait et merci ????
0
Xrag
4 juin 2012 à 09:27
Si il faut que je dise Bonjour et merci à tous mes messages j'ai pas finit... Mais passons...
Donc j'ai cette erreur pour le code que tu m'as donné : Method 'TextToDisplay' of object 'Hyperkink' failed

Merci d'avance.
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses