Private Sub CmdExtract_Click()
Dim sFichier As String, k As Integer, tblOctets() As Byte
'Récupère un tableau d'octet contenant la ressource
tblOctets = LoadResData(101, "LISTDESMOTS")
'Enregistre la ressource
k = FreeFile
Open CheminOrg & "ListDesMots.txt" For Binary As #k
Put #k, , tblOctets
Close #k
Erase tblOctets
End Sub