Importation fichier via HTTPS

Version imprimable

07/02/2011, 21h13
julienWUHAN

Importation fichier via HTTPS

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
08/02/2011, 11h06
Jean-Philippe André

salut,

est-ce que la solution proposee dans la :faq: concernant les FTP te conviendrait ?
http://access.developpez.com/sources...hiers#EnvoiFTP
08/02/2011, 19h39
julienWUHAN

Je vais essayer demain et je vous tiendrai au courant, dans tous les cas, merci pour votre réponse rapide!:ccool:
08/02/2011, 20h08
julienWUHAN

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?
09/02/2011, 18h50
julienWUHAN

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
09/02/2011, 19h10
Jean-Philippe André

salut,

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

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

Code:

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?

@+

10/02/2011, 21h04
julienWUHAN

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.

Hello

Citation:

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

Mais bien sûr que je le veux julienWUHAN; :D
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:

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. :D

@+

11/02/2011, 23h32
julienWUHAN

Merci Keita.

J'ai effectivement essayer ton bout de code, mais j'ai eu une erreur au niveau de whrReq.send, avec le msgbox suivant : "erreur d'execution '-2147012858(80072f06)': The host name in the certificate is invalid or does not match".

Je vais essayer ton code en entier lundi, et je te tiendrai au courant.

Merci et bon weekend.
12/02/2011, 15h18
keita

Hello

Citation:

"erreur d'execution '-2147012858(80072f06)': The host name in the certificate is invalid or does not match".

C'est clair; tu auras besoin d'un certificat de sécurité.tu en as un de valide? si oui, alors va falloir adapter le code à toi envoyé plus haut; sinon il ne marchera pas.
Bon week end et à lundi.

@+
12/02/2011, 17h33
julienWUHAN

euh je veux bien, mais comment avoir un certificat valide; en fait j'y comprends rien, c'est quoi la procédure??
15/02/2011, 20h59
julienWUHAN

Malheureusement, j ai toujours la même erreur au niveau de la même ligne alors que quand j'essaye d'importer avec excel, je n ai pas ce problème et ca marche très bien. C'est à n'y rien comprendre!!

Sans garantie de succès

Bonsoir,

Essaie d'ajouter ces constantes

Code:

1
2
3
4
Const SSL_Ignore_UnknownCAorUntrustedRoot = &H100   ' Unknown certification authority (CA) or untrusted root
Const SSL_Ignore_WrongUsage = &H200                 ' Wrong usage
Const SSL_Ignore_InvalidCN = &H1000                 ' Invalid Common Name (CN)
Const SSL_Ignore_InvalidDateOrExpired = &H2000      ' Invalid date or certificate expired

Et après

Code:

whrReq.Open "GET", strUrl, False

ajoute

Code:

1
2
3
4
5
    whrReq.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = _
                  SSL_Ignore_UnknownCAorUntrustedRoot _
                + SSL_Ignore_WrongUsage _
                + SSL_Ignore_InvalidCN _
                + SSL_Ignore_InvalidDateOrExpired

Peut-être que l'erreur que tu as, appartient à une des quatre erreurs que l'on peut ignorer.

A+

16/02/2011, 14h17
keita

Bonjour à tous
Essaie de faire ce que te propose LedZeppII. Effectivement ces options peuvent corriger certaines erreurs de connection.

Citation:

...alors que quand j'essaye d'importer avec excel, je n ai pas ce problème et ca marche très bien. C'est à n'y rien comprendre!!

:roll:
Je suis curieux de savoir comment tu fais. Tu peux m'indiquer la procedure?:?

Citation:

euh je veux bien, mais comment avoir un certificat valide; en fait j'y comprends rien, c'est quoi la procédure??

Et bien voila le peu que je sais:
1.Lorsque c'est toi qui rentre des infos d'identification te concernant (login et mot-de-passe) dans une page web que tu soumets, par la suite, à un site (serveur), c'est fort simple,on se dit: pas de doute c'est bien lui;ouvrez la porte, qu'il entre et qu'il se serve.
2.ce que tu cherches à faire maintenant, c'est de soumettre les mêmes infos, non plus manuellement, mais par l'intermediaire d'un programme;ce qui revient à établir une communication entre deux machines: ton ordinateur (le client) et l'autre (le serveur).
Et c'est ici que se pose le probleme: où est la preuve que c'est bien toi julienWUHAN ?
Dans un monde presque paerfait, où les mots confidentialité, sécurité et intégrité ne serait que de la futilité alors le bout de code que je t'ai envoyé aurait peut être suffit.
Mais comme c'est loin d'être le cas, alors pour que des programmes puissent communiquer entre eux, et de façon sécurisée, il a été crée le SSL (Secure Socket Layer); et le HTTPS est là pour nous dire que le site qui utilise ce protocole s'est fait identifié par une l'une des autoritées qui sont là pour (et bien entendu) qui se font payées pour ça; tu peux voir leur liste,en faisant,si tu utilises:
IE: outils-->Options internet-->Contenu-->certificats-->autorités principales de confiance
FFOX: Outils-->Options-->avancé--Chiffrement-->Afficher les certificats-->Autorités
Une personne physique, si ses activitésle lui commandent, peut demander sa pièce d'identité (son certificat personnel); il le configurera sur son ordi. avec des outils prévus pour ça.
A partir de ce moment là, il sera reconnu comme citoyen (du monde? du cyberespace?); en tout cas comme citoyen du net; et dès lors son ordi pourra communiquer avec les autres computers par programmes sur les sites sécurisés SSL.
Peut être qu'ici, tu auras plus d'infos:

http://www.sebsauvage.net/comprendre/ssl/

Et si ça te tente de participer à une opensource:
http://www.openssl.org/

Maintenant, si c'est juste pour le plaisir de coder, je te conseillerais de rentrer en contact avec ton site et leur demander de te donner leur API prévu pour ça;(s'ils en ont fait); avec quelques lignes de code tu arriverra au but.

J'espère t'avoir été utile. 8-)

@+

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.:ccool:

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:

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 !!!!!

bonjour

Citation:

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

Code:

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:

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

17/02/2011, 16h00
julienWUHAN

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!!