Discussion :

[gdmeunier]

Bonjour,
J'ai des classeurs Modéle par projet (40 projets => 40 classeurs). Chaque classeur Modèle contient 2 feuilles : i) une feuille Menu (pour gérer la date et le statut) et ii) une feuille de collecte (qui contient des formules faisant référence à la feuille Menu pour la date). Chaque mois, je crée la feuille de collecte du mois (Clic droit sur l'onglet Déplacer ou copie, créer une copie) qui sera envoyée pour mise à jour par le destinataire.
Avant d'être envoyées, ces feuilles modèles (classeur .xlsx avec 1 seule feuille) sont stockées dans un répertoire "MàJ". Je souhaite supprimer tous les liens des feuilles de collecte du mois avec le classeur modèle avant de les envoyer aux destinataires.
J'ai recherché un code VBA pour supprimer toutes ces liaisons mais sans succès, et ça devient un peu compliqué pour moi!
Pour résumer : J'ai 40 classeurs avec 1 seule feuille, chacune ayant une liaison avec son classeur modèle d'origine. Elles sont toutes dans un même répertoire "MàJ" et je souhaite une macro pour supprimer toutes les liaisons. Ca peut se faire manuellement, bien sûr, mais c'est fastidieux!
Très cordialement

[Valtrase]

Bonjour,
Ormis le fait qu'il va falloir boucler sur l'ensemble des classeurs, la réponse à votre question se trouve dans la gestion des liens des classeurs. et du type de lien que vous devez traiter.

[Franc]

Bonjour, teste ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub SupprimerLiaisons()
 
    Dim dossier As String
    Dim fichier As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim lien As Variant
 
 
    dossier = "C:\chemin\vers\votre\dossier\MàJ\"
 
    ' Boucle sur chaque fichier .xlsx dans le répertoire '
    fichier = Dir(dossier & "*.xlsx")
    Do While Len(fichier) > 0
        Set wb = Workbooks.Open(dossier & fichier)
 
        ' Boucle sur chaque feuille de calcul dans le classeur '
        For Each ws In wb.Worksheets
            ' Suppression des liaisons externes '
            ws.Cells.BreakLinks Name:=xlExcelLinks
        Next ws
 
        wb.Save
        wb.Close
 
        ' Fichier suivant '
        fichier = Dir
    Loop
 
    MsgBox "Toutes les liaisons externes ont été supprimées.", vbInformation
 
End Sub

[gdmeunier]

Franc, bonjour,
Et merci pour le code mais je n'obtiens pas ce que je souhaite. peut être ai je mal compris?
J'ai mis une feuille en exemple FCM-P2106_2202R.
Cette feuille est créée à partir du classeur central avec Déplacer-copier (clic-droit sur l'onglet). Elle a donc un lien avec son classeur d'origine, en l'occurence PACTE-SSE_FCM V04 et pour simplifier, je souhaite supprimer ce lien.
Lorsque j'applique la macro, ça tourne sans problème mais lorsque je vérifie sur la feuille d'exemple FCM-P2106_2202R la liaison est toujours là!
FCM-P2106_ 2202R.xlsx
J'ai recherché sur Internet et j'ai trouve ceci : utiliser : ws.Cells.BreakLinks Type:=xlLinkTypeExcelLinks mais cela ne change rien non plus!
Apparemment, il faut une commande spéciale par type de lien! En l'occurence, ici, c'est un lien vers un autre classeur Excel.
Ca dépasse largement mes compétences, je reste à l'écoute!
Merci
Nouveau : Je viens de trouver un code qui fonctionne! Mais je ne sais l'insérer proprement dans votre code de départ qui balaie tous les feuilles de tous les classeurs du répertoire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub CouperLiens()
    Dim wbActif As Workbook
    Dim lien As Variant
 
    Set wbActif = Application.ActiveWorkbook
 
    If Not IsEmpty(wbActif.LinkSources(Type:=xlLinkTypeExcelLinks)) Then
        For Each lien In wbActif.LinkSources(Type:=xlLinkTypeExcelLinks)
            wbActif.BreakLink lien, Type:=xlLinkTypeExcelLinks
        Next lien
    End If
End Sub

GDM84480

[Valtrase]

Bonjour,
@gdmeunier
La question est de savoir à quel moment vous voulez supprimer le lien ?
Le code que vous a donné Franc supprime les liens des classeurs contenus dans un dossier. Il faut donc lui donner le bon chemin.
Et pour être plus sûr remplacer : fichier = Dir(dossier & "*.xlsx") par : fichier = Dir(dossier & "*.xls*")
Sinon en reprenant le code de Franc cela doit donner quelque chose comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub SupprimerLiaisons()
 
    Dim dossier As String
    dossier = "C:\chemin\vers\votre\dossier\MàJ\"
 
    ' Boucle sur chaque fichier .xlsx dans le répertoire '
    Dim fichier As String
    fichier = Dir(dossier & "*.xls*")
    Do While Len(fichier) > 0
        Dim Classeur As Excel.Workbook
        Set Classeur = Workbooks.Open(dossier & fichier)
        With Classeur
            If Not IsEmpty(.LinkSources(Type:=xlLinkTypeExcelLinks)) Then
                Dim lien As Variant
                For Each lien In .LinkSources(Type:=xlLinkTypeExcelLinks)
                    .BreakLink lien, Type:=xlLinkTypeExcelLinks
                Next lien
            End If
 
            .Save
            .Close
        End With
        If Not Classeur Is Nothing Then Set Classeur = Nothing
        ' Fichier suivant '
        fichier = Dir
    Loop
 
    MsgBox "Toutes les liaisons externes ont été supprimées.", vbInformation
 
End Sub

[gdmeunier]

Valtrase, bonjour,
Merci pour la précision *.xls* que je comprends. Il faut que je reteste en particulier le chemin. A suivre et merci. GDM84480

Je viens de tester et retester, je n'y arrive pas.
Mes classeurs Excel sont dans le répertoire : "C:\PACTE_SSE\B-DATA\REALISATIONC1C2\FCMC1C2_Modèle\Protéger" (avec copier le chemin)
J'ai 2 codes :
Le premier, que je dois placer dans un module pour un seul fichier fonctionne. Il supprime tous les liens du classeur dans lequel il se trouve.
Sub CouperLiens()
Dim wbActif As Workbook
Dim lien As Variant

Set wbActif = Application.ActiveWorkbook

If Not IsEmpty(wbActif.LinkSources(Type:=xlLinkTypeExcelLinks)) Then
For Each lien In wbActif.LinkSources(Type:=xlLinkTypeExcelLinks)
wbActif.BreakLink lien, Type:=xlLinkTypeExcelLinks
Next lien
End If
End SubLe second code qui me permet de sélectionner tous les classeurs dans ce répertoire, celui fournit par Frank, il tourne mais ne supprime aucun lien!
J'ai essayé de combiner les 2, mais sans résultat.
Sub SupprimerLiaisons2()
Dim dossier As String
Dim fichier As String
Dim wb As Workbook
Dim ws As Worksheet
Dim lien As Variant

dossier = "C:\PACTE_SSE\B-DATA\REALISATIONC1C2\FCMC1C2_Modèle\Protéger"

' Boucle sur chaque fichier .xlsx dans le répertoire '
fichier = Dir(dossier & "*.xlsx")
Do While Len(fichier) > 0
Set wb = Workbooks.Open(dossier & fichier)

' Boucle sur chaque feuille de calcul dans le classeur '
For Each ws In wb.Worksheets
' Suppression des liaisons externes '
If Not IsEmpty(wb.LinkSources(Type:=xlLinkTypeExcelLinks)) Then
For Each lien In wb.LinkSources(Type:=xlLinkTypeExcelLinks)
wb.BreakLink lien, Type:=xlLinkTypeExcelLinks
Next lien
End If
Next ws

wb.Save
wb.Close

' Fichier suivant '
fichier = Dir
Loop

MsgBox "Toutes les liaisons externes ont été supprimées.", vbInformation

End SubJe suppose qu'après avoir supprimer les liens, il y a Save mais la date du fichier ne change pas! Le code ne doit pas trouver le classeur (Protéger) qui contient les fichiers mais ce chemin est correct car j'ai une autre macro pour Protéger avec ce chemin et elle fonctionne.
Je reste à l'écoute et désolé pour l'insistance (et mon manque de compréhension). GDM84480