Ré-importer un fichier csv généré par une application intranet

**Just_Jon** · 14/10/2013, 09h33

Bonjour,
Après plusieurs recherches et lectures sur le forum, je ne trouve toujours pas de solution à mon problème...
J'ai suivi avec attention le tuto de arkham46 concernant l'importation d'un fichier http://arkham46.developpez.com/artic.../?page=page_5#
J'ai également trouvé une discussion parmi d'autre sur ce sujet mais concernant Access 2007 http://www.developpez.net/forums/d12...tion-intranet/

Mon problème:
J'arrive à télécharger le fichier sur l'intranet de ma société et à l'enregistrer sur ma machine, pas de problème!
Par contre, lorsque je modifie les données de l'intranet qui se retrouveront dans mon fichier et que je "re-télécharge" le fichier via access, il me rend le fichier précédent.
Pourtant le fichier généré par mon intranet prend bien en considération les données modifiées.
Si je ferme complètement l'application, l'ouvre et refait le téléchargement, la nouvelle version est la bonne...

J'imagine donc que le fichier est gardé "temporairement" quelque part dans une des mémoires d'access...

Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function http_Retrieve(ByVal sHttp As String)
 
Dim XMLHTTP As MSXML2.XMLHTTP
Dim byteData() As Byte
Dim ff As Integer
Set XMLHTTP = New MSXML2.XMLHTTP
XMLHTTP.Open "POST", sHttp, False
XMLHTTP.send
If XMLHTTP.Status = 200 Then
    ff = FreeFile
    Open "c:\monfichiertéléchargé.csv" For Binary As ff
    byteData = XMLHTTP.responseBody
    Put #ff, , byteData
    Erase byteData
    Set XMLHTTP = Nothing
    Close #ff
End If
End Function