URLDownloadToFile, execution mystere

Bonjour à tous,

Je cherche actuellement à copier un graphique d'un workbook "A" situé a une url de type http://monsite.com/test.xlsx vers un autre workbook "B"

J’exécute mon code depuis le workbook "B".

Le problème que je rencontre est que lorsque que j’écris le code ci-dessous et que je l’exécute il fonctionne a merveille. Mais lorsque je ferme le workbook "B", que je le relance et que je re-exécute le code. Le fichier "test.xlsx" ne se télécharge plus. La URLDownloadToFile ne me retourne plus de 0...

Est-ce que quelqu'un pourrait m'aider ? ou est-ce que mon problème est un des grand mystère de l'informatique

Le code:

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Dim DirectoryName As String
Dim ThisbookName As String   

Sub main()

    DirectoryName = Application.ActiveWorkbook.path
    ThisbookName = Application.ActiveWorkbook.Name

    Call DownloadAFileFromWeb(Sheets("Data").Cells(1, 1), Sheets("Data").Cells(2, 1))

End Sub

Function DownloadAFileFromWeb(FullAddressOfTheLink, TheNameOfTheDownloadedFile)

    If (URLDownloadToFile(0, FullAddressOfTheLink, DirectoryName & "\" & TheNameOfTheDownloadedFile, 0, 0) = 0) Then
        MsgBox "Downloaded to: " & DirectoryName & "\" & TheNameOfTheDownloadedFile
    Else:
        MsgBox "Can't Download the file, please check your internet connection ..."
    End If

End Function

Merci