URGENT: sauver un fichier xls avec commondialog .showsave
cyanv
Messages postés1Date d'inscriptionmercredi 4 juin 2003StatutMembreDernière intervention 8 août 2003
-
8 août 2003 à 12:30
NISANDSYSTEMS
Messages postés146Date d'inscriptionvendredi 1 novembre 2002StatutMembreDernière intervention13 décembre 2014
-
9 août 2003 à 12:15
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
:sad)
Sachant que dlgxls est bien défini comme commondialog.
Mille merci
Vince
Derrick soft
Messages postés97Date d'inscriptionjeudi 10 mai 2001StatutMembreDernière intervention20 juin 2005 8 août 2003 à 12:36
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
-------------------------------------------------------
NISANDSYSTEMS
Messages postés146Date d'inscriptionvendredi 1 novembre 2002StatutMembreDernière intervention13 décembre 2014 9 août 2003 à 12:15
-------------------------------
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
> > > :sad)
> > > 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
'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,....