Message automatique avant fermeture du fichier

sebbbbb · 20 Juillet 2017

bonjour

ce code ne fonctionne pas.
voyez vous la raison svp
merci par avance

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Msg = "Avez-vous inscrit" & vbCrLf & "" & vbCrLf & " votre nom et la date de la dernière mise à jour sur la feuille accueil merci"
StyleBoîteDialogue = vbOKOnly + vbQuestion
Title = "Avant de fermer ce fichier,"
réponse = MsgBox(Msg, StyleBoîteDialogue, Title)
End Sub

Jacky67 · 21 Juillet 2017

sebbbbb à dit:
Effectivement le coup des espaces...tout bête mais efficace
vois tu une solution stp ?
seb

Ou alors ........comme ceci..

VB:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Sh As Worksheet
If MsgBox("SVP, MERCI CONFIRMER QUE VOUS AVEZ :" & vbCrLf & vbCrLf & "- Mis a jour la check list (avec date & initiales)" & vbLf & "- Mis a jour S.Wing" & vbLf & "- Actualisé l'écran du bureau" & vbLf & "- Envoyé L'email quotidien avec les prospects actualisés" & vbLf & "- Mis à jour l'eventuel hub system (youriss / eyefreight / DA desk)", 292, "AVANT DE FERMER CE FICHIER,") = 6 Then
ThisWorkbook.Save
Else
  Cancel = True
  For Each Sh In ThisWorkbook.Worksheets
  If UCase(Left(Sh.Name, 5)) = "CLIST" Then
  Sh.Activate
  Exit For
  End If
  Next
End If
End Sub

C'est volontaire d"avoir supprimer la ligne "ThisWorkbook.Save" ?
Je l'ai rajouter, elle permet l'enregistrement automatique sans avoir la demande de confirmation de Excel.
Si tu ne le souhaites pas supprime la.

Message automatique avant fermeture du fichier

sebbbbb

XLDnaute Impliqué

Jacky67

XLDnaute Barbatruc

Discussions similaires