Sauvegarde en Xls
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
Bonjour
Essaie en terminant ton code par
Application.DisplayAlerts=False
Application.Dialogs(xlDialogSaveAs).Show NomFichier
'ActiveWorkbook.Saved = True
'ActiveWorkbook.Close
End If
End If
Application.DisplayAlerts=True
End Sub
Cordialement
Bonsoir, Amadéus
C'est ok pour le code, j'ai plus le message .
Merci
Cordialement