Alstroemeria
XLDnaute Nouveau
Bonjour,
J'ai fait des modifications sur un fichier excel, sauf que le fichier est très lent maintenant
Est-ce parce que j'ai mal écrit le code de la macro ? Ou juste mon pc n'est pas assez puissant ?
Je ne peux pas envoyer le fichier mais voici la macro :
J'ai fait des modifications sur un fichier excel, sauf que le fichier est très lent maintenant
Est-ce parce que j'ai mal écrit le code de la macro ? Ou juste mon pc n'est pas assez puissant ?
Je ne peux pas envoyer le fichier mais voici la macro :
VB:
Private Sub Workbook_Open()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False ' Disable all alerts
Application.AskToUpdateLinks = False ' Prevent update link prompts
' Force updating links silently, even if broken
Dim Links As Variant
Links = ThisWorkbook.LinkSources(Type:=xlExcelLinks)
If Not IsEmpty(Links) Then
For Each Link In Links
ThisWorkbook.UpdateLink Name:=Link, Type:=xlExcelLinks
Next Link
End If
' Refresh all PivotTables and connections
ThisWorkbook.RefreshAll
ActiveWorkbook.Save
Application.ScreenUpdating = True
Application.DisplayAlerts = True ' Re-enable alerts
On Error GoTo 0
End Sub