zone d'impression par mail

[janick]

Bonjour,

Je souhaiterais envoyer par mail mon appercu impression, pouvez vous me conseiller ; ci-joint un bour de mon prog.

Public Sub vev()
Dim l As Integer
l = Sheets("feuil2").Range("a10000").End(xlUp).Row + 1
With Sheets("feuil2")
.Range("a" & l).Value = Range("g5")
.Range("b" & l).Value = Range("g7")
.Range("c" & l).Value = Range("d7")
.Range("d" & l).Value = Range("c10")
.Range("e" & l).Value = Range("b16")
.Range("f" & l).Value = Range("b18")
.Range("g" & l).Value = Range("b26")
.Range("h" & l).Value = Range("b28")
.Range("i" & l).Value = Range("c9")
.Range("j" & l).Value = Range("b12")
.Range("k" & l).Value = Range("e26")
.Range("l" & l).Value = Range("g26")

End With
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SelectedSheets.PrintPreview 'Impression

'envoie par mail de l'appercu impression ???

ActiveSheet.Unprotect
Range("g5").Value = Range("g5").Value + 1
Range("b30:h49").ClearContents
Range("d7:e7").ClearContents
Range("c9:f9").ClearContents
Range("b16:h16").ClearContents
Range("b12:h13").ClearContents
Range("b18:h22").ClearContents
Range("c23:h24").ClearContents
Range("b28:h28").ClearContents
ActiveSheet.Protect contents:=True
end sub

Merci de votre aide