La méthode show de la classe dialog a échouée

Bonjour le forum,

La mise à jour des liaisons d'un classeur étant assez longue et très occasionelle , j' ai supprimer l'invite des MAJ à l'ouverture du classeur.
Par contre de temps en temps je modifie la base de données et doit mettre les liaisons à jour par la suite.

Je cherche a faire apparaitre la boite de dialogue Update link par le code car la boite de dialogue Open link, elle me force à déprotéger toutes mes feuilles (15 en tout)
hors la ligne de code :

Code:

---

Application.Dialogs(xlDialogUpdateLink).Show

---

me renvoie l'erreur 1004, la méthode show de la classe dialog a échouer.
les seules autres options que show proposées par excel sont :
Application
Créator
Parents
pour le moment je me sert du code suivant qui fonctionne mais qui m'oblige à déprotèger toutes mes feuilles :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Option Explicit   Sub MAJ_link_Dom() 'MAj manuelle des liaisons Dim feuil As Worksheet   Application.ScreenUpdating = False For Each feuil In ThisWorkbook.Worksheets feuil.Unprotect ("intel") Next feuil   ActiveWorkbook.UpdateLink Name:= _ "C:\Users\Dominique\Documents\1 Dom Perso\Tutoriels XL\Source.xls", Type:= _ xlExcelLinks   For Each feuil In ThisWorkbook.Worksheets feuil.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="intel" _ , AllowFormattingCells:=True Next feuil   End Sub

---

Si quelqu'un avait une idée pour faire apparaitre la boite de dialogue Update link ?

Merci à tous

Bonsoir,
Tu peux regarder ce lien : http://skp.mvps.org/ppt00029.htm
Alain

Bonjour le Forum,

Bon voila cette nuit j'ai tester en grandeur réelle au boulot :
j' utilise mon premier code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Option Explicit   Sub MAJ_link_Dom() 'MAj manuelle des liaisons avec Ctrl+U Dim feuil As Worksheet   Application.ScreenUpdating = False For Each feuil In ThisWorkbook.Worksheets feuil.Unprotect ("intel") Next feuil   ActiveWorkbook.UpdateLink Name:= _ "G:\Gestion bons bleus\BD plan de ligne.xls", Type:= _ xlExcelLinks   For Each feuil In ThisWorkbook.Worksheets feuil.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="intel" _ , AllowFormattingCells:=True Next feuil Sheet50.Unprotect ("intel") Sheets("Journal").Unprotect ("intel") End Sub

---

la procédure me prends environ 7 secondes pour les 18 onglets du classeur et j'ai trois classeurs donc c'est correct.

Dans le lien d' Alain l'option manuelle de la boite de dialogue Open links reste toujours grisée (non accessible ) que ce soit en 2007 à la maison ou en XP au travail,et je n'ais pas réussis à adapter le code du ppt vers excel

Je marque résolu car mon fichier fonctionne, mais néanmoins la question reste ouverte, ma curiositée n'étant pas satisfaite :

Pourquoi la méthode show de xlDialogUpdateLink a échouée et quelle méthode doit on utiliser ?

Peut être tout simplement parce que cette boite de dialogue ne peut apparaitre qu 'a l'ouverture d'un classeur et qu'il est impossible de l'appeller une fois celui-ci ouvert ?

Merci à tous ceux qui ont passés du temps sur ce post

Au plaisir

Dom