Bonjour,

En fin de procédure je fais appel à la procédure ci-dessous pour enregistrer un backup du fichier.
Je propose d'enregistrer le fichier proposé sur le bureau et je clique sur le bouton "enregistrer" sauf que le fichier n'est pas enregistré ??

Des suggestions ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub SaveFile()
  Dim Filename As String
 
  If MsgBox("Do you want to save TEST on your local disk ?", vbQuestion + vbYesNo, "Confirmation Request") = vbYes Then
    Filename = "TEST_" & Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & ".xlsm"
    With Application.FileDialog(msoFileDialogSaveAs)
      .Title = "Save File as"
      .InitialFileName = Filename
      .Show
    End With
  End If
End Sub