Discussion :

[juansedu]

Bonjour,

je réalise en ce moment une base de donnés qui prends des informations de plusieurs fichiers. Pour cela j'ai créé des liens qui font appels aux autres fichier. Le problème c'est que les fichiers de base se trouvent dans deux serveur différents, alors si je met mettre à jours, excel va me demander pour quelques liens de changer de lien parcequ'il ne trouve pas.

Donc l'idée que j'ai eu c'est de empécher la mise a jour automatique lors de l'ouverture du fichier avec:

Code :

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

1
2
3
Private Sub Workbook_Open()
   ThisWorkbook.UpdateLinks = xlUpdateLinksNever
End Sub

Mais après je voulait ajouter des bouttons qui permettent de dire quelle feuilles dans le fichier mettre à jours, mais je ne trouve pas une fonction qui me permettent mettre à jours les liens exclussivement d'une seule feuille du fichier et aucune autre. J'ai essayé avec:

Code :

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

1
2
3
 
ThisWorkbook.Worksheets("Secteur34").UpdateLinks = xlUpdateLinksAlways
  ThisWorkbook.Worksheets("Secteur34").UpdateLinks = xlUpdateLinksNever

et

Code :

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

1
2
3
 
ThisWorkbook.Worksheets("Secteur23").UpdateLink _ Name:=ActiveWorkbook.LinkSources
  ThisWorkbook.Worksheets("Secteur23").UpdateLink _ Name:=ActiveWorkbook.LinkSources

Mais ses fonctions ne servent que pour ThisWorkbook et non pour Worksheets.

Est-ce qu'il y a une fontion qui puisse faire ce que je demande?

Merci,

Juansedu

[DeaD78]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
 
With ThisWorkbook
Liens = .LinkSources(xlExcelLinks)
For Each lelien In Liens
    If Dir(lelien) <> "" Then
        .UpdateLink Name:=lelien, Type:=xlExcelLinks
    End If
Next
End With
 
End Sub

Tu peux partir là-dessus, ça a l'air de correspondre à ce que tu souhaites. Cette petite macro va te permettre de mettre à jour les liaisons de ton fichier mais seulement si elles existent. C'est ce que tu voulais faire à la base, non ?

[juansedu]

Merci pour ta réponse DeaD78,

J'ai essayé ton code mais il me pose des problèmes avec le dimmensionement de lelien et de Liens. Quel est donc leur type?

[Krovax]

utilise la touche

LinkSources, méthode
Cette méthode renvoie un tableau de liaisons dans le classeur. Les noms contenus dans le tableau sont ceux des documents, éditions ou serveurs DDE ou OLE liés. Cette méthode renvoie la valeur Empty s'il n'existe aucune liaison. Méthode de type Variant.

Code :

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

dim lelien() as variant

devrais donc fonctionnner

[juansedu]

Merci,

j'avais pas trop bien compris comment marché le UpdateLinks, mais maintenant ça marche