Invitation de mise à jour de liaisons

Bonjour à toutes et à tous,

Dans une sub en ouverture, j'aimerais ne pas faire apparaitre l'invitation de mise à jour des liaisons que contient mon tableur.

En VBA, comme première commande d'une Sub en ouverture, j'ai tenté les alternative suivantes, sans succès :

Application.EnableEvents = False

Application.AskToUpdateLinks = False

Application.AskToUpdateLinks = False

Rien n'y fait. Comment puis-je correctement empêcher l'apparition de cette invitation à l'ouverture ?

Et aussi, comment puis-je l'automatiser, par une ligne de code issus d'un lcik de bouton sur un UserForm "maison" ?

Merci de vos lumières.

Bonjour

A vérifier

Bonjouur Banzai64,

J'aurais déjà dû le mentionner dans mon post initial....mais le plus bizarre, c'est que cette option est effectivement décochée !!!

Et j'ai quand même l'invitation maglré les 3 lignes de codes testées.....

Je suis médusé !!!!!

Bonsoir

J'aurais du y penser

Essayes

Application.DisplayAlerts = False

Penses à le remettre ensuite à True si tu ne quittes pas ta macro après l'ouverture du fichier

Bonsoir Bazai64,

L'invalidation du message avec "Display Alert = False" fonctionne nickel !

Mon dernier problème réside dans la possibilité de re-permettre à nouveau la mise à jour des liaisons sous une action de bouton d'un UserForm personnel. J'ai tenté avec ce qui suit mais sans succès (tentativement pour TOUTES les liaison existantes de mon classeur) : Ma commande à l'intéreiru de ma condition If n'est pas applicable.....

With ThisWorkbook

Liens = .LinkSources(xlExcelLinks)

For Each lelien In Liens

If Dir(lelien) <> "" Then

.UpdateLink , Type:=xlExcelLinks

' .UpdateLink Name:=lelien, Type:=xlExcelLinks

End If

Next

End With

Merci pour un dernier coup de main si le coeur vous en dit.

Bonsoir

En faisant quelques essais avec un fichiers --> deux liens dont 1 vers un fichier disparu

Pas de soucis avec cette macro

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

Il faudrait voir ton fichier et les messages d'erreurs