Ouveture/lecture fichier txt AccessVBA

Merci Polux31 et NicoDisso, de vos réponses!!

Alors je n'ai pas réussi à faire fonctionner ton code NicoDisso, bizarement ça ne me renvoi rien je comprends pas.
Sinon Polux31 j'ai réussi à faire fonctionner ton code, mais je ne récupère dans ma chaîne uniquement la dernière ligne du fichier c'est normale? j'ai réutilisé exactement ce que tu as mis:

Sub OpenFile(Byval pFullPath As String) 'pFullPath est le chemin complet d'acces au fichier
Dim fp As Integer
Dim chaine As Variant

On Error Resume Next
fp = FreeFile

Open pFullPath For Input As #fp

While Not EOF(fp)
Line Input #fp, chaine
Wend

Close #fp
End Sub

Et après je fais des manip sur ma chaîne avec Split et Mid.

Tu as une idée?
Merci beaucoup.

Public Function OuvrirTextRapide(ByVal Fichier As String) As String
Dim a As Integer
a = FreeFile

Open Fichier For Input As #a
OuvrirTextRapide = Input(LOF(a), a)
Close #a
End Function

Ensuite tu appelles la fonction dans ton code

Dim Texte as string
Texte = OuvrirTextRapide(Fichier_A_Ouvrir) et le contenu de ton fichier et dans la variable Texte ensuite tu y fais ce que tu veux

Merci à Nix de VbFrance.com pour cette contribution

Bonjour,

Voilà une procédure pour ouvrir un fichier en VB:

Sub OpenFile(Byval pFullPath As String)   'pFullPath est le chemin complet d'acces au fichier
Dim fp As Integer
Dim chaine As Variant

   On Error Resume Next
   fp = FreeFile

   Open pFullPath For Input As #fp

   While Not EOF(fp)
      Line Input #fp, chaine
      ' code pour traiter la chaine
   Wend

   Close #fp
End Sub

;o)

Je pense avoir compris, en fait, il faut que j'enregistre petit à petit les élément dans la chaîne! (je comprends maintenant pourquoi tu avais mis un petit commentaire avec manipulation de la chaîne....
désolée!!
Merci et bonne journée!