Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'Quand on double-clic pour lancer permis = True ThisWorkbook.Close savechanges:=False DoEvents permis = False End Sub Private Sub CommandButton2_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'Quand on double-clic pour enregistrer permis = True ThisWorkbook.Save DoEvents permis = False End Sub
Public Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Not permis Then Cancel = True UserForm9.Show 'Affiche l'UserForm9 End If End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) If Not permis Then Cancel = True UserForm9.Show 'Affiche l'UserForm9 End If Application.Quit End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) if toto false then Cancel True End Sub
Private Sub Workbook_Open() 'Ouverture automatique de l'UserForm1 à l'ouverture du classeur Excel UserForm1.Show 'Affiche l'UserForm1 End Sub
Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'Quand on double clic Run "save" 'Ordonne de lire la Macro principale End Sub
Sub save() Toto = True 'SaveAs (Dois je mettre un nom d'enregistrement, un chemin d'enregistrement, ou une extention peut être ??? Toto = False End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Toto False Then Cancel True End Sub
j'aimerais un UserForm qui permet l'enregistrement du fichier sans autres modifications possibles.
Private Sub CommandButton2_Click()
permis = True
ThisWorkbook.Save
DoEvents
permis = False
End Sub
Public permis As Boolean
Public Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Not permis Then Cancel = True MsgBox "vous ne pouvez sauvegarder qu'à l'aide de mon bouton de commande ad hoc" End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Workbook_BeforeClose(Cancel As Boolean) permis = True End Sub
Private Sub Workbook_BeforeClose(Cancel as Boolean) If Me.Saved = False Then Me.Save End Sub
Private Sub Workbook_BeforeClose(Cancel as Boolean) If Me.Saved = False Then permis = true Me.Save permis = false end if End Sub