Enregistrer sous : question sur la méthode

Version imprimable

04/04/2012, 18h08
toutoune95800

Enregistrer sous : question sur la méthode

Bonjour,

Sur mon formulaire, je peux lancer un bouton qui ouvre la boite de dialogue enregistrer sous avec une methode Getnamefil (Je sais plus trop l'écrire sans aide)

Seulement, à part ouvrir une boite, il ne fait rien d'autre. Même si je tape un nom de fichier, ca ne s'enregistre pas.

Je voudrais juste un simple enregistrer sous comme dans Excel. (format xls)

Comment fait-on ?

Merci d'avance pour vos cours particuliers !:lol:
04/04/2012, 18h18
kiki29

Salut, utilise l'enregistreur de macros et personnalise le code obtenu

Bonsoir,
sinon, un simple code avec un inputbox :

Code:

1
2
3
4
5
6
7
8
Sub enregistrement()
Dim mess As String
mess = InputBox("enregistrer ce fichier sous ?", "SAUVEGARDE", ThisWorkbook.Name)
ActiveWorkbook.SaveAs Filename:= _
        ThisWorkbook.Path & "\" & mess, FileFormat:= _
        xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
End Sub

Bonjour,

Vois du côté de l'aide VBA à : Application.FileDialog, propriété
en exemple un extrait de code (pour les mots clefs) que j'ai sous PowerPoint, mais idem sous Excel :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub toto()
Dim dlgSaveAs As FileDialog
Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
'propose un Rep par défaut...
dlgSaveAs.InitialFileName = Left(ActivePresentation.FullName, Len(ActivePresentation.FullName) - 4)
If dlgSaveAs.Show = -1 Then '  Lance la boîte et si valeur retournée = -1 c'est qu'un bouton action a été préssé,
    strSelectedItem = dlgSaveAs.SelectedItems(1)  'choix unique ici
    intLongChemin = Len(strSelectedItem)
    If intLongChemin > 216 Then
        MsgBox " la longueur du nom du fichier + celle du chemin complet ne doit pas dépasser 216 caractères " _
        & vbLf & " Nous sommes ici avec le fichier proposé à : " & intLongChemin & " => l'action va être annulée." _
        & vbLf & " Cette annulation interompt le processus, redémarrer la macro si besoin", , gvStrCli
        End
    End If
    dlgSaveAs.Execute
'.../...
End If
End Sub

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

Citation:

Envoyé par toutoune95800

methode Getnamefil (Je sais plus trop l'écrire sans aide)

C'est la méthode GetSaveAsFilename ;)

Son utilisation :
Code:

1 2 3 4 5 6 7 Sub test() Dim NomFich As Variant NomFich = Application.GetSaveAsFilename(fileFilter:="Classeur Excel (*.xls), *.xls") If NomFich <> False Then ThisWorkbook.SaveAs NomFich End Sub

Merci à vous tous ! Ca marche ! ! ! J'ai finalement mélangé avec vos code, le inputbox ! Cela fait exactement ce que je voulais !

Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub CommandButton2_Click()
 
Dim mess As String
 
fichier_generique = "Tableau_Gs"
mess = InputBox("Enregistrer ce fichier sous?", "Sauvegarde")
 
If fichier_generique <> mess Then
 
ChDir "Z:\03_SO 1A.188\02_SUE CSO\03-Effectifs\01-Suivi du Personnel\01-Gestion des Personnels\Gestion base de données\01 Base de données\Fichiers_Gsbdd\Tableau envoyé\"
ActiveWorkbook.SaveAs Filename:="Z:\03_SO 1A.188\02_SUE CSO\03-Effectifs\01-Suivi du Personnel\01-Gestion des Personnels\Gestion base de données\01 Base de données\Fichiers_Gsbdd\Tableau envoyé\" & mess, FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
 
 
Else
Application.DisplayAlerts = False
MsgBox "Vous ne pouvez pas remplaçer le fichier source", vbCritical, "Ecriture interdite"
Cancel = True
 
End If

Merci à tous ! :mouarf: