Discussion :

[passicon]

Bonjour,
je voudrait ouvrir un fichier qui ce trouve sur internet (http://www.passiblog.com/404.txt), quel solution faut t'il faire??

Pour ouvrir un fichier sur mon disque dur j'utilisé ce script :

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
 
Sub chargedonnee()
Dim Fichier As String
Dim ligne As String
tailletab = 0
Fichier = "c//404.txt"
If Fichier = "" Then Exit Sub
Open Fichier For Input As #1
While Not EOF(1)
    Line Input #1, ligne
     If ligne <> "" Then
        ReDim Preserve Tabdonnee(tailletab + 1)
        Tabdonnee(tailletab) = ligne
        tailletab = tailletab + 1
    End If
Wend
Close #1
 
End Sub

[Megaxel]

Salut!
Il me semble bien qu'on a eu la réponse à cette question la semaine dernière. Remonte un peu sur les 3 dernières pages de sujets, et tu devrais trouver.

[passicon]

j'ai trouvé ce message > http://www.developpez.net/forums/viewtopic.php?t=478592

mais je n'arrive pas à faire marcher ce code correctement.

que doit je modifier?

merci

[ThierryAIM]

1ere solution : récuperer le fichier sur ton disque (tu peux ensuite l'ouvrir avec ton code)

Code :

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

1
2
3
4
5
6
7
8
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
        "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
        ByVal szFileName As String, ByVal dwReserved As Long, _
        ByVal lpfnCB As Long) As Long
 
Private Sub Form_Load()
    URLDownloadToFile 0, "http://www.passiblog.com/404.txt", "c:\404.txt" & ufile, 0, 0
End Sub

2e solution: lire le fiichier directement et le charger dans un buffer texte :

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
Const scUserAgent = ""
Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_OPEN_TYPE_PROXY = 3
Const INTERNET_FLAG_RELOAD = &H80000000
 
Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
 
 
Private Sub Command1_Click()
    Dim hOpen As Long, hFile As Long, sBuffer As String, hRet As Long
    'Create a buffer for the file we're going to download
    sBuffer = Space(20000)
    'Create an internet connection
    hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
    'Open the url
    hFile = InternetOpenUrl(hOpen, "http://www.passiblog.com/404.txt", vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
    'Lit le fichier > buffer
    InternetReadFile hFile, sBuffer, Len(sBuffer), hRet
    'clean up
    InternetCloseHandle hFile
    InternetCloseHandle hOpen
 
    '-- recuperer la chaine lue
    Contents = Trim(sBuffer)
    Debug.Print Contents
End Sub

[Megaxel]

Harg... Il me restait 46h21' à attendre avant de mettre la première solution. (La deuxième, c'est trop fort pour moi...)

(Bon, et j'arrête avec ce truc de "2 jours"...)

[passicon]

Impecable

Merci beaucoup ça marche parfaitement

[Megaxel]

C'est bizarre, je ne vois pas le tag [Résolu] ?
Allez, allez, malgré la bonne humeur évidente de certains membres de ce forum, il ne faut pas se relacher et oublier les gestes essentiels: un click sur le bouton