Vieux source VB3, voir si pareil maintenant
CMDialog.DialogTitle = "Sauvegarde du fichier"
CMDialog.Flags = &H2& Or &H4& ' OFN_OVERWRITEPROMPT + OFN_HIDEREADONLY
CMDialog.CancelError = True ' valide erreur si Cancel
On Error Resume Next
CMDialog.Action = 2 ' écriture de fichier
If Err = 32755 Then ' bouton Abandon!!
On Error GoTo 0
EcritFichierDAT = 0 ' y a pas eu erreur: changement d'avis
Exit Function 'car Abandonné!
End If
On Error GoTo 0
FichChoisi = CMDialog.Filename
Il semblerait que si CMDialog.CancelError est FALSE, on ne peut pas savoir si Cancel actionné (sauf peut-être en regardant si chaîne fichier vide ?). Cf doc, aide en ligne, j'â oubliâ.