toujours dans le même principe
j'utilise le code suivant :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Worksheets("DA").Visible = True Then Exit Sub
If Worksheets("DA N°2").Visible = True Then Exit Sub
If MsgBox("SVP, MERCI CONFIRMER QUE VOUS AVEZ :" & vbCrLf & vbCrLf & vbCrLf & "- Mis a jour la check list (avec date & initiales)" & vbLf & vbLf & "- Mis a jour S.Wing" & vbLf & vbLf & "- Actualisé l'écran du bureau" & vbLf & vbLf & "- Envoyé L'email quotidien avec les prospects actualisés" & vbLf & vbLf & "- Mis à jour l'eventuel hub system (youriss / eyefreight / DA desk)", 292, "AVANT DE FERMER CE FICHIER,") = 6 Then
Else
Cancel = True
End If
Dim i
For i = 1 To ActiveWorkbook.Worksheets.Count
If Sheets(i).Name Like ("CList" & "*") Then
Sheets(i).Activate
Exit Sub
End If
Next i
End Sub
j'aimerai personnaliser ce message et mettre : 'Bonjour + nom de l'utilisateur' (qui varie car appli en réseau) avant le mot SVP
j'ai fait plusieurs tests mais sans succès.
peux tu me donner la recette miracle stp ?
merci encore
seb