Liens Hypertexte : modif de la racine sur 1000 lignes...

[Lapou]

Bonjour le Forum !!!

Je viens vous voir en ce milieu de semaine pour un tit souci que j'ai rencontré :
j'ai environ 1000 lignes de données avec sur le colonne C des liens hypertextes.

Or, je ne sais pas pourquoi, certains de ces liens ont changés (comme si au départ ils étaient en relatif !!!
---> Le liens que je souhaiterais : \\PEV12UX\PEV-USERS\jtardy\Mes Docs\EXCEL\Ressources_excel\MATHS_PHYSIQUE\Caracteristique_elec.xls
--->Le lien que je peut avoir : C:\Documents and Settings\jtardy\Application Data\Microsoft\Excel\Ressources_excel\MATHS_PHYSIQUE\Caracteristique_elec.xls et dans ce cas il n'arrive plus à ouvrir le fichier !

Donc ma question est comment faire pour que si j'ai des liens qui commencent par C:..., ils soient remplacés par \\PEV12... ?
Ceci par macro ou autre je suis preneur ;-)

Une autre tite question :
mon SOMMAIRE se trouve au niveau du dossier "Ressources_excel", donc est-ce que si je mets tt le dossier sous zip et que je le déplace n'importe où les liens seront toujours ok ? car en gros il ira tjs chercher dans des sous-répertoire de "Ressources_excel"

Si vous avez de meilleur solution je suis à votre écoute ;-)

Merci à vous tous et bonne journée !
Tchao

 

[Lapou]

j'ai oublié de vous dire : je suis sur excel 2002 (10.2614.2625)

Tchao

 

[@+Thierry]

Bonjour Lapou, le Forum

Je suis à la bourre mais tu trouveras la syntax pour écrire par VBA des Lien Hypertext facilement avec le moteur de Recherche... Il y a même eu des démos)

Par contre ton problème peut se reproduire car comme tu l'as dit EXcel peut interpreter les liens commé étant relatifs, pour éviter cet inconvénient, je pense que tu dois aller dans la fenêtre Propriété du Classeur (Menu Fichier / Propriété) et indiquer dans "Répertoire Web" :
\\PEV12UX\PEV-USERS\jtardy\Mes Docs\EXCEL\Ressources_excel\
(Ce qui semble être la racine principale commune)

Bon Courage
@+Thierry

 

[Lapou]

Bonjour Thierry, le Forum !!!

j'ai trouvé ce code :

Private Sub Workbook_Open()
Dim Cell As Range
Dim Txt As String

On Error Resume Next
For Each Cell In Sheets("Feuil1").UsedRange.Cells
Txt = Cell.Hyperlinks(1).TextToDisplay
Cell.Hyperlinks(1).TextToDisplay = Application.Substitute (Txt, "file:///C:\Documents and Settings\jtardy\Application Data\Microsoft", "\\PEV12UX\PEV-USERS\jtardy\Mes Docs")
Next Cell
End Sub

mais cela ne change rien du tout...

je ne vois pas pkoi !

Merci pour votre aide

 

[Lapou]

que je le mette aussi bien en workbook_open oubien button_click, ce qui est logique vu que ça n'a rien à voir je pense ;-)

 

[Lapou]

Bonjour le Forum !!!

Je me permets de faire une tite relance pour le code car cela ne marche pas ! Ou plutôt je n'y parvient pas ;-)

Merci pour votre patience
Tchao

 

[Lapou]

Re: Liens Hypertexte : toujours la même cible...

Bonjour le forum !!!

Je vais orienter ma recherche dans une autre idée vu que celle-ci n'inspire pas gd monde ;-)

Comment puis-je procéder pour que mon lien hypertexte aille toujours chercher le document en sachant qu'il se trouvera toujours au même endroit mais pas forcément sur le même disque ou autre...

Exemple...
C:\Documents and Settings\jtardy\Application Data\Microsoft\Excel\Ressources_excel\MATHS_PHYSIQUE\Caracteristique_elec.xls
\\PEV12UX\PEV-USERS\jtardy\Mes Docs\EXCEL\Ressources_excel\MATHS_PHYSIQUE\Caracteristique_elec.xls

dans le 1er lien il va sur C:, dans l'autre sur un serveur,...mais dans tout les cas il sera dans \EXCEL\Ressources_excel\...

Alors ma question est : est-il possible de lui donner un lien qui va chercher dans ces dossiers là, quelque soit le serveur par exemple ou bien plutôt lui dire qu'à chaque ouverture du fichier il remplace le début du lien par le lieu de stockage que je lui aurait défini ?

Merci à vous tous !
Bonne journée
Tchao

 

[Smoke666]

Heu je vais peut etre dire une betise mais en te lisant il m'est venu une idée...

en gros tu souhaite trouver ton fichier meme si son repertoire a changé ?

pourquoi ne lancerais tu pas un bon vieux filesearch de derriere les fagot pour trouver ton fichier et ensuite le lancer ?

With Application.FileSearch
    .LookIn = "c:\my documents"
    .FileType = msoFileTypeExcelWorkbooks
    .Execute
End With