Bonjour Onurb , bonjour Christophe
la macro ci dessous permet de fermer Outlook Express , adapté d'une procedure de Chip Pearson
dans l'exemple c'est la boîte de réception qui doit etre affichée pour que cela fonctionne mais tu peux adapter la macro en fonction de tes habitudes...attention à bien respecter les espaces l'orthographe et l'accentuation lors de la saisie de la fenetre cible
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal HWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Sub FermerOutlookExpress()
'd'après Chip Pearson, mpep
Dim HWnd As Long
HWnd = FindWindow(vbNullString, "Boîte de réception - Outlook Express")
If HWnd > 0 Then SendMessage HWnd, &H10, 0, 0
End If
End Sub
bon apres midi
michel