Discussion :

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
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

[neupont]

Salut,
va voir du côté de GetSaveAsFilename
Mais attention, cette instruction ne fait que retourner le nom (et le chemin) déterminé par l'utilisateur du fichier à sauvegarder, donc il faut ensuite utiliser .SaveAs comme tu l'as fait en faisant simplement en sorte qu'il utilise le nom de fichier retourné.

[zyhack]

bonjour

une petite fonction qui te fais ça aux petit oignons

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function fntEnregistrerFichierSous(ByVal strDir As String)
    Dim fd As FileDialog
 
    Set fd = Application.FileDialog(msoFileDialogSaveAs)
    With fd
        .InitialFileName = strDir
        If .Show = CANCEL_PRESSED Then
        Else
            .Execute
        End If
    End With
    Set fd = Nothing
End Function

à appeler de la maniere suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
chemin="Z:\projet 3 état décision Excel\décisions\Etat des décisions du " & UserForm1.TextBoxDate2.Text & " au " & UserForm1.TextBoxDate2.Text & ".xls"
fntEnregistrerFichierSous(chemin)

[akmer]

Je ne comprend pas votre formule car je suis débutant
Pouvais vous me la joindre directement dans un fichier Excel.

Quelqu'un m'a fourni une formule qui est la suivante mais qui ne marche pas apparament sous Excel 2003 car cette personne a Excel 2000 et sa marche etu sur mon pc sa marche pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
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

Merci d'avance pour votre aide

[zyhack]

Regarde ce fichier

j'espère que ce sera plus clair