Discussion :

[gbbtt]

Bonjour à tous,

Je réalise la copie de tous les onglets d'un classeur (fermé initialement) vers mon classeur de travail et je souhaite ensuite supprimé la liaison créée automatiquement entre ses deux classeurs pour ne plus avoir à le faire à l'ouverture.
Est-ce possible via vba?

Bout de code correspondant à la copie:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
'Avec wbk le classeur dont on importe les onglets et i défini par un certains nombres de paramètres plus tôt dans la macro
For Each sh In wbk.Sheets
sh.Copy After:=ThisWorkbook.Sheets(i)
i = i +1
Next sh

Merci d'avance à ceux qui prendront le temps de répondre!

Guillaume

[CristofMartins]

Salut,
Adapte et teste la méthode ci-dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Option Explicit 
 
Sub CasserLiens() 
Dim i As Long 
Dim Lien As Variant 
 
    Lien = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks) 
    If IsEmpty(Lien) Then Exit Sub 
    For i = LBound(Lien) To UBound(Lien) 
        ActiveWorkbook.BreakLink Name:=Lien(i), Type:=xlLinkTypeExcelLinks 
    Next i 
End Sub

[gbbtt]

Je teste ca, merci!

Edit: ça a l'air de fonctionner donc un merci de plus!