Ouverture de fichier en VBA

Bonjour le forum,

Je rencontre un problème que je n'arrive à résoudre, malgré plusieurs tentatives.

J'ai un fichier Excel, qui a son ouverture va ouvrir d'autres fichiers via une macro dans ThisWorkbook.

Tout fonctionne sauf pour un fichier où il m'est impossible de faire enlever/valider cette fenêtre :

Pour cette fenêtre, j'y arrive :

Je ne peut vous transmettre les fichiers, car ceux-ci sont en réseau interne et ils comportent pas mal de données personnelles.

Je joins cependant le code entier :

Function IsClosed(fichier$)

     Dim wb As Workbook
     On Error Resume Next
     Set wb = Workbooks(fichier)
     IsClosed = wb Is Nothing

     End Function
     Private Sub Workbook_Open()

     If IsClosed("ANDON 2020 TL1.xlsm") Then
     Workbooks.Open filename:= _
     "\\vcn.ds.volvo.net\rtc-bour\proj02\015443\02_Dossiers par UEP\UEP 5375 Pont&Essieu\00_Team Board\TL1 YD\ANDON 2020 TL1.xlsm" _
     , UpdateLinks:=3
     End If

     If IsClosed("Fichier de saisie arret L2.xlsm") Then
     Workbooks.Open filename:= _
     "\\vcn.ds.volvo.net\rtc-bour\proj01\014799\2020\Fichier de saisie arret L2.xlsm"
     End If

     If IsClosed("démérite 2020.xlsx") Then
     Workbooks.Open "\\vcn.ds.volvo.net\rtc-bour\proj02\028319\01_INDICATEUR\DEMERITE\démérite 2020.xlsx" _
     , ReadOnly:=True, UpdateLinks:=0
     End If

     Workbooks("Suivi des résultats 2020 TL1.xlsm").Activate

     End Sub
     Function IsOpen(fichier$)

     Dim wb As Workbook
     On Error Resume Next
     Set wb = Workbooks(fichier)
     IsOpen = Not wb Is Nothing

     End Function
     Private Sub Workbook_BeforeClose(Cancel As Boolean)

     'If IsOpen("ANDON 2020 TL1.xlsm") Then
     'Workbooks ("ANDON 2020 TL1.xlsm") .Close SaveChanges:=True
     'End If

     If IsOpen("Fichier de saisie arret L2.xlsm") Then
     Workbooks("Fichier de saisie arret L2.xlsm").Close SaveChanges:=False
     End If

     If IsOpen("démérite 2020.xlsx") Then
     Workbooks("démérite 2020.xlsx").Close SaveChanges:=False
     End If

     ThisWorkbook.Save

     End Sub

Et le code qui me pose le problème cité plus haut :

If IsClosed("démérite 2020.xlsx") Then
     Workbooks.Open "\\vcn.ds.volvo.net\rtc-bour\proj02\028319\01_INDICATEUR\DEMERITE\démérite 2020.xlsx" _
     , ReadOnly:=True, UpdateLinks:=0
     End If

Je vous remercie, par avance, pour votre aide

Bonjour,

UpdateLinks:=0 ????

Enum XlUpdateLinks :

xlUpdateLinksUserSetting = 1

xlUpdateLinksNever = 2

xlUpdateLinksAlways = 3

Merci pour la réponse , mais que dois-je mettre et où, précisément ?

Vu qu'Excel n'arrive pas à établir la liaison, ne lui demande pas de le faire.

Mets 2 à la place 0

Bonjour Patrice,

chose que j'ai omit de préciser : j'vais déjà essayé avec les valeurs 0,1,2,3 mais sans conviction car j'ai toujours la même fenêtre