Dim Temp() As Byte, ff As Integer, Fichier As String Fichier = App.Path & "\MonFichier.dll" ' Récupère la ressource Temp = LoadResData(101, "CUSTOM") ' Vire le fichier si déjà existant If Dir(Fichier) <> "" Then Kill Fichier ' Sauvegarde le fichier ff = FreeFile Open Fichier For Binary Access Write As #ff Put #ff, , Temp Close #ff