Copie sans miaison

Shinichi · 21 Octobre 2004

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 · 21 Octobre 2004

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

Copie sans miaison

Shinichi

Guest

Yeahou

Guest

Discussions similaires