forcer un enregistrement

bonjour
[VB6]
A l'aide d'un optionButton j'ouvre une boite de dialogue pour enregistrer un fichier Excel.
Comment faire pour enregistrer le fichier sans passer par la boite de dialogue "c:/la date de jour.xls",avec un message de confirmation du style:
"Le fichier est bien enregistrer sous c:/date du jour"
merci
@ plus
petchy

Salut,

Excuse moi mais je ne comprends pas trop ce que tu souhaites faire.

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée

salut Julien
je voudrais, que quand je click sur l'OptionButton le fichier soit enregistrer directement dans le Disque C avec la date du jour, que je ne passe plus par un Commondialog.
voila,j'espere avoir était plus clair
merci
petchy

Salut je sais pas si c'est ca que tu veux :
Si tu as déclaré tes variables comme ca :

Set exc = CreateObject("excel.Application")
Set wb = exc.Workbooks.Open(nomFichier)    

avec nomFichier=Now() (tu peux formater la date comme tu ve)

Pour sauvegarder, tu fais :

Call wb.Save

Salut!!

Tu as une commande pour désactiver les maeesages.

Avec ton objet excel ouvert,
tu fais  
appExcel.DiscardMsg True

ou un truc comme ca, je me souviens plus exactement et je ne trouve plus dans le forum...

Tu fais ce de la même manière que pour rendre Excel invisible

appExcel.Visible False

Voila.
Oubli pas de validé la réponse quand ca sera ok ;)

RE,

Si tu ne veux pas passer par un CommonDialog fais juste un truc du style

Dim CheminXLS as string
CheminXLS = "C:\" & Format(Date, ddmmyyyy) & ".xls")
ActiveWorkBook.SaveAs(CheminXLS)

Si je tape à coté c'est que j'ai pas encore du comprendre ou tu voulais en venir

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée

Re
merci pour vos réponses,
Julien c'est se que je veut,mais quand je veut sauvegarder le fichier il me met une erreur sur cette ligne
ActiveWorkbook.SaveAs (CheminXLS) en disant "variable objet ou variable bloc with non définie.
ça veur dire quoi
petchy

Pour enregistrer ton fichier à la date du jour sous ton C

nom = Format(Date, "ddmmyy")
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:=nom, FileFormat:=xlExcel5

Ensuite si tu veux un message de confirmation

confirm = MsgBox("le fichier est bien enregistré sous C:\" & nom, vbOKOnly, "confirmation")

En espérant avoir pu t'aider