macro de lien hypertexte sur reseau...

[BelTitou]

Bonjour tout le monde, voici mon soucis:
j'ai une macro qui cré differents classeurs automatiquement ainsi que le lien hypertexte pour y acceder d'après une adresse crée par differentes variables. Quand tous mes classeurs sont sur mon DD local, pas de soucis ca marche...
Par contre quand je mets tout le monde sur le reseau et que j'y accede depuis un autre poste, les classeurs se créent bien au bon endroit mais les liens hypertexte ne se font pas comme prévu: au lieu de me créer une adresse du type "///\\serveur\partage\classeur.xls" il me cré une adresse du type "../../partage/classeur.xls"

je ne vois pas comment faire pour que le lien soit correct...

ci apres la definition de mes variables et la macro de création de liens hypertexte:

' Définition Variables
Dim Code_Affaire, Chemin_Base, Chemin_Final, Chemin_Modeles As String
Dim Fichier_Temps, Fichier_Chiffrage, Fichier_Renseignments As String
Dim Fichier_Liste_Clients As String
Chemin_Base = "\\serveur\serveur\suivi-d-affaires" & "\affaires-2009\"
Code_Affaire = Sheets("calcul-suivi").[T13].Value
Code_Affaire_Client_Projet = Sheets("calcul-suivi").[T13].Value _
& " - " & Sheets("calcul-suivi").[X29].Value _
& " - " & Sheets("calcul-suivi").[X30].Value
Chemin_Final = Chemin_Base & Code_Affaire_Client_Projet & "\"
Chemin_Modeles = "\\serveur\serveur\suivi-d-affaires" & "\00-modeles\*"
Chemin_Echanges = Chemin_Base & Code_Affaire_Client_Projet & "\02-donnees-echanges\"
Dim Prout As New FileSystemObject
Fichier_Chiffrage = Chemin_Final & Code_Affaire & "-chiffrage.xls"
Fichier_Temps = Chemin_Final & Code_Affaire & "-temps.xls"
Fichier_Renseignements = Chemin_Final & Code_Affaire & "-renseignements.xls"
Fichier_Devis = Chemin_Final & Code_Affaire & "-devis.xls"
Fichier_BL = Chemin_Final & Code_Affaire & "-bon-livraison.xls"
Fichier_Liste_Clients = "\\serveur\serveur\suivi-d-affaires\liste-clients-2009.xls"
'
' macro_liens_hypertexte
Windows("affaires-2009.xls").Activate
Sheets("tableau-global").Select
Range("BG3").Select
ActiveCell.FormulaR1C1 = Code_Affaire
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Chemin_Echanges, TextToDisplay:=Code_Affaire & " - échanges"
Range("DA3").Select
ActiveCell.FormulaR1C1 = Code_Affaire & "-chiffrage.xls"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Fichier_Chiffrage, TextToDisplay:=Code_Affaire & "-chiffrage.xls"
Range("DB3").Select
ActiveCell.FormulaR1C1 = Code_Affaire & "-temps.xls"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Fichier_Temps, TextToDisplay:=Code_Affaire & "-temps.xls"
Range("DC3").Select
ActiveCell.FormulaR1C1 = Code_Affaire & "-renseignements.xls"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Fichier_Renseignements, TextToDisplay:=Code_Affaire & "-renseignements.xls"
Range("DD3").Select
ActiveCell.FormulaR1C1 = Code_Affaire & "-devis.xls"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Fichier_Devis, TextToDisplay:=Code_Affaire & "-devis.xls"
Range("DE3").Select
ActiveCell.FormulaR1C1 = Code_Affaire & "-bon-livraison.xls"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Fichier_BL, TextToDisplay:=Code_Affaire & "-bon-livraison.xls"
'

merci d'avance