code pour enregistrer

[akmer]

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]

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]

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]

Re : code pour enregistrer

Re



Relis ma précédente réponse:

ChDrive

 

[akmer]

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]

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]

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]

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]

Re : code pour enregistrer

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

 

[Staple1600]

Re : code pour enregistrer

Re


Relire ma dernière réponse , svp.

 

[akmer]

Re : code pour enregistrer

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

 

[Staple1600]

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

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]

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