Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question'Attention, pour fonctionner ce code nécessite la référence Microsoft Scripting Runtime Public Function LireFichier(NomFichier as string) As string On Error GoTo err Public Contenu As String 'Texte complet If (GetFileAttributes( NomFichier)) Then GoTo 10 MsgBox ("Le fichier " & NomFichier & " n' existe pas" & vbCr & "...Retouvez le!") return Contenu exit Function 10: Dim FSO As New Scripting.FileSystemObject 'Declare le systeme de fichier Dim FichText As Scripting.TextStream 'Declare le fichier texte Set FichText = FSO.OpenTextFile( NomFichier, ForReading) 'Ouvre le fichier en lecture Contenu = FichText.ReadAll 'Lit le fichier GoTo fin 'libere les variable err: MsgBox "Impossible de lire le fichier", vbCritical, "Erreur de lecture" & vbCrLf & "Manque la référence Microsoft Scripting Runtime" & vbCrLf & "scrrun.dll" fin: Set FichText Nothing: Set FSO Nothing return Contenu End Function