Public Function FichierVersTableauDeByte(ByVal CheminFichier As String) As Byte() Dim MonFichier As New System.IO.FileInfo(CheminFichier) Dim MonFileStream As System.IO.FileStream = MonFichier.OpenRead() Dim TableauDeBytes(MonFileStream.Length) As Byte ' On charge le fichier dans un tableau de byte MonFileStream.Read(TableauDeBytes, 0, MonFileStream.Length) ' On ferme le stream MonFileStream.Close() Return TableauDeBytes End Function ' Exemple d'utilisation : Dim MesBytes() As Byte MesBytes = FichierVersTableauDeByte("C:\LeChemin\DeVotre\Fichier.Ext")