Bonsoir,
Dite moi avec se code comment forcer la sauvegarde en xls c'est avoir le message d'excel disant les fonctionalitées ne peuvent
enregistré sans macro tec............
Sub Enregistrer_Sous()
'
' Enregistrer_Sous
'
If MsgBox("Etes-vous certain de vouloir sauvegarder ce fichier ?", vbYesNo, "Demande de confirmation") = vbYes Then
If MsgBox("Cette action fermera votre fichier pour valider sa sauvegarde ?", vbYesNo, "Demande de confirmation") = vbYes Then
Dim NomFichier As String
NomFichier = Sheets("FICHE_RECEPTION").Range("G3") & " " & Range("H3") & " " & Range("D5") & " " & Range("E8").Value
With ActiveSheet
.Range("D3").Value = .Range("D3").Value ' Fixe la date
' ActiveSheet.Shapes.Range(Array("Bouton 1", "Bouton 2", "bouton 3", "CommandButton1")).Select
'Selection.Delete ' ' Enlève les boutons
'End With
End With
Application.Dialogs(xlDialogSaveAs).Show NomFichier
'ActiveWorkbook.Saved = True
'ActiveWorkbook.Close
End If
End If
End Sub