Private Sub mnuEnregistrerSous_Click()
'Procédure qui permet d'enregistrer sous un nom choisi
On Error GoTo ErrHandler 'si erreur aller à...
cdlBoiteDialogue.CancelError = True 'Génère une erreur si on clique sur annuler
cdlBoiteDialogue.Flags = &H208002
' Propriété de la boite de dialogue
' nom long=&H200000
' style de l'explorateur = &H80000
' message pour écraser un fichier existant = &H2
' On additionne les propriétés si on en veut plusieurs
cdlBoiteDialogue.Filter = "Fichier Truc (*.tic) | *.tac" 'Initialisation du filtre d'extension
cdlBoiteDialogue.FileName = NomFichier 'Nom par défaut
cdlBoiteDialogue.InitDir = CurDir() 'Initialisation du répertoire courant
cdlBoiteDialogue.ShowSave 'Ouverture de la boîte de dialogue "EnregistrerSous"
Dim sFile As String
sFile = cdlBoiteDialogue.FileName ' Enregistre le nom de fichier complet dans sFile
Dim Num As Integer
Num = FreeFile
Open sFile For Random As #Num
'On sauvegarde toutes les données
Put #Num, , D.machin
Put #Num, , D.bidule
Put #Num, , D.truc
Put #Num, , D.chouette
ErrHandler:
End Sub
'Sachant que D c'est ça
Type objet
machin as single
bidule as integer
truc as string
chouette as double
End Type
|