enregistrer classeur entier sous +date et heure Résolu/Fermé

Question

Bonsoir le forum,

j'avais une macro qui fonctionnait mais je viens de me rendre compte que la macro fait comme si elle enregistrait sous mais quand j'essaie de récupérer le fichier ce fichier n'a pas été sauvegardé?

Je ne vois pas où est l'erreur

voici le code :

Sub SaveFilebkup()
  Dim Filename As String
 
  If MsgBox("Voulez vous enregistrer SOMMAIRE DES PATIENTS sur votre disque local ?", vbQuestion + vbYesNo, "Confirmation Request") = vbYes Then
    Filename = "BKUP_INTERMEDIAIRE_LE" & Format(Date, "dd mm yyyy") & "_A_" & Format(Time, "hh_mm_ss") & ".xlsm"
    With Application.FileDialog(msoFileDialogSaveAs)
      .Title = "Save File as"
      .InitialFileName = Filename
      .Show
    End With
  End If
End Sub

quelqu'un peut-il me dire ce qui ne fonctionne pas dans la macro ?

Merci de votre aide

M-12 · Answer

Bonjour

Teste comme ceci

Sub SaveFilebkup()
  Dim Filename As String
 
  If MsgBox("Voulez vous enregistrer SOMMAIRE DES PATIENTS sur votre disque local ?", vbQuestion + vbYesNo, "Confirmation Request") = vbYes Then
    Filename = "BKUP_INTERMEDIAIRE_LE " & Format(Date, "dd mm yyyy") & "_A_" & Format(Time, "hh_mm_ss") & ".xlsm"
    With Application.FileDialog(msoFileDialogSaveAs)
      .Title = "Save File as"
      .InitialFileName = Filename
      .FilterIndex = 2
      If .Show = -1 Then
            ActiveWorkbook.SaveAs Filename:=Filename, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        End If
    End With
  End If
End Sub

00_com · Answer

Bonjour M-12,

Fantastique !

Voilà une macro qui fonctionne.

Merci beaucoup pour votre réponse réactive et rapide.

Cordialement

Enregistrer classeur entier sous +date et heure

2 réponses

Discussions similaires