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