ssassam
XLDnaute Occasionnel
Bonjour tout le monde
Svp j'ai besoin d'aide , j'ai un code qui permet d'envoyer le corp d'une feuille excel par message Outlook , mais je veux changer la feuille active par une feuille spécifique sur mon classeur j'utilise :
Sheets("tab").Range("A1", "E18").Select
Mais ca ne marche pas !
Voila mon code qui marche trés bien pour la feuille active , je compte sur votre aide et merci d'avance.
Svp j'ai besoin d'aide , j'ai un code qui permet d'envoyer le corp d'une feuille excel par message Outlook , mais je veux changer la feuille active par une feuille spécifique sur mon classeur j'utilise :
Sheets("tab").Range("A1", "E18").Select
Mais ca ne marche pas !
Voila mon code qui marche trés bien pour la feuille active , je compte sur votre aide et merci d'avance.
Code:
Sub envoie_une_page()
ActiveSheet.Range("A1", "E18").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = " Bonjour," & vbCrLf & vbCrLf & " Suite à votre demande, veuillez trouver ci-joint le chiffre d'affaire et commission au cours de l'exercice 2012." & vbCrLf & vbCrLf & "Nous restons bien entendu à votre disposition pour tout renseignement complémentaire." & vbCrLf & vbCrLf & "Cordialement"
.Item.Subject = "Détail - CA & Cion 2012"
.Item.to = Range("D1")
.Item.send
End With
End Sub