enregistrer sous

[Amo]

Bonjour à tous, je vous ai joins un fichier dans lequel se trouve un bouton 'enregistrer sous'. Quand je clique sur ce bouton la boite de dialogue enregistrer sous apparait, jusqu'ici pas de souci. Par contre quand je fais annuler l'enregistrerment ça enregistre par défaut en false.xls et moi je voudrais que ca n'enregistre pas du tout et que ca me mette un message du style : 'fichier non enregistré !!'
Merci pour vos réponses
Amo [file name=enregistrersous.zip size=8426]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/enregistrersous.zip[/file]

 

[Yan L]

Bonjour,

En fait, la raison de ton problème est simple : si l'utilisateur clique sur annuler, la méthode Application.GetSaveAsFilename renvoie 'False' ou 'Faux' selon la version.
Si tu lance l'enregistrement sans test préalable, la méthode SaveAs va t'enregistrer le fichier sous False.xls.
Pour y remédier :


Private Sub CommandButton1_Click()
monFichierDestination = Application.GetSaveAsFilename(fileFilter:='Classeur Microsoft Excel (*.xls), *.xls')

If (monFichierDestination <> 'False') Then
ActiveWorkbook.SaveAs FileName:=monFichierDestination, FileFormat:=xlNormal _
, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, _
CreateBackup:=False
End If
End Sub

 

[amo]

ok merci beaucoup !!!!
amo.