Discussion :

[SpaceFrog]

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

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

Code :

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

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

[SpaceFrog]

autre tentative:

Code :

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

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

[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.

[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 ...

[SpaceFrog]

Bon a priori ceci à l'air de vouloir fonctionner

Code :

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

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

[ThierryAIM]

Tiens, la grenouille de l'espace est de passage parmi nous 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