Rompre liaison de plusieurs fichiers Excel sans les ouvrir
Bonjour,
dans le cadre de mon travail, je dois plusieurs fois par mois ouvrir plusieurs fichiers excel afin de rompre la liaison et pour faire tourner une macro avec ces fichiers.
Je cherche une macro qui puisse m'aider : sans ouvrir les fichiers exel, rompre la liaison automatiquement.
J'avais trouvé ce code sur le net mais je n'arrive pas à le faire fonctionner.
Il fallait créer un dossier ou mettre l'ensemble des fichiers concernés. Créer un fichier excel ou on met cette macro et Hop le tour est joué mais ca ne fonctionne pas.
Est-ce que quelqu'un pourrait m'aider ?
En vous remerciant par avance
Private Sub Workbook_Open()
Dim Rep As String, Fichier As String
Dim wb As Workbook
Rep = ThisWorkbook.Path & "\"
Fichier = Dir(Rep)
Do While Fichier <> "" And Fichier <> ThisWorkbook.Name
Set wb = Workbooks.Open(Rep & Fichier)
liens = wb.LinkSources
If Not IsEmpty(liens) Then
For i = 1 To UBound(liens)
MsgBox liens(i)
wb.BreakLink Name:=liens(i), Type:=xlExcelLinks
Next i
End If
wb.UpdateLinks = xlUpdateLinksNever
wb.Saved = True
wb.Save
wb.Close
Fichier = Dir
Loop
End Sub