SaveAs = Save

[news]

Bonsoir,

J'ai besoin que lorsqu'on veut utiliser SaveAs,
en cliquant sous >> Fichier >> Enregistrer sous

qu'il n'y a pas de boite de dialogue qui s'ouvre, mais que le fichier est simplement enregistré.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "Sauvegarde non autorisée ! Vous devez utiliser la commande : Enregistrer..."
'Cancel = True
Application.EnableEvents = False
If Application.ThisWorkbook.SaveAsUI Then ThisWorkbook.Saved = True
Application.EnableEvents = True
Close
End Sub

Mais cela ne fonctionne pas,

Comment modifier le vba code ?, afin que SaveAs = Save

 

[Kim75]

Re : SaveAs = Save

Salut news,

Un coup d'oeil là dessus : Ce lien n'existe plus

Kim.

 

[news]

Re : SaveAs = Save

bonsoir à tous du forum,

merci Kim75 pour réponse,
j'ai consulté le lien mis est le vba code suivant le résoud :


Application.EnableEvents = False

If ThisWorkbook.Saved = False Then
ThisWorkbook.Save
End If

Application.EnableEvents = True