Discussion :

[djoumusic]

bonjour,
je voudrais qu' a l'ouverture de mon fichier, les liaisons se mettent toutes seules a jour, pour ne pas avoir le message, "voulez-vous mettre a jour".

et si la liaison est corrompue, alors on fait un breaklink., sinon, on met a jour..;

est ce possible, je n'arrive pas à l'ecrire...

[aalex_38]

Bonjour,

deux liens qui peuvent t'interesser ici et là

[djoumusic]

j'avais vu ces deux liens qui sont super !
pour autant,
comment faire avec vba pour savoir si les liaisons font reference à un fichier qui n'existe plus ou qui n'est plus valide,
car mon probleme est celui,
lorsque le fichier pour la liaison n'est pas trouvé, le rompre.

dans les discussions auxquelles tu fais reference,
on traite, comment eviter le message de mise a jour et la faire ou pas,
et dans l'autre comment effacer la liaison.

[aalex_38]

Re,


J'ai pensé à quelque chose comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub temp2()
With ThisWorkbook
Liens = .LinkSources(xlExcelLinks)
For Each lelien In Liens
    If Dir(lelien) <> "" Then ' Le fichier existe
    Else ' le fichier n'existe pas
    .BreakLink Name:=lelien, Type:=xlExcelLinks
    End If
Next
End With
 
End Sub

[djoumusic]

ca marche pas toujours, en fait,
j'avais aussi trouver cette macro sur le net,
alors en fait voilà comment j'ai fait,
il s'agit d'un fichier qui se met a jour juste avec un autre,
donc je ne dois avoir qu'un seul lien pour ma mise a jour...
je recupere le chemin du fichier avec lequel je dois me mettre a jour..
puis je dis que si le sourcelink est different de la valeur de ma cellule contenant, le lien du fichier chargé pour ma mise a jour, alors breaklink, sinon, non...
ca marche nikel, et c'est le seul subterfuge auquel j'ai pensé pour ne pas avoir
le probleme de " mettre a jour les valeur du lien...."
cdt

[aalex_38]

ca marche pas toujours, en fait,

Et maintenant ça marche ?
Pourrai-tu nous montrer le code qui fonctionne ?
Mettre le post en résolu ?

je recupere le chemin du fichier avec lequel je dois me mettre a jour

Comment, sans faire une boucle sur les liaisons ?

j'avais aussi trouver cette macro sur le net,

A bon, pourtant j'ai écris ce code en essayant de répondre à tes questions.
evidemment des codes similaires existent sur le net ;-)

D'ailleurs l'aide VBA sur Linksources me donne ça :

Code :

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

1
2
3
4
5
6
aLinks = ActiveWorkbook.LinkSources(xlOLELinks)
If Not IsEmpty(aLinks) Then
    For i = 1 To UBound(aLinks)
        MsgBox "Link " & i & ":" & Chr(13) & aLinks(i)
    Next i
End If