Code enregistrer sous

Version imprimable

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:

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

24/04/2008, 11h24
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é.

bonjour

une petite fonction qui te fais ça aux petit oignons

Code:

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:

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)

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:

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

24/04/2008, 12h19
zyhack

1 pièce(s) jointe(s)

Regarde ce fichier

j'espère que ce sera plus clair
24/04/2008, 14h05
akmer

C'est bon j'ai compris votre formule et l'est mis en place.
Je vosu en remercie.
J'ai une autre question dans le même domaine, qu'elle serait le code pour ouvrir le répertoire suivant:
Z:\projet 3 état décision Excel\décisions

Merci encore
24/04/2008, 14h07
zyhack

trop tard
plus besoin du mode d'emploi détaillé

comment ça ouvrir ?
24/04/2008, 14h15
akmer

1 pièce(s) jointe(s)

comme si je voulais faire fichier->ouvrir et choisir le dossier avec le lien suivant pour voir son contenu(voir doc word joint, c'est la photos de la fenetre que je souhaite ouvrir avec un seul clic sur un bouton créer

Z:\projet 3 état décision Excel\décisions

Comme précédemment dans le code du bouton il faut mettre

Code:

1
2
3
4
 
Dim ret as variant, type_fichier as string
type_fichier =  "tous fichiers, *.*"
Ret = Application.GetOpenFilename(type_fichier)