Enregistrement de fichier via boite de dialogue

Version imprimable

Bonjour,

J'ai un modèle Excel avec macros (.xltm) et je souhaiterai que lorsque l'utilisateur clique sur enregistrer (première sauvegarde) il propose un nom de sauvegarde par défaut dans la boîte de dialogue Save As avec un répertoire par défaut. Mais qui puisse si l'utilisateur le désir modifier ces valeurs par défaut

Voici ce que j'ai déjà réalisé :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim Enreg, Repertoire, Nom As String 'par défaut (ouverture du XLTM le fichier est nommé Fichier_Source1.xlsm) Repertoire = "C:\Users\Bob\Desktop\" 'répertoire par défaut If Feuil1.Range("B4") <> "" Then Nom = (Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 1) & "_" & Format(Date, "yymmdd") & "_" & Feuil1.Range("B4").Value & ".xlsm") Else Nom = (Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 1) & "_" & Format(Date, "yymmdd") & "_SN.xlsm") End If End Sub
Par contre j'ignore comment attribuer ces valeurs à la boite de dialogue enregistrer sous. Merci d'avance de votre aide.

Bonjour,

Essaie comme ceci pour voir

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    Dim Repertoire As String, Nom As String
    Dim Fichier As String
 
    Repertoire = "C:\Users\Bob\Desktop\"
    If Feuil1.Range("B4") <> "" Then
        Nom = (Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 1) & "_" & Format(Date, "yymmdd") & "_" & Feuil1.Range("B4").Value & ".xlsm")
    Else
        Nom = (Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 1) & "_" & Format(Date, "yymmdd") & "_SN.xlsm")
    End If
 
    ChDrive "C"
    ChDir Repertoire
    Fichier = Application.GetSaveAsFilename(Nom)
    If Fichier = "Faux" Then
        Exit Sub
    Else
        ThisWorkbook.SaveCopyAs Fichier & ".xlsx"
    End If

18/10/2017, 15h26
Vincent32

Merci de cette réponse malheureusement elle ne fonctionne pas

Elle m'ouvre l'onglet fichier enregistrer sous je choisis un chemin par défaut dans la liste proposée puis m'ouvre la boite de dialogue enregistrer sous où le champs fichier est vide et le type est à tous les formats (sans autre choix possible). Si je valide en l'état il ne se passe rien. Si j'entre un nom de fichier alors il enregistre le fichier avec le nom de fichier renseigné puis m'ouvre une seconde fois la boite de dialogue enregistrer sous avec comme titre de fichier toujours le Fichier_Source1.xlsm.

Peut être devrais je sortir cette procédure de : Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ?
18/10/2017, 18h07
Menhir

Il y a de nombreuse boites de dialogue "Enregistrer Sous" en VBA.
Entre autre :
https://msdn.microsoft.com/library/2...ice.15%29.aspx
https://msdn.microsoft.com/library/0...ice.15%29.aspx

Mais toutes ont un point commun : elles n'enregistrent pas le fichier.
Elles se contentent de récupérer (suivant celles choisies) un chemin et un nom.

Pour enregistrer, il faut utiliser ces informations dans un SaveAs.
https://msdn.microsoft.com/fr-fr/vba...s-method-excel
18/10/2017, 20h54
parmi

Dans mon code j'ai mis SaveCopyAs pour enregistrer une copie du fichier source tout en conservant le source en son état, mais tu pourrais utiliser SaveAs pour enregistrer le fichier tel quel.
Les exemples de Menhir, que je salue, sont très clairs.
19/10/2017, 08h00
Vincent32

Ok merci pour ces retours mais je ne pige pas (désolé je comprends vite mais il faut m'expliquer longtemps:roll:) :

J'utilise le code proposé par parmi :

1°) Je déclare mes variables : Répertoire, Nom et Fichier en string
2°) Je défini les valeurs suivantes :
a) Repertoire = "C:\Users\Bob\Desktop\"
b) Nom = (Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 1) & "_" & Format(Date, "yymmdd") & "_" & Feuil1.Range("B4").Value & ".xlsm") 'pour info Feuil1.Range("B4").Value= 4 digits

c) Fichier = Application.GetSaveAsFilename(Nom) (j'ai également essayé Fichier = Application.GetSaveAsFilename(CVar(Nom))
Mais la proposition du nom de fichier dans la boîte de dialogue est vide alors que si je propose Application.GetSaveAsFilename("BOB") ça fonctionne. J'ai également essayé de déclaré mes variables en variant mais ça ne fonctionne pas mieux. J'avoue que je sèche et que je suis à court d'idées :( !
19/10/2017, 08h13
Vincent32

:yaisse2: EUREKA ! J'ai trouvé il n'aime pas mais alors pas du tout le .xlsm à la fin das la variable nom !
19/10/2017, 09h14
Menhir

Citation:

Envoyé par Vincent32

c) Fichier = Application.GetSaveAsFilename(Nom) (j'ai également essayé Fichier = Application.GetSaveAsFilename(CVar(Nom))

Regarde la syntaxe et l'exemple : https://msdn.microsoft.com/library/2...ice.15%29.aspx
Au passage, je ne vois pas trop pourquoi tu as utilisé un CVar.