bonsoir,
J'ai trouvé une macro :
Sub EnvoiFeuilMail()
Dim Wbk As Workbook
ThisWorkbook.Sheets("Préjudice").Copy
Set Wbk = ActiveWorkbook
SendKeys "{b}"
Wbk.SendMail "xxxxxxxxxx@orange.fr", "Préjudice", True
'true pour un avis de reception
Wbk.Close savechanges:=False
Set Wbk = Nothing
End Sub
qui fonctionne mais désactive le "verr num" de mon clavier toutes les fois que je l'active
j'ai changé la clé mais le problème est le même.
merci pour vos conseils
cordialement
mibri