Macro Enregistrer sous

[slaurent01]

Bonjour le forum,


J'ai créé une macro pour enregistrer sous. Le problème est que lorsque je clique sur annuler, un fichier false est automatiquement crée.

Je n'arrive pas à insérer le code nécessaire afin que si l on clique sur annuler la macro s'arrête et n'enregistre pas le fichier.

Sub EnregistrerSous()

    Dim NomFichier As String, x As String, w As String, y As String, NomDefaut As String
    
    'Définition des variables qui vont composer le nom du fichier
    w = ThisWorkbook.Worksheets("Devis").Range("c1")
    x = "-" & ThisWorkbook.Worksheets("Devis").Range("c2")
    y = "-" & Format(Date, "dd mm yyyy")
    
    'Création du nom du fichier
    NomDefaut = w & x & y
    
    'Ouverture de Enregistrer sous
    NomFichier = Application.GetSaveAsFilename(NomDefaut, "Microsoft Excel (*.xlsm), *.xlsm")
    'Sauvegarde
    'If NomFichier <> False Then
    ActiveWorkbook.SaveAs Filename:=NomFichier
    'Else
    'Exit Sub
   'End If
End Sub

Merci pour votre aide

Cordialement
Stéphane

 

[Papou-net]

Re : Macro Enregistrer sous

Bonjour Stéphane,

Peut-être tout simplement comme ceci :

Sub EnregistrerSous()

    Dim NomFichier As String, x As String, w As String, y As String, NomDefaut As String
    
    'Définition des variables qui vont composer le nom du fichier
    w = ThisWorkbook.Worksheets("Devis").Range("c1")
    x = "-" & ThisWorkbook.Worksheets("Devis").Range("c2")
    y = "-" & Format(Date, "dd mm yyyy")
    
    'Création du nom du fichier
    NomDefaut = w & x & y
    
    'Ouverture de Enregistrer sous
      If Application.Dialogs(xlDialogSaveAs).Show = False Then Exit Sub
End Sub

Cordialement.

 

[slaurent01]

Re : Macro Enregistrer sous [Résolu]

bonjour le forum,

bonjour jean-macel et papou-net, Merci pour la rapidité de vos réponses, J'ai testé les deux et elles fonctionnent parfaitement.

Merci pour votre aide.
Bonne journée
Cordialement
Stéphane