boite de dialogue enregistrer sous

Coucou, j'aimerais donner une action spécifique au bouton ok de la boite de dialogue enregistrer sous.

En fait, lorsque j'appuye sur le bouton enregister de ma feuille la boite de dialoque s'ouvre et doit créer un fichier que je remplis moi même mais il faut que le fichier soit créer que lorsque que j'appuye sur ok!
Car là il est créé avant que j'appuye sur ok du coup même lorsque je fais annuler il est créer!
Comment donner une action au bouton ok?

Merci!!

t'utilises koi comme controle...juste un bouton ou aussi un CommonDialog ???

It@li@

j'utilise un commonDialog voici le code

CommonDialog1.Filter = "Texte (*.TXT)" 'type de fichier
CommonDialog1.InitDir = "F:\IMSS\"
CommonDialog1.FileName = valueName
On Error Resume Next
CommonDialog1.CancelError = True
CommonDialog1.ShowSave

J'ai Aucun Souci ....aucune génération spontanné de Fichier
Essayes ça :

With CommonDialog1
.DialogTitle = "Enregistrer Fichier"
.Filter = "Fichiers de Texte (*.TXT)|*.txt"
.InitDir = "F:\IMSS\"
.FileName = valueName
.FilterIndex = 2
.Flags = cdlOFNCreatePrompt And cdlOFNFileMustExist And cdlOFNOverwritePrompt
.ShowSave
End With


Sinon Regardes les Flags....cdlOFNCreatePrompt ( par exemple !!)

It@li@

J'ai Aucun Souci ....aucune génération spontanné de Fichier
Essayes ça :

With CommonDialog1
.DialogTitle = "Enregistrer Fichier"
.Filter = "Fichiers de Texte (*.TXT)|*.txt"
.InitDir = "F:\IMSS\"
.FileName = valueName
.FilterIndex = 2
.Flags = cdlOFNCreatePrompt And cdlOFNFileMustExist And cdlOFNOverwritePrompt
.ShowSave
End With


Sinon Regardes les Flags....cdlOFNCreatePrompt et cdlOFNFileMustExist ( par exemple !!)

It@li@