-------------------------------
Réponse au message :
-------------------------------
> Bonjour,
> voila un exemple maispour une richtextbox
> richtextbox1.SaveFile CommonDialog1.FileName, rtfRTF
> A+
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Bonjour,
> >
> > Quand l'utilisateur à cliquer sur Enregistrer vous devez faire Save ou SaveAs pour enregistrer le fichier sur le disque. Regardé l'aide VBA Excel.
> >
> > Cordialement
> >
> > Stéphane Maillard
> >
> > Rixy Software
> > 43, rue Jean Delalande
> > 35400 Saint Malo
> > Tel/Fax : 02.99.20.17.37
> > Support : support@rixy-software.com
> > Site : www.rixy-software.com
> > -------------------------------------------------------
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > >
Cyanv> > > Je n'arrive à sauvegarder ou créer un fichier excel; la boîte de dailog s'ouvre, mais n'enregistre pas mon fichier...
> > >
> > > Voilà une parlie de mon code:
> > >
> > > Private Sub MnuFichierNew_Click()
> > > Dim sFile, FilePath As String
> > > dlgxls.Filter = "Simulation (*.xls)|*.xls" 'affiche seulement les fichiers se terminant par .dat
> > > dlgxls.ShowSave 'affiche la boîte de dialogue Enregistrer sous
> > > dlgxls.FileName
> > > End Sub
> > >
> > > Sachant que dlgxls est bien défini comme commondialog.
> > > Mille merci
> > > Vince
> >
>
pour enregistrer utilise FileCopy
'ex: Il faut connaitre la source et la destination du fichier
Dim sFile, FilePath As String
'FilePath =chemin complet de ton fichier avec extention(.xls)
'avant enregistrement
'ex: "c:\mon prog\fichier\factures.xls"
dlgxls.Filter = "Simulation (*.xls)|*.xls" les fichiers se
dlgxls.flags=2 'permet d'ecaser le fichier si il existe
dlgxls.ShowSave
sFile=dlgxls.FileName
'sFile=destination = "e:\mes comptes\factures.xls"
filecopy FilePath ,sFile
'donc filecopy= "c:\mon prog\fichier\factures.xls" , "e:\mes comptes\factures.xls"
'tu devras recourir auparavant a une routine pour gerer
la presence du blackshah "\" sur le nom du chemin
avant d'enregistrer, verifier l'existence du fichier,....
si besoin d'aide
mon E-mail:
NISAND-SYSTEMS@wanadoo.fr
bon courage à toi