Discussion :

[mouftie]

Bonjour,

Je dois livrer des fichiers avec des macros, dont un en particulier "Accueil" contient toutes les macros communes aux autres fichiers.
Mon problème c'est qu'à chaque fois qu'on déplace les fichiers, les liens ne fonctionnent plus.
Donc je voudrais automatiser l'adresse du fichier "Accueil", dans tous les autres fichiers

J'ai trouvé ce code, mais cela ouvre une boite de dialogue et même si on choisit le fichier Accueil, les liens ne sont pas pris en compte...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
'Macro de Michael Johnston
Application.AskToUpdateLinks = False
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources

Ce que je voudrais automatiser c'est la fenêtre "Modifer les liaisons" / modifier la source / et forcer le chemin du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

VBA.Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\")) & "Admin\Accueil.xlsm"

ou alors, dans une feuille (commune à chaque fichier), modifier l'affectation d'une macro à une image, en imposantf le chemin ci-dessus

Est-ce que qq'1 peut m'aider, svp ?
Merci

[Philippe Tulliez]

Bonjour,
Je ne sais pas quelle est l'arborescence des répertoires contenant les fichiers à ouvrir
Pour ma part, j'organise toujours les liaisons avec des sous-répertoires du répertoire où se trouve le classeur maître (celui où se trouve les liaisons). Cela permet de créer des liaisons relatives plutôt qu'absolues ce qui permet de déplacer le répertoire complet sans rompre la liaison.
Je privilégie également la fonction LIEN_HYPERTEXTE bien plus intéressante et dynamique.

Plusieurs billets sur le sujet

• Ouvrir un classeur à l'aide de la fonction LIEN_HYPERTEXTE
• La fonction LIEN_HYPERTEXTE et l'ouverture de répertoire
• Comment atteindre un signet de Word depuis Excel à l’aide de la fonction LIEN_HYPERTEXTE
• Excel – Comment atteindre une cellule du classeur à l’aide de la fonction LIEN_HYPERTEXTE ?

[mouftie]

Bonjour Phillippe,

Tu as déjà fait cette réponse à qq'1 et j'ai retenu la leçon ; c'est ce que j'essaye de faire
Le pb, c'est que pour faire ma livraison, je dois mettre tous les fichiers dans un répertoire d'un serveur dédié et les utilisateurs doivent aller les chercher puis les ranger selon l'arborescence que j'ai choisi, répertoire principal pour le fichier maitre et un sous répertoire où se trouvent les autres, qui s'ouvrent par lien hypertexte.
Mais les utilisateurs se retrouvent avec le lien de mon fichier de travail...
D'ailleurs, moi même, quand je fais une sauvegarde sur ma clé usb, pour bosser chez moi, les liens restent ceux du bureau, et si je les change, au bureau, je me retrouve avec ceux de chez moi

J'ai limité au maximum, il n'y a qu'une seule macro qui est dans le fichier maître et qui doit être lancé à partir des autres fichiers...

Merci quand même pour le conseil.

[Philippe Tulliez]

Bonjour Mouftie,
Il y a une solution à tout, il suffit d'être créatif.
En ce qui concerne les liens qui sont différents suivant que l'on se trouve au bureau ou au domicile. Une solution si les PC sont différents serait de prévoir un fichier ini ou txt qui donne le chemin du répertoire principal
Si le PC est le même et qu'il est possible de repérer l'environnement où l'on se trouve, prévoir deux chemins automatiques si ce n'est pas possible de le repérer. Prévoir également deux chemins mais poser la question avant de démarrer Bureau/Domicile et dans le LIEN_HYPERTEXTE prévoir soit une cellule Excel dans une feuille paramètre, soit un fichier INI ou TXT contenant le répertoire principal que l'on concatène avec le sous-répertoire

[mouftie]

Merci Philippe,

J'ai trouvé ça dans le forum :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveWorkbook.ChangeLink Name:="H:\Fichiers Excel\AncienFichier.xls", NewName _
        :="H:\Fichiers Excel\NouveauFichier.xls", Type:=xlExcelLinks

J'avais bien essayé de le générer toute seule par l'enregistreur, mais cela me fait planter Excel à chaque fois (même avec des fichiers neufs...)

Cela fonctionne, mais le problème sera de récupérer le lien à changer ? de l'expérience que j'ai, ce n'ai pas automatique ; j'ai des collègues qui ont mon chemin, d'autres celui du serveur hébergeur...
y a-t-il moyen de le connaître ?

En attendant une réponse, je fonce voir ce qu'on peut faire avec .INI, je n'en ai jamais utilisé

[mouftie]

Bonjour A tous,
Grâce au forum, j'ai trouvé comment résoudre mon problème...
Cf. la faq sur les liens https://excel.developpez.com/faq/?page=Liaisons

Pour ce que cela interresse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub ExtraitDocumentLies()
    Dim TabLiaisons As Variant
    Dim x As Integer
 
    'Renvoie un tableau de TabLiaisons
    TabLiaisons = ActiveWorkbook.LinkSources
'    TabLiaisons = ThisWorkbook.LinkSources
    'Vérifie si le tableau est vide
    If Not IsEmpty(TabLiaisons) Then
        'Boucle sur le tableau
        For x = 1 To UBound(TabLiaisons)
            If Right(TabLiaisons(x), 12) = "Accueil.xlsm" Then
                If Dir(TabLiaisons(x)) = "" Then _
                    ActiveWorkbook.ChangeLink Name:=TabLiaisons(x), NewName _
                        :=ThisWorkbook.Path & "\Accueil.xlsm", Type:=xlExcelLinks
            End If
        Next x
    End If
End Sub

Merci Philippe