forcer un enregistrementRésolu

Question

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

jrivet · Accepted Answer

Salut,

Est ce que &#224; cette ligne l&#224; un classeur est actif?
Si non tu fais Application.Worbook(IndexDeTonClasseur).SaveAs(CheminXLS)

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

jrivet · Answer

Salut,

Excuse moi mais je ne comprends pas trop ce que tu souhaites faire.

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_petchy · Answer

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 &#233;tait plus clair 
merci
petchy

nougasplou29 · Answer

Salut je sais pas si c'est ca que tu veux :
Si tu as d&#233;clar&#233; 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

aurelien2723 · Answer

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 ;)

jrivet · Answer

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 &#224; cot&#233; c'est que j'ai pas encore du comprendre ou tu voulais en venir

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_petchy · Answer

Re
merci pour vos r&#233;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&#233;finie.
&#231;a veur dire quoi 
petchy

titsuisse · Answer

Pour enregistrer ton fichier &#224; 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&#233; sous C:" & nom, vbOKOnly, "confirmation")

En esp&#233;rant avoir pu t'aider

Forcer un enregistrement

8 réponses

Discussions similaires