Question : Comment mettre à jour des liens hypertextes dans Excel 2003 ?

J'ai un utilisateur qui a un dossier d'Excel avec une colonne pour des liens hypertextes. Ces liens indiquent un endroit dans notre serveur d'archivage. En raison de la consolidation de serveur nous avions déplacé les données à un autre serveur. Maintenant les liens dans le dossier d'exceler doit être mis à jour. Il y a environ 2000 lignes des liens indiquant tout le même serveur mais différents endroits. Pour par exemple. Row1 --> \ \ département de serverx \ capitaux \ prod.pdf,
Row2 --> \ \ serverx \ contrée lointaine \ prod2.pdf.

Is là une manière de mettre à jour tous les liens avec le nouveau servername ?

class= de

Réponse : Comment mettre à jour des liens hypertextes dans Excel 2003 ?

Il n'est pas entièrement clair comment présenté mais essayer le suivant qui remplace le serverx par le servery pour tous les liens hypertextes sur l'activesheet.

Remplacer évidemment les cordes de bothe dans le sous-marin pour les valeurs réelles requises

Chris

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 :

redirectLink secondaire () Faible rng comme gamme Pour chaque rng dans ActiveSheet.UsedRange.Cells Si rng. Hyperlinks.Count = 1 puis Avec le rng. Liens hypertextes (1) . L'adresse = remplacent (. Adresse, « ServerX », « ServerY », 1, vbTextCompare) .TextToDisplay = remplacent (.TextToDisplay, « ServerX », « ServerY », 1, le vbTextCompare) Extrémité avec Finir si Après Sous-marin d'extrémité