lire un fichier texte avec url http API Urldownloadtofile, sharepoint et authentification

Version imprimable

Bonjour,
ça fait un bail que je ne suis pas venu sur VBA...

je cherche à lire un fichier texte sur le réseau
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub Worksheet_Activate() Dim intFic As Integer Dim strLigne As String intFic = FreeFile Open "http://........./essai.txt" For Input As intFic While Not EOF(intFic) Line Input #intFic, strLigne MsgBox (strLigne) Wend Close intFic End Sub
il me colle une erreur sur le nom ou numéro de fichier

autre tentative:

Code:

1
2
3
4
5
6
7
Private Sub Worksheet_Activate()
    Set o2 = CreateObject("internetexplorer.application")
        o2.navigate "http://..../essai.tx  "
          While o2.busy: DoEvents: Wend
   Set o = o2.Document.body.Text
   MsgBox (o.Text)
End Sub

05/01/2011, 15h04
OhMonBato

Bonjour,

VBA Excel je suppose ? (c'est juste pour replacer dans le bon forum)
Sinon je n'ai pas essayé mais ça m'étonnerait qu'on puisse lire un fichier texte direct sur une adresse http. Ce serait mieux de le télécharger d'abord je pense.
05/01/2011, 15h22
SpaceFrog

En fait là je teste juste avec vba excel, mais pour une utilisation finale en VB

le but est de recupérer le contenu d'un fichier texte en distant sur sharepoint ...

Bon a priori ceci à l'air de vouloir fonctionner

Code:

1
2
3
4
5
6
7
8
    Set o2 = CreateObject("internetexplorer.application")
        o2.navigate "http://.../essai.txt"
          While o2.busy: DoEvents: Wend
          o2.Visible = True
 o = o2.Document.body.getElementsByTagName("pre")(0).innerHTML
 
   MsgBox (o)
Set o2 = Nothing

si quelqu'un à plus propre je suis preneur

05/01/2011, 17h50
ThierryAIM

Tiens, la grenouille de l'espace est de passage parmi nous :aie: salut Space ;)

j'ai eu fait un truc du même genre avec un composant Inet
Pas sur que ce soit ni plus propre, ni plus simple ...
Ta soluce me parait pas mal
05/01/2011, 21h09
DarkVader

Salut la Grenouille,
Itou Thierry.

Vois du coté des Apis :
URLDownloadToFile par exemple ou httprequest,
ce sera plus rapide.
07/01/2011, 09h10
SpaceFrog

Je viens de tenter avec URLDownloadToFile

mais j'obtiens -214669203 ???

sans doute un code d'erreur ? je n'ai rien trouvé sur l'authentification ..
07/01/2011, 09h59
DarkVader

Comment veux-tu qu'on devine sans le code que tu utilises !
D'autre part, il semble que le code d'erreur soit amputé d'un chiffre.
Pas top comme message pour un modo :mrgreen:

non le code d'erreur est entier ..

sinon voici le code utilisé

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
"URLDownloadToFileA" ( _
ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
 
 
Sub DownloadFileFromWeb()
Dim i As Integer
 
Const strUrl As String = "monstringurlcheminversleifichier"
Dim strSavePath As String
Dim returnValue As Long
 
strSavePath = Application.Path & "\xxxxxxxx.txt"
returnValue = URLDownloadToFile(0, strUrl, strSavePath, 0, 0)
If returnValue = 0 Then
         MsgBox "Fichier téléchargé :" & vbNewLine & strSavePath, vbInformation, "Réussite"
     Else
         MsgBox "Erreur lors du téléchargement " & returnValue, vbExclamation, "Echec"
     End If
 
 
End Sub

Ce code fonctionne parfaitement si je tape une url standard sur le web, mais pas si je pointe vers mon sharpoint ...

07/01/2011, 10h41
OhMonBato

Sans te demander l'adresse précise bien sûr mais ton sharepoint est de quel type ?
07/01/2011, 10h55
SpaceFrog

sharepoint 3.0 2007 avec accès pas login et mdp ...

en gros si je mets l'url dans ie ou ffx il me demander un login et un mdp

dans mon script y'a pas les logins et mdp

m'étonnerait fort que l'on puisse faire un download comme ça sans précise r d'authentification
07/01/2011, 11h40
OhMonBato

Je n'ai pas sharepoint mais une syntaxe du type http://login:password@adresse_du_site ne marche pas ? Je sais que ça fonctionne pour du ftp, mais jamais essayé en http
07/01/2011, 12h07
DarkVader

Citation:

Envoyé par SpaceFrog

.../...Ce code fonctionne parfaitement si je tape une url standard sur le web, mais pas si je pointe vers mon sharpoint ...

Au temps pour moi, j'ai lu "http://" puis InternetExplorer dans les 1er posts et n'ai pas plus approfondi.
Readfile serait plus approprié.
07/01/2011, 12h07
SpaceFrog

dans le navigateur oui ...
mais pas dans vb ...

une autre tentative avec xmlhttp:

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
Public Function GetHTTPFile(ByVal URL As String) As String
    Dim lResolve As Long, lConnect As Long
    Dim lSend As Long, lReceive As Long, Retry As Integer
    Dim xXMLHTTP As MSXML2.XMLHTTP
 
 
    On Error Resume Next
    lResolve = 10 * 1000
    lConnect = 10 * 1000
    lSend = 15 * 1000
    lReceive = 15 * 1000
    xXMLHTTP.setTimeouts lResolve, lConnect, lSend, lReceive
    xXMLHTTP.Open "GET", URL, False, "user", "password"
    If (Err.Number = 0) Then
        xXMLHTTP.setRequestHeader "Content-type", "text/xml"
        xXMLHTTP.send
        GetHTTPFile = xXMLHTTP.responseText
       Else
       MsgBox Err.Number & " " & Err.Description
 
 
 
    End If
End Function

cette fois ci souci de block with ???

07/01/2011, 15h02
DarkVader

Code:

Dim xXMLHTTP As MSXML2.XMLHTTP

Faudrait déjà instancier

Code:

Dim xXMLHTTP As NEW MSXML2.XMLHTTP
07/01/2011, 15h45
SpaceFrog

avec new il ne me reconnait pas :

Code:

xXMLHTTP.setTimeouts lResolve, lConnect, lSend, lReceive

non géré par l'objet ..
07/01/2011, 16h07
DarkVader

1/ Tu utilises une propriété qui n'existe pas !
2/ XMLHTTP comme winhttprequest auront le même comportement que urldownloadtofile
07/01/2011, 16h09
SfJ5Rpw8

bonjour ..

essai :

Code:

Dim xXMLHTTP As New MSXML2.ServerXMLHTTP

;)
07/01/2011, 16h10
SpaceFrog

Citation:

1/ Tu utilises une propriété qui n'existe pas !

pas possible, j'aurais jamais pensé ???!!!

je vais porter réclamation aupres de msdn ou j'ai trouvé ce script ... :roll:

c'est évident... la question est pourquoi la propirété n'est pas supportée...
mauvais objet instancié ?

et plus globalement comme attaquer un sharepoint ou serveur securisé avec VB6 peut importe la methode...

j'y arrive avec une instance de IE
mais
1) c'est crade
2) j'ai un dialogbox pour le login et mdp ...
07/01/2011, 16h47
DarkVader

J'utilisais msxml2 et non msxml3 !
Bbil t'a fourni la réponse plus haut.
07/01/2011, 16h58
SpaceFrog

Ha merci bbil, y'a du progrès dans le sens ou j'ai un message d'erreur

Citation:

"access denied due to invalide credentials"

si je ne m'abuse ça serait lié au httprequest cross domain...

je testerais lundi sur un poste du domaine...
29/04/2014, 23h31
pepper

Bonsoir,
j'ai essayé ce code qui a l'air de fonctionner, mais je ne comprends pas comment paramétrer l'endroit où enregistrer le fichier XML sur le DD local...
Auriez-vous de plus amples explications ?
Merci !