Discussion :

[charlou74]

bonjour,
Au demarrage d'un fichier excel une fenetre d'avertissements s'ouvre:
"le classeur que vous avez ouvert contient des liaisons avec un autre fichiers voulez vous les conservez ?"


et je voudrais une ligne de code qui simule l'appui sur non, en gros je veux que la fenetre disparraisse à l'ouverture du fichier.

Merci de votre aide

[aalex_38]

Bonjour,

Sais-tu pourquoi tu as des liaisons ?

Une des solutions serait de casser ces liaisons à l'ouverture du classeur encore faut-il savoir ce que l'on fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_Open()
On Error GoTo fin
Application.DisplayAlerts = False
aLinks = ThisWorkbook.LinkSources(xlLinkTypeExcelLinks)
If Not IsEmpty(aLinks) Then
    For i = 1 To UBound(aLinks)
       ' MsgBox "Link " & i & ":" & Chr(13) & aLinks(i)
        ThisWorkbook.BreakLink aLinks(i), xlLinkTypeExcelLinks
    Next i
End If
 
fin:
Application.DisplayAlerts = True
End Sub

[charlou74]

j'ai contourné le probléme en faisant un collage spécial en amont pour casser les liasons et tous ça en VBA marche nikel merci de ta réponse qd même

[aalex_38]

merci de ta réponse qd même

De rien, ça m'a permis de tester comment casser des liaisons au démarrage, je me garde ce bout de code dans un coin, on sait jamais !

Edit: une solution ici