dhiouf
XLDnaute Occasionnel
Bonjour à toutes et à tous
J’utilise mon classeur comme éditeur de bulletin de paie, j’ai créé la macro suivante pour faire l’enregistrement sous le nom tapé dans la cellule E10 pour que mon éditeur reste toujours vierge.
Macro enregistrer sous:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Dim Nom$
Nom = CStr(Sheets("Acceuil").Range("E10").Value)
ActiveWorkbook.SaveAs Filename:=Nom
ThisWorkbook.Close SaveChanges:=False
MsgBox "document Enregistré dans Mes Documents Sous Nom d'employé " & Sheets("Acceuil").Range("E10").Value, vbOKOnly + vbInformation, Title:="Enregistrement"
ThisWorkbook.Close
End Sub
Macro pour annuler la commande enregistrer sous dans la barre de menu fichier :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then Cancel = True
End Sub Ma question, est-il possible d’ajouter une procédure à la macro enregistrer sous pour dire à Excel annuler l’enregistrement et fermer l’éditeur de bulletins de paie si la cellule E10 est vide
Merci d’avance
J’utilise mon classeur comme éditeur de bulletin de paie, j’ai créé la macro suivante pour faire l’enregistrement sous le nom tapé dans la cellule E10 pour que mon éditeur reste toujours vierge.
Macro enregistrer sous:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Dim Nom$
Nom = CStr(Sheets("Acceuil").Range("E10").Value)
ActiveWorkbook.SaveAs Filename:=Nom
ThisWorkbook.Close SaveChanges:=False
MsgBox "document Enregistré dans Mes Documents Sous Nom d'employé " & Sheets("Acceuil").Range("E10").Value, vbOKOnly + vbInformation, Title:="Enregistrement"
ThisWorkbook.Close
End Sub
Macro pour annuler la commande enregistrer sous dans la barre de menu fichier :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then Cancel = True
End Sub Ma question, est-il possible d’ajouter une procédure à la macro enregistrer sous pour dire à Excel annuler l’enregistrement et fermer l’éditeur de bulletins de paie si la cellule E10 est vide
Merci d’avance