D'accord, je comprend mieux l’intérêt de pouvoir choisir l'emplacement de la sauvegarde. Voici une proposition à tester si elle te convient :
Private Sub Workbook_Open()
If Day(Date) & "/" & Month(Date) & "/" & Year(Date) = "28/" & Month(Date) & "/" & Year(Date) Then
If Sheets("Feuil2").Range("A1").Value = "Non" Then
If MsgBox("Voulez-vous sauvegarder le fichier tout de suite ?", vbYesNo, "Attention") = vbYes Then
Sheets("Feuil2").Range("A1").Value = "Oui"
Dim a As String
a = Application.GetSaveAsFilename
If Format(a) <> False Then
ThisWorkbook.SaveCopyAs a
End If
Else
MsgBox "Pensez à sauvegarder ultérieurement."
End If
End If
Else
Sheets("Feuil2").Range("A1").Value = "Non"
End If
End Sub
Tu as juste à changer le jour du mois où il faut demander de sauvegarder (ici le 28)
de plus toutes les lignes avec "Sheets("Feuil2").Range("A1").Value" peut être une autre case non utilisée sur une autre feuille par exemple.
Ce code est à copier dans "ThisWorkbook" dans VBA.
A plus