Private Sub Command1_Click() Dim c(3) As Byte c(0) = 255 c(1) = 254 c(2) = 146 c(3) = 37 CreateFileFromBytes "c:\z.txt", c End Sub '---------------------------------------------------------------- ' ENREGISTRER UN TABLEAU DE BYTES DANS UN FICHIER ' http://www.codyx.org/snippet_enregistrer-tableau-bytes-dans-fichier_5.aspx#1367 '---------------------------------------------------------------- Private Sub CreateFileFromBytes(ByVal sPath As String, ByRef aBytes() As Byte) Dim FF As Integer FF = FreeFile Open sPath For Binary As #FF Put #FF, , aBytes Close #FF End Sub '----------------------------------------------------------------