URGENT: sauver un fichier xls avec commondialog .showsave

Signaler
Messages postés
1
Date d'inscription
mercredi 4 juin 2003
Statut
Membre
Dernière intervention
8 août 2003
-
Messages postés
146
Date d'inscription
vendredi 1 novembre 2002
Statut
Membre
Dernière intervention
13 décembre 2014
-
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

3 réponses

Messages postés
97
Date d'inscription
jeudi 10 mai 2001
Statut
Membre
Dernière intervention
20 juin 2005

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
-------------------------------------------------------
Messages postés
193
Date d'inscription
lundi 27 janvier 2003
Statut
Membre
Dernière intervention
10 mars 2010
2
Bonjour,
voila un exemple maispour une richtextbox
richtextbox1.SaveFile CommonDialog1.FileName, rtfRTF
A+
Messages postés
146
Date d'inscription
vendredi 1 novembre 2002
Statut
Membre
Dernière intervention
13 décembre 2014

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

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