Macro excel enregistrer sous

Résolu
steaker59 Messages postés 47 Date d'inscription   Statut Membre Dernière intervention   -  
steaker59 Messages postés 47 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous,

J'ai un fichier excel. Je souhaite faire apparaitre un msgbox lorsque l'on enregistre-sous uniquement.
Le problème est que le message s'affiche même lorsque les utilisateurs enregistre.
Le code est ci-dessous :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Select Case MsgBox("Ne pas renommer ce fichier en cliquant sur 'Enregistrer sous...'!" & Chr(10) & _
"Seule XX est habilitée à le faire, ainsi qu'à créer des archives!" & Chr(10) & _
"Voulez vous continuer?", vbYesNo + vbCritical, "Alerte Enregistrement")
Case vbYes
'procédure si click sur Oui
Case vbNo
Cancel = True
End Select
End Sub

Pouvez vous me guider ?

Merci!!

1 réponse

  1.
    pilas31 Messages postés 1878 Statut Contributeur 648
     
    Bonjour,

    Il faut tester le SaveAsUI qui est a vrai seulement si la boite enregistrer sous est affichée : 
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
If SaveAsUI Then 
    Select Case MsgBox("Ne pas renommer ce fichier en cliquant sur 'Enregistrer sous...'!" & Chr(10) & _ 
     "Seule XX est habilitée à le faire, ainsi qu'à créer des archives!" & Chr(10) & _ 
     "Voulez vous continuer?", vbYesNo + vbCritical, "Alerte Enregistrement") 
    Case vbYes 
    'procédure si click sur Oui 
    Case vbNo 
    Cancel = True 
    End Select 
End If 
End Sub

    A+

    Cordialement,
    0
    1. steaker59 Messages postés 47 Date d'inscription   Statut Membre Dernière intervention  
       
      Merci infiniment c nikel !!
      0