Enregistrer Sous

[dhiouf]

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

 

[PascalXLD]

Re : Enregistrer Sous

Bonjour

essaies ainsi

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
Dim Nom$
Nom = CStr(Sheets("Acceuil").Range("E10").Value)
if nom <>"" then
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"
end if
ThisWorkbook.Close false
End Sub

 

[dhiouf]

Re : Enregistrer Sous

Re bonjour Pascal76
Merci pour ta macro,mais il-ya un probleme, si la cellule E10 est vide la macro marche comme je le voulais, mais si la cellule E10 contient un nom la boite de dialogue voulez vous enregistrer les modification.... s'affiche sur l'écran ça je le ne veux pas
Merci

 

[dhiouf]

Re : Enregistrer Sous

Re Pascal76
oops.. éxcusé moi Pascal76,l'érreur chez moi j'ai pas enregistrer mon classeur aprés la création du macro
Merci beaucoup de ton aide

 

[dhiouf]

Re : Enregistrer Sous

Re Pascal76
Après l’exécution de ta macro et à la fermeture du classeur reste une page toute en gris, existe il une solution pour fermer le classeur totalement
Merci d’avance
Voir fichier joint

 

[PascalXLD]

Re : Enregistrer Sous

RE

Je suppose que tu as posté un nouveau fil donc je reponds sur l'autre à la suite