Sub btnSauv_Click()
'Creer le nouveau classeur
Sheets('Feuil2').Copy
'Agir sur les liens
MethodeX 'X à choisir entre Methode1, 2, 3 ou 4
'Sauvegarder le nouveau classeur
Application.Dialogs(xlDialogSaveAs).Show CStr(Sheets('Feuil2').Range('B2').Value)
End Sub
___________________________________________________________________________
Sub Methode1()
'Supprimer les liens en faisant copie et collage spécial valeur
With ActiveSheet.Cells
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
End Sub
Sub Methode2()
'Rompre les liens par la méthode BreakLink
Dim Liens As Variant
Dim L As Integer
'
Liens = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
If Not IsEmpty(Liens) Then
For L = 1 To UBound(Liens)
ActiveWorkbook.BreakLink Liens(L), Type:=xlExcelLinks
Next L
End If
End Sub
Sub Methode3()
'Intervenir sur la mise à jour des liens : option NE PAS METTRE A JOUR les liens
'sans boîte de dialogue à l'ouverture du classeur
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
End Sub
Sub Methode4()
'Intervenir sur la mise à jour des liens : option TOUJOURS METTRE A JOUR les liens
'sans boîte de dialogue à l'ouverture du classeur
ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways
End Sub