'# Cette fonction permet de charger de manière transparente, les fichiers textes,
'# issus du monde Unix ou de Windows (les sauts de lignes diffèrent en effet)
Public Function LoadTextFile(ByRef vsFilePath As String) As String
Dim hFile As Integer
'# On demande un descripteur de fichier libre
hFile = FreeFile
'# On ouvre le fichier en lecture
Open vsFilePath For Input As #hFile
'# Le contenu du fichier est chargé dans 'LoadTextFile'
LoadTextFile = Input$(LOF(hFile), #hFile)
'# Fermeture du fichier
Close #hFile
'# Si notre text ne contient pas de VbCrLf ...
If InStrB(LoadTextFile, vbCrLf) = 0 Then
'# on remplace les VbLf en VbCrLf
If InStrB(LoadTextFile, vbLf) > 0 Then
LoadTextFile = Replace(LoadTextFile, vbLf, vbCrLf)
End If
End If
End Function