Bonjour à tous,
Nouveau sur ce forum, j'ai une question:
j'ai un fichier excel 2007 contenant des cellules avec des liens hypertextes pointant sur des fichiers situés dans un répertoire.
Je souhaite déplacer ce fichier ainsi que le répertoire.
J'essaie donc de modifier automatiquement les adresses des liens mais évidemment le chercher/remplacer ne va pas dans les liens hypertextes (ce qui est bien dommage d'ailleurs!).
J'ai essayé un bout de code VBA trouvé quelque part sur internet, mais étant absolument novice sur VBA, cela ne fonctionne pas:
txt1 = "\\NomServeur\AncienRepertoire\AncienDossier\"
txt2 = "\\NomServeur\NouveauRepertoire\NouveauDossier\"
For Each lnk In ActiveSheet.Hyperlinks
If lnk.Type = 1 And InStr(lnk.Address, txt1) Then
lnk.Address = Replace(lnk.Address, txt1, txt2)
compteur = compteur + 1
End If
Next
MsgBox compteur & " liens trouvés et modifiés"
J'ai une erreur de débogage disant que l'instruction incorrecte à l'extérieur d'une expression ...
Merci à tous pour vos réponses!
Nouveau sur ce forum, j'ai une question:
j'ai un fichier excel 2007 contenant des cellules avec des liens hypertextes pointant sur des fichiers situés dans un répertoire.
Je souhaite déplacer ce fichier ainsi que le répertoire.
J'essaie donc de modifier automatiquement les adresses des liens mais évidemment le chercher/remplacer ne va pas dans les liens hypertextes (ce qui est bien dommage d'ailleurs!).
J'ai essayé un bout de code VBA trouvé quelque part sur internet, mais étant absolument novice sur VBA, cela ne fonctionne pas:
txt1 = "\\NomServeur\AncienRepertoire\AncienDossier\"
txt2 = "\\NomServeur\NouveauRepertoire\NouveauDossier\"
For Each lnk In ActiveSheet.Hyperlinks
If lnk.Type = 1 And InStr(lnk.Address, txt1) Then
lnk.Address = Replace(lnk.Address, txt1, txt2)
compteur = compteur + 1
End If
Next
MsgBox compteur & " liens trouvés et modifiés"
J'ai une erreur de débogage disant que l'instruction incorrecte à l'extérieur d'une expression ...
Merci à tous pour vos réponses!