Réponse acceptée !
Salut,
Dim text_fichier As String
Open App.Path & "/infos_connexion.txt" For Input As #1
While Not EOF(1)
Input #1, text_fichier
If InStr(1, text_fichier, "*", vbTextCompare) = 0 Then
text_infos = text_infos + text_fichier + Chr$(32)
End If
Wend
Close #1
Fiko ;-)
Proverbe chinois : Connaître son ignorance est la meilleur part de la connaissance.< body>