Discussion :

[nbelg27]

Bonjour,

Voila, je dois récupérer un fichier sur un Intranet
quelqu'un aurait une idée ou un bout de code pour faire cela

merci d'avance

[cafeine]

Hello,

qu'entends-tu par récupérer ?
si c'est le par le protocole HTTP, tu peux utiliser le code de mon tuto : Access & Internet
http://cafeine.developpez.com/access...iel/weblog/#LB

[Tofalu]

Pour completer cafeine, si c'est pas en http mais en ftp :

http://access.developpez.com/sources...hiers#EnvoiFTP

[nbelg27]

j'ai testé ce code, mais je crois que j'ai pas trés bien compris comment l'utiliser

quand je relance la procédure j'ai l'erreur "fichier déja ouvert"

Le fichier est accessible par une URL
le format du fichier est xls
comment définir l'emplacement du fichier récupérer ?

[nbelg27]

je pense qu'il suffit de changer le fomrat du fichier (xml vers xls) au téléchargement
mais Commnet ?

[nbelg27]

Salut,
j'ai récupéré ce code sur un site

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
19
20
21
22
23
24
25
Sub TestHTTP()
On Error GoTo ErrHandler
Dim objHTTP As InetTransferLib.http
Const conTARGET = "http://home.att.net/~dashish/acknowledge.xls"
 
  Set objHTTP = New InetTransferLib.http
  With objHTTP
    .About
    .HttpURL = conTARGET
    .DestinationFile = "C:\test.xls"
    .PromptWithCommonDialog = True
    If .FileExists Then .OverwriteTarget = True
    If Not .IsConnected Then .DialDefaultNumber
    .ConnectToHTTPHost
    .WriteHTTPDataToFile
  End With
ExitHere:
  On Error Resume Next
  Set objHTTP = Nothing
  Call SysCmd(acSysCmdRemoveMeter)
  Exit Sub
ErrHandler:
  MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, Err.Source
  Resume ExitHere
End Sub

mais j'ai le message d'erreur "Projet ou bibliothéque introuvable"
pourant j'ai ajouter la réréfence "InternetTransferLib"

Quelqu'un aurait une idée