VBA qui supprime une partie des liaisons dans un fichier
Résolu
Dreampower75
Messages postés
91
Statut
Membre
-
yg_be Messages postés 24281 Statut Contributeur -
yg_be Messages postés 24281 Statut Contributeur -
Bonjour,
J'ai un fichier qui est lié à 4 autres fichiers Excel par des liaisons:
Suivi Variation IBE VBA TEST TEST 1.xlsm
Suivi Variation IBE VBA TEST TEST 2.xlsm
Suivi Variation IBE VBA TEST TEST 3.xlsm
Suivi Variation IBE VBA TEST TEST 4.xlsm
J'ai essayé le codage VBA ci-dessous pour supprimer uniquement les liens des fichiers Suivi Variation IBE VBA TEST TEST 1.xlsm et Suivi Variation IBE VBA TEST TEST 2.xlsm
mais cela ne fonctionne pas (voir capture d'écran ci-dessous)
Est-ce que vous pouvez m'aider ?
Sub Macro1()
If Not IsEmpty(ActiveWorkbook.LinkSources(xlExcelLinks)) Then
For Each X In ActiveWorkbook.LinkSources(xlExcelLinks)
If X.Name = "Suivi Variation IBE VBA TEST TEST 1.xlsm" or X.Name = "Suivi Variation IBE VBA TEST TEST 2.xlsm" Then
ActiveWorkbook.BreakLink Name:=X, Type:=xlExcelLinks
End If
Next
End If
End Sub
Merci beaucoup de votre aide.
Cordialement.
J'ai un fichier qui est lié à 4 autres fichiers Excel par des liaisons:
Suivi Variation IBE VBA TEST TEST 1.xlsm
Suivi Variation IBE VBA TEST TEST 2.xlsm
Suivi Variation IBE VBA TEST TEST 3.xlsm
Suivi Variation IBE VBA TEST TEST 4.xlsm
J'ai essayé le codage VBA ci-dessous pour supprimer uniquement les liens des fichiers Suivi Variation IBE VBA TEST TEST 1.xlsm et Suivi Variation IBE VBA TEST TEST 2.xlsm
mais cela ne fonctionne pas (voir capture d'écran ci-dessous)
Est-ce que vous pouvez m'aider ?
Sub Macro1()
If Not IsEmpty(ActiveWorkbook.LinkSources(xlExcelLinks)) Then
For Each X In ActiveWorkbook.LinkSources(xlExcelLinks)
If X.Name = "Suivi Variation IBE VBA TEST TEST 1.xlsm" or X.Name = "Suivi Variation IBE VBA TEST TEST 2.xlsm" Then
ActiveWorkbook.BreakLink Name:=X, Type:=xlExcelLinks
End If
Next
End If
End Sub
Merci beaucoup de votre aide.
Cordialement.
Configuration: Windows / Chrome 99.0.4844.82
A voir également:
- VBA qui supprime une partie des liaisons dans un fichier
- Fichier bin - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment supprimer un fichier qui refuse d'être supprimé - Guide
- Fichier rar - Guide
7 réponses
Re,
Avec votre code, est-ce le test que vous faites est valide et execute la ligne de suppression?
Il y a une petite difference avec votre code de suppression:
vous: Type:=xlExcelLinks
site : Type:=xlLinkTypeExcelLinks
Avec votre code, est-ce le test que vous faites est valide et execute la ligne de suppression?
Il y a une petite difference avec votre code de suppression:
vous: Type:=xlExcelLinks
site : Type:=xlLinkTypeExcelLinks
d'où te vient l'idée que X a un attribut Name?
As-tu examiné ce qu'était X?
As-tu examiné ce qu'était X?
Merci Forum j'ai trouvé la solution
Sub Macro1()
If Not IsEmpty(ActiveWorkbook.LinkSources(xlExcelLinks)) Then
For Each X In ActiveWorkbook.LinkSources(xlExcelLinks)
If X Like "*" & "Suivi Variation IBE VBA TEST TEST 1.xlsm" & "*" = True Or X Like "*" & "Suivi Variation IBE VBA TEST TEST 2.xlsm" & "*" = True Then
ActiveWorkbook.BreakLink Name:=X, Type:=xlExcelLinks
End If
Next
End If
End Sub
Sub Macro1()
If Not IsEmpty(ActiveWorkbook.LinkSources(xlExcelLinks)) Then
For Each X In ActiveWorkbook.LinkSources(xlExcelLinks)
If X Like "*" & "Suivi Variation IBE VBA TEST TEST 1.xlsm" & "*" = True Or X Like "*" & "Suivi Variation IBE VBA TEST TEST 2.xlsm" & "*" = True Then
ActiveWorkbook.BreakLink Name:=X, Type:=xlExcelLinks
End If
Next
End If
End Sub
bonjour,
j'ai déjà regardé ce lien mais il ne propose uniquement une solution pour supprimer tous les liens d'un fichier et non certains liens
merci d'avance
Cordialement
j'ai déjà regardé ce lien mais il ne propose uniquement une solution pour supprimer tous les liens d'un fichier et non certains liens
merci d'avance
Cordialement
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
