S
STEPHANIE
Guest
bonjour tout le monde,
je cherche a importer une range representant un graphique dans un mail en pieces jointes, le probleme c est que ma macro est destinée a envoyer un classeur entier :
Private Sub CommandButton1_Click()
'Avant de lancer cette macro, Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher 'Microsoft Outlook Library'
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Dim i As Integer
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = Feuil1.Range('a1').Value 'destinataire
.Subject = Feuil1.Range('j10') + Feuil1.Range('j10')
.Body = 'Bonjour je suis le corps du texte'
.Attachments.Add 'c:\\graph.xls' 'Si tu as une Piece jointe'
.Display
'.Send
'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
End With
End Sub
et moi je veux juste envoyer par mail une partie de mon classeur qui est un tableau allant de k2 a n13.
Est il possible d arranger ma macro pour qu elle puisse le faire automatiquement?
merci
stephanie.
je cherche a importer une range representant un graphique dans un mail en pieces jointes, le probleme c est que ma macro est destinée a envoyer un classeur entier :
Private Sub CommandButton1_Click()
'Avant de lancer cette macro, Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher 'Microsoft Outlook Library'
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Dim i As Integer
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = Feuil1.Range('a1').Value 'destinataire
.Subject = Feuil1.Range('j10') + Feuil1.Range('j10')
.Body = 'Bonjour je suis le corps du texte'
.Attachments.Add 'c:\\graph.xls' 'Si tu as une Piece jointe'
.Display
'.Send
'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
End With
End Sub
et moi je veux juste envoyer par mail une partie de mon classeur qui est un tableau allant de k2 a n13.
Est il possible d arranger ma macro pour qu elle puisse le faire automatiquement?
merci
stephanie.