Importation fichier via HTTPS

**julienWUHAN** · 07/02/2011, 21h13

Bonjour,

Je fais actuellement un stage et pour mon projet, je dois quotidiennement me connecter sur un site en HTTPS pour importer un fichier.

Je voudrai donc savoir s'il est possible d'avoir le code pour récupérer automatiquement ce fichier sachant que ce site nécessite un login et mot de passe qu'il faut rentrer dans un web form.

Merci de votre aide!

ps: je suis sur ACCESS 2003

**Jean-Philippe André** · 08/02/2011, 11h06

salut,

est-ce que la solution proposee dans la

concernant les FTP te conviendrait ?
http://access.developpez.com/sources...hiers#EnvoiFTP

**julienWUHAN** · 08/02/2011, 19h39

Je vais essayer demain et je vous tiendrai au courant, dans tous les cas, merci pour votre réponse rapide!

**julienWUHAN** · 08/02/2011, 20h08

Il faut preciser que je me connecte sur un serveur HTTPS; je suis débutant en VBA ACCESS, Toutefois, je vais essayer de changer ftp par https pour voir.

Une autre question, je ne peux pas ajouter la référence wininet.dll dans mon projet. Est-ce normal?

**julienWUHAN** · 09/02/2011, 18h50

Malheureusement, je n'arrive toujours pas a télécharger ce fichier sur internet HTTPS.
Avez vous une solution, cela pourrait grandement m'aider.

Merci

**Jean-Philippe André** · 09/02/2011, 19h10

salut,

tu peux nous dire dans quelle mesure tu as tente d'adapter le code propose en lien plus haut stp ?

**keita** · 09/02/2011, 19h52

bonjour à tous
Ajoute la reference ms winHTTP 5.1.. à tes references

Code :

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

1
2
3
4
5
6
7
8
9
10
Function AutentificationAvecWinHTTP()
    Dim whrReq As WinHttp.WinHttpRequest, strUrl As String
    Set whrReq = New WinHttp.WinHttpRequest
 
    strUrl = "https://www................................."
    whrReq.Open "GET", strUrl, False
 
    whrReq.Send
    MsgBox whrReq.Status
End Function

Quel message est renvoyé par msgbox?

@+

**julienWUHAN** · 10/02/2011, 21h04

Salut a vous deux.

En fait voila, je me connecte sur ce site : https://memberlch.uk.hibm.hsbc/Reporting , une fois que j'ai accepter le message de sécurité , j'ai un msgbox très simple qui me demande un login et un mot de passe pour me connecter au site, ensuite je peux enfin entrer dans la page et aller dans les liens de la page pour télécharger le fichier qu'il me faut.

Je voulais donc un code VBA sur access 2003 (car je lie ce fichier a une table) qui puisse aller sur ce site, entrer le login et mot de passe(donc sans que j'ai besoin d'entrer le code et mot de passe manuellement et appuyer sur ok) et copier le fichier txt sur mon disque dur.

Est ce que tu peux me donner le code en entier si possible keita?

Je vais essayer déjà le bout de code demain et je vous tiendrai au courant.

Merci pour aide.

**keita** · 11/02/2011, 14h04

Hello

Est ce que tu peux me donner le code en entier si possible keita?

Mais bien sûr que je le veux julienWUHAN;

j'avais voulu seulement que tu testes le bout de code que je t'ai envoyé pour voir si ton pb pouvais être traité avec WinHTTP. Essayons comme ceci pour voir:

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
Private Function AutentificationAvecWinHTTP()
    Dim whrReq As WinHttp.WinHttpRequest, strUrl As String
    Set whrReq = New WinHttp.WinHttpRequest
    Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0
    Const HTTPREQUEST_SETCREDENTIALS_FOR_PROXY = 1
 
    strUrl = "https://memberlch.uk.hibm.hsbc/Reporting"
    ' Assemble une requête HTTP.
    whrReq.Open "GET", strUrl, False
    whrReq.SetCredentials Me.txtLogin, Me.txtMotDePasse, HTTPREQUEST_SETCREDENTIALS_FOR_SERVER
    ' whrReq.SetCredentials Me.txtLogin, Me.txtMotDePasse, HTTPREQUEST_SETCREDENTIALS_FOR_PROXY
    whrReq.Send
    msgbox whrReq.Status & "  " & whrReq.StatusText
    ' Teste le statut du code retourné par le serveur.
    Select Case whrReq.Status
        Case 200    ' Document retrouvé; la requete a aboutit
            Me.txtMessage = whrReq.ResponseText
        Case 401    ' Le serveur demande une authentication
            MsgBox "Erreur d'authentification (serveur)." & vbCrLf & "Revoir le login et/ou le mot de passe.", vbExclamation, "Mon appli"
            Exit Function
        Case 407  ' Demande d'identification par le proxy
            MsgBox "Erreur d'authentification (proxy)." & vbCrLf & "Revoir le login et/ou le mot de passe.", vbExclamation, "Mon appli"
            Exit Function
    End Select
End Function

1/ Tu crées un form, 2 zones de texte (txtLogin et txtMotDePasse) et un bouton
2/ tu appelles la function çi-dessus avec le bouton
3/ C'est le retour donné par msgbox whrReq.Status & " " & whrReq.StatusText qui nous permettra de choisir entre les 2 constantes:
Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0
ou
Const HTTPREQUEST_SETCREDENTIALS_FOR_PROXY = 1

Une fois le code retour connu, tu pourras effacer la ligne du msgnox
Tu devras peut être indiquer l'extension de Reporting.
Si c'est une image, le code changera.
j 'espère que ça va marcher.

@+

**julienWUHAN** · 17/02/2011, 11h39

Bonjour à vous tous!

Merci infiniment à Keita pour ses précieux conseil et mille merci à LedZeppII pour son aide qui m'a permis de resoudre enfin mon problème.

Le code marche parfaitement. Maintenant au lieu de l'ouvrir dans le textbox, je voudrais seulement le copier sur mon disque dur.

Je vous envoye le code que j'ai modifié légerement pour mes besoins :

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
 Const SSL_Ignore_InvalidDateOrExpired = &H2000      ' Invalid date or certificate expired
Dim txtLogin, txtMotDePasse As String
 
txtLogin = "Monlogin"
txtMotDePasse = "Monpasse"
 
    strUrl = "https://memberlch.uk.hibm.hsbc/Reporting/HBF/SwapClear/Trade/REP00084%20-%20Trade%20Level%20Report%20(SCM)_%201.TXT"
 
 
    ' Assemble une requête HTTP.
 whrReq.Open "GET", strUrl, False
    whrReq.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = _
                  SSL_Ignore_UnknownCAorUntrustedRoot _
                + SSL_Ignore_WrongUsage _
                + SSL_Ignore_InvalidCN _
                + SSL_Ignore_InvalidDateOrExpired
 
    whrReq.SetCredentials txtLogin, txtMotDePasse, HTTPREQUEST_SETCREDENTIALS_FOR_SERVER '  -----> changer
 
    ' whrReq.SetCredentials Me.txtLogin, Me.txtMotDePasse, HTTPREQUEST_SETCREDENTIALS_FOR_PROXY
 
    whrReq.Send
 
       ' Teste le statut du code retourné par le serveur.
 
    Select Case whrReq.Status
 
        Case 200    ' Document retrouvé; la requete a aboutit
 
       Me.txtMessage = whrReq.ResponseText   
 
        Case 401    ' Le serveur demande une authentication
 
            MsgBox "Erreur d'authentification (serveur)." & vbCrLf & "Revoir le login et/ou le mot de passe.", vbExclamation, "Mon appli"
 
            Exit Function
 
        Case 407  ' Demande d'identification par le proxy
 
            MsgBox "Erreur d'authentification (proxy)." & vbCrLf & "Revoir le login et/ou le mot de passe.", vbExclamation, "Mon appli"
 
            Exit Function
 
    End Select
 
 
End Function
 
Private Sub Commande4_Click()
Call AutentificationAvecWinHTTP
End Sub

Je voudrais donc à la ligne Case 200 , copier ce fichier sous le nom de Monfichier.txt sur "C:\dossier "

Merci encore une fois à vous tous !!!!!

**keita** · 17/02/2011, 15h09

bonjour

Je voudrais donc à la ligne Case 200 , copier ce fichier sous le nom de Monfichier.txt sur "C:\dossier "

Code :

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

1
2
3
4
5
6
7
8
...................
...................
Case 200    ' Document retrouvé; la requete a aboutit
 
       Me.txtMessage = whrReq.ResponseText   
       Open "C:\dossier\Monfichier.txt" For Output As #1
       Print #1, Me.txtMessage
       Close #1

Ou bien pour ne pas passer par Me.txtMessage

Code :

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

1
2
3
4
5
6
7
...................
...................
Case 200    ' Document retrouvé; la requete a aboutit        
'       Me.txtMessage = whrReq.ResponseText   
       Open "C:\dossier\Monfichier.txt" For Output As #1
       Print #1, whrReq.ResponseText 
       Close #1

@+

**julienWUHAN** · 17/02/2011, 16h00

Merci INFINIMENT!! Mon problème est entièrement résolu cette fois ci!

Encore Merci Keita et bonne journée à vous tous!!

Ce forum est vraiment super!!

Importation fichier via HTTPS [AC-2003]

VBA Access

Vue hybride

Discussions similaires

Partager

Partager