code pour enregistrer

akmer · 24 Avril 2008

Bonjour,
Je souhaiterais que lorsque je clique sur un bouton sous Excel qu'apparaisse la même fenêtre que si je faissais Fichier->Enregistrer sous, avec comme nom de fichier à enregistrer: Etat de décision du (Textboxdate1) au (textboxdate2)
J'ai fait la formule suivante cependant elle enregistre tous directement et je préféreré avoir la même fenetre que Fichier->Enregistrer sous car cela permettrait une 2ème confirmation.
Voila la formule que j'ai déjà faite mais ne répondant pas totalement à mes attentes:
ActiveWorkbook.SaveAs Filename:= _
"Z:\projet 3 état décision Excel\décisions\Etat des décisions du " & UserForm1.TextBoxDate2.Text & " au " & UserForm1.TextBoxDate2.Text & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Merci d'avance pour votre aide
Cordialement

Staple1600 · 24 Avril 2008

Re : code pour enregistrer

Bonjour

A adapter

Sub test()
Dim nomfic As String
nomfic = "toto" & ".xls"
Application.Dialogs.Item(xlDialogSaveAs).Show arg1:=nomfic
End Sub

A compléter en utilisant ChDrive et ChDir
(voir dans l'aide VBA d'Excel)

akmer · 24 Avril 2008

Re : code pour enregistrer

Voila le code que j'ai utilisé cependant le seul problème est le chdir, je pensais que cela allé ouvrir le répertoire que je voulais dans la fenetre qui apparait.
Private Sub CommandButton1_Click()
Dim nomfic As String
ChDir "O:\EXCEL\Etat des décisions 2007\1)Juin"
nomfic = "Etat des décisions du " & UserForm1.TextBox1.Text & " au " & UserForm1.TextBox2.Text & ".xls"

Application.Dialogs.Item(xlDialogSaveAs).Show arg1:=nomfic

End Sub

Connaissez vous la formule approprié
Merci d'avance

Staple1600 · 24 Avril 2008

Re : code pour enregistrer

Re

Relis ma précédente réponse:

ChDrive

akmer · 24 Avril 2008

Re : code pour enregistrer

Oui jel 'ai vu et j'ai essayer aussi avec chdrive et cela ne marche pas non plus

Private Sub CommandButton1_Click()
Dim nomfic As String
ChDrive "O:\EXCEL\Etat des décisions 2007\1)Juin"
nomfic = "Etat des décisions du " & UserForm1.TextBox1.Text & " au " & UserForm1.TextBox2.Text & ".xls"

Application.Dialogs.Item(xlDialogSaveAs).Show arg1:=nomfic

End Sub

Staple1600 · 24 Avril 2008

Re : code pour enregistrer

Re

Pourtant c'était écrit

ChDrive et ChDir

Dim nomfic As String
ChDrive "O"
ChDir "O:\EXCEL\Etat des décisions 2007\1)Juin"

akmer · 24 Avril 2008

Re : code pour enregistrer

J'avais aussi essayer sa et sa ne marche pas non plus.

Private Sub CommandButton1_Click()
Dim nomfic As String
ChDrive "O"
ChDir "O:\EXCEL\Etat des décisions 2007\1)Juin"
nomfic = "Etat des décisions du " & UserForm1.TextBox1.Text & " au " & UserForm1.TextBox2.Text & ".xls"
Application.Dialogs.Item(xlDialogSaveAs).Show arg1:=nomfic

End Sub

Je suis d'accord avec votre formule mais je ne comprend pas pourquoi celan ne marche pas

Staple1600 · 24 Avril 2008

Re : code pour enregistrer

Re

Sur Excel 2000, cela fonctionne

Je viens de tester.

Que renvoie les TextBox?

Une date dans ce format : 24/04/2008?

Si c'est le cas l'erreur est là.

Mettre ce format: 24-04-08

akmer · 24 Avril 2008

Re : code pour enregistrer

je suis sur excel 2003
Connaissait vous la formule pour ce excel 2003??

Staple1600 · 24 Avril 2008

Re : code pour enregistrer

Re

Relire ma dernière réponse , svp.

akmer · 24 Avril 2008

Re : code pour enregistrer

Le format n'y change rien et moi je ne compren plus rien

Staple1600 · 24 Avril 2008

Re : code pour enregistrer

Re

Cela fonctionne
(je viens de tester!)
(EDITION: cela fonctionne sur un classeur vierge qui n'a pas encore été enregistré)

Code:

Private Sub CommandButton1_Click()
Dim nomfic As String
ChDrive "D"
ChDir "D:\Temp\"
nomfic = "toto" & Format(CDate(Me.TextBox1), "dd-mm-yyyy") & ".xls"
Me.Hide
Application.Dialogs.Item(xlDialogSaveAs).Show arg1:=nomfic
End Sub

akmer · 24 Avril 2008

Re : code pour enregistrer

Cela ne marche toujours pas, quand sa ouvre le menu pour enregistrer sa ouvre pas le bon répertoire(sa ouvre le repertoire où j'ai enregistrer mon fichier que j'utilise) au lieu du repertoire O:\EXCEL\Etat des décisions 2007\1)Juin
Voila le code
Private Sub CommandButton1_Click()
Dim nomfic As String
ChDrive "O"
ChDir "O:\EXCEL\taux"
nomfic = "toto" & Format(CDate(UserForm1.TextBox1), "dd-mm-yyyy") & ".xls"
UserForm1.Hide
Application.Dialogs.Item(xlDialogSaveAs).Show arg1:=nomfic
End Sub

code pour enregistrer

akmer

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

akmer

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

akmer

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

akmer

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

akmer

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

akmer

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

akmer

XLDnaute Junior

Discussions similaires