Message de liaison de fichier

Le 02/07/2018 à 22:43

Bonsoir à tous,

j'ai une liaison entre deux fichiers excel 2007, malgré les options excel pour activer la liaison mais ne pas afficher le message, je ne parviens pas à supprimer le message à l'ouverture du fichier. Si quelqu'un peut m'aider je le remercie par avance. Je joint la copie des commandes VBA présentes sur la feuille d'ouverture du fichier ainsi que sur Thisworkbook de manière à ce que vous puissiez m'indiquer comment insérer la nlle commande.

par avance merci

cordialement

Le 03/07/2018 à 06:49

Bonjour,

Testes ceci :

Application.DisplayAlerts = False

Le 03/07/2018 à 08:13

Bonjour, merci pour ta réponse

j'ai insérer la commande dans Thisworkbook mais cela n’empêche pas le message à l'ouverture du fichier.....

cordialement

mibri

Le 03/07/2018 à 15:52

Re,

Alors, en supprimant le ou les liens :

Sub Test()

    Dim Liens
    Dim I As Integer

    'récupère les liens dans un tableau
    Liens = ActiveWorkbook.LinkSources(1)

    'si le tableau est vide, fin
    If IsEmpty(Liens) Then Exit Sub

    'supprime tous les liens vers les autres classeurs (supression des formules pour ne garder que les valeurs)
    For I = 1 To UBound(Liens): ActiveWorkbook.BreakLink Liens(I), 1: Next I

End Sub

Le 03/07/2018 à 16:53

Excuse moi mais je ne comprend pas ce que tu me demande de faire. Je comprends bien Excel mais pas du tout le langage VBA.

Toutes les écritures que tu vois ne sont pas de moi mais c'est avec l'aide Excel-pratique que je les ai obtenues.....Je ne tiens pas (sauf erreur de compréhension) à supprimer les autres lien......merci de m'éclaircir. Dans le cas ou je dois insérer ta réponse ou je dois la placer

merci

Le 04/07/2018 à 07:21

Bonjour,

Peut être en supprimant les liens à l'ouverture et en les recréant dans la foulée, la suppression peut peut être éviter le message (je n'ai fais aucun test !)

Le 04/07/2018 à 15:13

bonjour,

J'ai saisi ton "test" dans le thisworkbook le message apparaît toujours......as tu une autre solution ou faut il que j'abandonne

merci

Le 06/07/2018 à 14:47

Bonjour,

Est ce qu'il y a une réponse possible à mon problème, par avance merci

cordialement

Le 06/07/2018 à 16:10

Bonjour,

Postes deux copies de tes fichiers anonymisés mais correspondant le plus possible aux fichiers originaux

Le 06/07/2018 à 18:14