Discussion :

[toutoune95800]

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 !

[kiki29]

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

[casefayere]

Bonsoir,
sinon, un simple code avec un inputbox :

Code :

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

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

[Didier Gonard]

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 :

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

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

[fring]

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

C'est la méthode GetSaveAsFilename

Son utilisation :

Code :

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

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

[toutoune95800]

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 :

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

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 !