Post by domicolPost by domicolBonjour,
comment
recherche une erreur " liaison avec une source externe" quand
j'enregistre le fichier
merci
J ai compris le problème
Sois je supprime la page ou il ya les liaisons qui pose problème (j'ai esseille
et ça marche il n y a plus d erreur)
Ou existe t il une fonction qui supprime les liaisons quand j enregistre le
nouveau classeur en automatique avec un macro
Dans mon fichier il y a une macro qui enregistre le fichier sous un autre nom
avec 2 feuilles (cela serait génial s il pourrait copie sens les liaison)
Voici un exemple de code a adapter :
Pour copier seulement 2 onglets feuille particuliers vers un nouveau
classeur
worksheets(Array("Feuil1","Feuil5").copy
'-------------------------------------------
Sub test()
Dim File As String
File = "e:\téléchargements\test.xlsm"
'Copier les feuilles du classeur dans un nouveau classeur
'supprimer les liens entre ces 2 classeurs.
'copie les feuilles du classeur dans un nouveau classeur
Sheets.Copy
'Enregistre le nouveau classeur selon la valeur de la variable File
ActiveWorkbook.SaveAs Filename:=File,
FileFormat:=xlOpenXMLWorkbookMacroEnabled
'Appellle procédure pour modifier le liens
Call ModifierLiens(ThisWorkbook, ActiveWorkbook)
End Sub
'-------------------------------------------
Sub ModifierLiens(WkSource As Workbook, Wkdest As Workbook)
Dim Liens As Variant, LeLien
Liens = Wkdest.LinkSources(xlExcelLinks)
For Each LeLien In Liens
Wkdest.ChangeLink LeLien, Wkdest.FullName, xlExcelLinks
Wkdest.UpdateLink LinkSources
Next
End Sub
'-------------------------------------------
MichD