Refresh all sur tout fichiers dans un dossier

Bonjour,

J'essaie de faire un "Refresh All" sur tout les fichiers d'un dossier qui se nomme "KPI - EXCEL", mais une erreur survient lorsque j'exécute la macro. C'est des fichiers avec PowerQuery que j'aimerais actualiser régulièrement , mais l'option de rafraîchissement m'oblige d'ouvrir les fichiers.

Quelle est l'origine de ce problème?

Public Sub refreshXLS()
    Dim fso As Object
    Dim folder As Object
    Dim file As Object
    Path = "C:\Users\JessicaJ\Desktop\KPI - EXCEL\KPI_V3" 
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(Path)

    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
        .EnableEvents = False
        .AskToUpdateLinks = False
    End With

    For Each file In folder.Files
        If Right(file.Name, 4) = "xlsx" Or Right(file.Name, 3) = "xls" Or Right(file.Name, 4) = "xlsm" Then
            Workbooks.Open Path & file.Name
            ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
            ActiveWorkbook.Close True
         End If
    Next

        With Application
        .DisplayAlerts = True
        .ScreenUpdating = True
        .EnableEvents = True
        .AskToUpdateLinks = True
    End With
End Sub

Bonjour,

Je crois qu'en partant, il manque le "backslash" à la fin de ton chemin

Path = "C:\Users\JessicaJ\Desktop\KPI - EXCEL\KPI_V3\"

ric

Bonjour,

En effet, bien vu.

Edit: Je suis dans les patates. J'ai n'ai pas créer de module pour...C'est réglé.