Discussion :

[Geache]

Bonjour,

Je recherche le moyen, à partir du vba, d'ajouter, supprimer ou modifier des fichiers textes sur un site web. J'étais persuadé avoir lu cette possibilité sur développez.com. J'explore developpez depuis près de deux heures maintenant mais je ne parviens pas à retrouver la trace de ma lecture.

Quelqu'un pourrait-il m'aiguiller ?

Merci d'avance,

Geache.

[Geache]

C'est presque bon... J'ai trouvé un activex qui permet de gérer les fichiers d'un site web. (Source VBA pour access 2000 aux éditions Eyrolles).

Il faut ajouter la référence Microsoft Internet Transfer Control, version 6.0 et ajouter un contrôle du même nom dans le formulaire. Je l'ai renommé Inet1.

Pour mes tests, j'ai créé un formulaire contenant 3 zones de textes nommées respectivement txtUrl, txtUser, et txtmdp qui vont réceptionner, respectivement, l'adresse de mon hôte, le nom de l'utilisateur et son mot de passe.

Un bouton Upload permet de placer les fichiers sur le site web. Un bouton download permet de les télécharger.
La procédure statechanged permet de capturer l'état de la connexion durant l'échange d'information.

L'activex est toujours d'actualité sous OFFICE 2010.

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Private Sub cmdDownload_Click()
On Error GoTo cmddownload_error
 
    With Inet1
        .RequestTimeout = 30
        .AccessType = icDirect
        .Protocol = icFTP
        .URL = txtURL
        .UserName = txtUser
        .Password = txtMdp
        .Execute , "GET tblBaseTest.html c:\tests2\tblBaseTest.html"
'        .Execute , "Get 1_1.jpg c:\tests2\1_1.jpg"
    End With
 
cmddownload_error:
End Sub
 
Private Sub cmdUpload_Click()
On Error GoTo cmdUpload_error
 
    DoCmd.TransferText acExportHTML, , "tblBaseTest", "c:\tests\tblBaseTest.html"
 
    With Inet1
        .RequestTimeout = 30
        .AccessType = icDirect
        .Protocol = icFTP
        .URL = txtURL
        .UserName = txtUser
        .Password = txtMdp
        .Execute , "PUT c:\tests\tblBaseTest.html tblBaseTest.html"
'        .Execute , "PUT c:\tests\1_1.jpg 1_1.jpg "
    End With
 
FinSub:
    Exit Sub
cmdUpload_error:
    If Err.Number <> 0 Then
     MsgBox Err.Number & vbCrLf & Err.Description
    End If
    Resume FinSub
End Sub
 
Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim strState As String
    Select Case State
        Case icConnected:
            strState = "Connecté"
        Case icConnecting:
            strState = "En cours de connexion"
        Case icDisconnected:
            strState = "Déconnecté"
        Case icDisconnecting:
            strState = "En cours de connection"
        Case icError:
            strState = Inet1.ResponseInfo
        Case icHostResolved:
            strState = "Hôte atteint"
        Case icReceivingResponse
            strState = "Réponse en cours de réception"
        Case icRequesting:
            strState = "En cours de demande"
        Case icRequestSent:
            strState = "Requête envoyée"
        Case icResolvingHost:
            strState = "Tentative de connexion à l'hôte"
        Case icResponseCompleted:
            strState = "Réponse terminée"
        Case icResponseReceived:
            strState = "Réponse reçue"
    End Select
    lblState.Caption = strState
End Sub

Il me reste à trouver de quelle manière je peux supprimer des fichiers sur le site. UN Delete dans la commande .execute sans doute, mais je cherche une confirmation.

J'ai créé un troisième bouton dans mon formulaire de test, cmdSupress, auquel j'ai ajouté la procédure événementielle suivante :

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
Private Sub cmdSupress_Click()
On Error GoTo cmdSupress_error
 
    With Inet1
        .RequestTimeout = 30
        .AccessType = icDirect
        .Protocol = icFTP
        .URL = txtURL
        .UserName = txtUser
        .Password = txtMdp
        .Execute , "delete tblBaseTest.html"
    End With
 
cmdSupress_error:
 
End Sub

L'effacement du fichier est réalisée correctement.