Copie sans miaison

[Shinichi]

Bonjour

Quand j'utilise la macro:

Sheets("XXX").Select
Sheets("XXX").Copy

Les classeur créé contitent des liaisons avec les classeurs sources.
J'aimerais faire la même opération mais en considérant le fait que mes feuilles copiées n'aient aucune liaison avec les fichiers sources

Par avance merci à vous pour votre réponse.

Bruno

 

[Yeahou]

Bonjour Shinichi, le forum

ce petit code casse les liaisons externes au classeur actif.

cordialement, A+

Dim Liens As Variant
Dim Compteur As Integer

Sheets("XXX").Select
Sheets("XXX").Copy

Liens = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
For Compteur = 1 To UBound(Liens)
ActiveWorkbook.BreakLink Name:=Liens(1), Type:=xlLinkTypeExcelLinks
Next Compteur