Bonjour,

Je cherche en vain comment lire un fichier texte à partir d'une ligne spécifique, et ensuite récupérer son contenu dans une variable.

J'ai mon fichier texte de la forme:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
From:adresse@domaine
To:adresse@domaine
Subject:Test
Bonjour,
 
Test.
 
Cordialement.
Donc ce que je veux récupérer dans une variable, se trouve à partir de la ligne 4, c'est à dire le message du mail.

J'ai déjà un code qui me récupère ce qu'il y a sur les 3 premières lignes:

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
 
Dim sRep 
sRep = "C:\Users\Test\" 
Const ForReading = 1
Dim aData()
Set oFso = CreateObject("Scripting.FileSystemObject")
 
Function ReadData(sRep)
  Dim oFiles,oFile,oTFile,i,k,aBuffer
  Set oFiles = oFso.GetFolder(sRep).Files
  ReDim aData(oFiles.Count - 1,3)
  i = 0
  For Each oFile In oFiles
      Set oTFile = oFso.OpenTextFile(oFile.Path, ForReading)
      For k = 0 to 3
       aBuffer = Split(oTFile.ReadLine, ":")
       aData(i,k) = aBuffer(1) 
      Next
      i = i + 1
   Next
End Function 
 
ReadData(sRep)
For j = 0 to UBound(aData)
vExpediteur = aData(j,0)
vDest = aData(j,1)
vSujet = aData(j,2)
Next
Merci d'avance pour votre aide.