modifier des liens unc automatiquement dans des .xls
1 réponse
nico
Bonjour, je cherche une moulinette qui me permette de=20
modifier automatiquement des liens UNC (sous la forme=20
\\serveur\partage\fichier ) dans des fichiers .xls et ceci=20
sur plusieurs fichiers. Pour informations, j'ai plusieurs=20
milliers de fichiers o=F9 je dois modifier l'identit=E9 du=20
serveur (le partage restant le m=EAme).=20
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Alain CROS
Bonjour.
Cette macro modifie tous les liens du classeur actif. Je te laisse le soin de boucler sur tous les fichiers qui t'intéresse.
Sub ChangeServeur() Dim Hyp As Hyperlink, Cible$, LaDress$, Ws As Worksheet For Each Ws In ThisWorkbook.Worksheets For Each Hyp In Ws.Hyperlinks With Hyp Cible = Application.Substitute(.Address, "serveur", "nouveauserveur") LaDress = .Range.Address(, , , True) .Delete End With Ws.Hyperlinks.Add Range(LaDress), Cible Next Hyp Next Ws Set Hyp = Nothing Set Ws = Nothing End Sub'AC
Alain CROS.
"nico" a écrit dans le message de news: 94d401c3ea60$ffec6bb0$ Bonjour, je cherche une moulinette qui me permette de modifier automatiquement des liens UNC (sous la forme serveurpartagefichier ) dans des fichiers .xls et ceci sur plusieurs fichiers. Pour informations, j'ai plusieurs milliers de fichiers où je dois modifier l'identité du serveur (le partage restant le même).
Merci pour vos réponses.
Cordialement
Bonjour.
Cette macro modifie tous les liens du classeur actif.
Je te laisse le soin de boucler sur tous les fichiers qui t'intéresse.
Sub ChangeServeur()
Dim Hyp As Hyperlink, Cible$, LaDress$, Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
For Each Hyp In Ws.Hyperlinks
With Hyp
Cible = Application.Substitute(.Address, "\serveur", "\nouveauserveur")
LaDress = .Range.Address(, , , True)
.Delete
End With
Ws.Hyperlinks.Add Range(LaDress), Cible
Next Hyp
Next Ws
Set Hyp = Nothing
Set Ws = Nothing
End Sub'AC
Alain CROS.
"nico" <littletitan@free.fr> a écrit dans le message de news: 94d401c3ea60$ffec6bb0$a501280a@phx.gbl...
Bonjour, je cherche une moulinette qui me permette de
modifier automatiquement des liens UNC (sous la forme
\serveurpartagefichier ) dans des fichiers .xls et ceci
sur plusieurs fichiers. Pour informations, j'ai plusieurs
milliers de fichiers où je dois modifier l'identité du
serveur (le partage restant le même).
Cette macro modifie tous les liens du classeur actif. Je te laisse le soin de boucler sur tous les fichiers qui t'intéresse.
Sub ChangeServeur() Dim Hyp As Hyperlink, Cible$, LaDress$, Ws As Worksheet For Each Ws In ThisWorkbook.Worksheets For Each Hyp In Ws.Hyperlinks With Hyp Cible = Application.Substitute(.Address, "serveur", "nouveauserveur") LaDress = .Range.Address(, , , True) .Delete End With Ws.Hyperlinks.Add Range(LaDress), Cible Next Hyp Next Ws Set Hyp = Nothing Set Ws = Nothing End Sub'AC
Alain CROS.
"nico" a écrit dans le message de news: 94d401c3ea60$ffec6bb0$ Bonjour, je cherche une moulinette qui me permette de modifier automatiquement des liens UNC (sous la forme serveurpartagefichier ) dans des fichiers .xls et ceci sur plusieurs fichiers. Pour informations, j'ai plusieurs milliers de fichiers où je dois modifier l'identité du serveur (le partage restant le même).
