Mise à jour liens automatique !

[ya_v_ka]

resalut tout le monde,

voilà encore un bout de code qui me pose problème:

Private Sub Worksheet_Activate()
Dim NouvLien As String, AncLien As String
On Error Resume Next
NouvLien = ActiveWorkbook.FullName
AncLien = "C:\1.xls"
ActiveSheet.Unprotect password:="zaza"
ActiveWorkbook.ChangeLink Name:=AncLien, NewName:=NouvLien, Type:=xlLinkTypeExcelLinks
ActiveSheet.Protect password:="zaza", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

cela devrait, lors de l'ajout de cette feuille dans mon classeur, la lier automatiquement à la source du nouveau classeur... et ca marche... mais... Excel me demande à chaque fois si je veux mettre à jour ou non, et je souhaiterais me passer de cette demande de confirmation...

est-ce possible?

merci d'avance

ya'v

 

[ya_v_ka]

resalut

bin voicà, voili... tout est solutionné sur le chat

suffisait de mettre dans le classeur cible, la commande asktoupdate=false dans le module Workbook_NewSheet et de le remettre en true dans BeforeClose...

Merci à Didier et Jean-Marie

Ya'v