Sub OpenHtm()
'
' OpenHtm Macro
' Macro enregistrée le 07/12/2010 par KIREG94
'
'
ChDir _
"N:\ECHANGES\Explt_Condt_k2\Groupes de cdt\Groupe 52 & 56\REPART Gr52\Reprise"
Workbooks.Open Filename:= _
"N:\ECHANGES\Explt_Condt_k2\Groupes de cdt\Groupe 52 & 56\REPART Gr52\Reprise\Reprise Benjamin.htm"
Workbooks("REPRISE BENJAMIN.htm").SendMail Recipients:="nyal3@free.fr", _
Subject:="Test envoi classeur", _
ReturnReceipt:=True
End Sub