Déplacer classeur excel comportant des liens entre eu

[delirium]

Bosoir à tous.

J'ai réalisé des classeurs excel comportant des liens entre eu (le classeur "conso" récupére les donnés dans "données"), et je voudrais que l'orsqu'il sont ouvert, il ne soit pas demandé aux utilisateurs si il veule mettre à jour (la mise à jour doit se réaliser automatiquement sans qu'il s'en appersoivent).

Pour cela j'ai réaliser une macro dans le classeur "Menu" qui permet de réaliser la mise à jour sans que l'utilisateur s'en appersoit et ouvre le classeur "conso".

Voici le code de ma macro (réalisé avec l'aide de l'enregistreur) :

Sub Macro1()
Application.AskToUpdateLinks = False
Workbooks.Open Filename:= _
"C:\Documents and Settings\BoxWoen\Bureau\désactive maj\conso.xls", _
UpdateLinks:=3
End Sub


Le problème est que sur m'on ordi cela fonctionne, mais lorsque ces classeurs sont utilisé sur un autre PC, cela ne fonctionne plus du fait que le chemin de répertoire n'est pas le même. Je voudrai que les utilisateur n'est pas à intervenir pour mettre à jours les différents liens.
Petite précision, tous ces classeur sont dans le même dossier.

Merci de votre aide et A+

 

[delirium]

A j'ai oublié mon fichier joint pour vous aider à comprendre.

A+

 

[LaurentTBT]

Salut, Delirium,

Si tes 2 classeurs sont dans le même répertoire, tu peux utiliser:
Workbooks.Open Filename:= ThisWorkbook.Path & "\conso.xls"…
ThisWorkbook.Path contient en Chaîne de caractère le chemin d'accès au classeur contenant la procédure en cours. Il faut ajouter le dernier \, puis le nom du classeur que tu veux ouvrir.

En espérant que cela répondra à tes soucis…

 

[delirium]

merci beaucoup de ton aide.
Ca semble marcher.

merci et A+