Discussion :

[annabella12]

Bonjour à tous,

Je suis débutante en VBA et j'ai besoin d'aide. Je veux envoyer un mail avec un fichier excel en pièce jointe ET un "body". J ai vu que la fonction sentmail ne marchait pas pour ce genre de problème. J'ai essayé une solution trouvée dans une discussion sur ce forum, mais ça ne marchait pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub envoyermail()
 
Shell """C:\Program Files (x86)\Microsoft Office\Office12\OUTLOOK.EXE"""
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
    .To = "nomprenom@mail.fr"
    .Subject = "objet" 
    .Body = "blablabla" 
    .Attachments.Add "TEST.xls"
 
End With
 
End Sub

Le programme plante à la deuxième ligne. Je précise que le fichier "TEST.xls" est ouvert (pas besoin de mettre le chemin exact pour le récupérer).Pouvez sous m'aider?

Merci bcp

[fring]

Bonjour,

Tu es certaine de cette affirmation ?

BJe précise que le fichier "TEST.xls" est ouvert (pas besoin de mettre le chemin exact pour le récupérer)

Cette ligne de code n'est pas nécessaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shell """C:\Program Files (x86)\Microsoft Office\Office12\OUTLOOK.EXE"""

Et concernant l'erreur à la seconde ligne de code, il faut activer la référence Microsoft Outlook xx.x Library

En résumé le code devrait ressembler à ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub envoyermail()
Dim Ol As Outlook.Application, OlMail As Variant
 
Set Ol = New Outlook.Application
Set OlMail = Ol.CreateItem(olMailItem)
With OlMail
    .To = "nomprenom@mail.fr"
    .Subject = "objet"
    .Body = "blablabla"
    .Attachments.Add ThisWorkbook.FullName '<-- pour envoyer le classeur contenant la macro
    .Send
End With
 
Ol.Quit
Set Ol = Nothing
Set OlMail = Nothing
 
End Sub

[annabella12]

Bonjour Fring,

Merci bcp de ta reponse
Mais ça ne marche pas, le programme bugue sur:
"Dim Ol As Outlook.Application, OlMail As Variant"

Il me met "type défini par l'utilisateur non défini".
Qu'entends tu par: il faut activer la référence Microsoft Outlook xx.x Library?

Merci d'avance

[fring]

Qu'entends tu par: il faut activer la référence Microsoft Outlook xx.x Library?

Sans avoir activé cette référence il est normal que ça ne fonctionne pas.
Dans l'éditeur VBA, menu Outils --> Références --> coches la référence Microsoft Outlook xx.x Library (xx.x étant la version de ta librairie) --> OK pour valider

[annabella12]

Effectivement ça marche mieux comme ça, merci beaucoup.
Dernière petit problème cependant: Ce n'est pas le fichier contenant la macro que je veux envoyer, mais un fichier annexe qui est ouvert.
Lorsque j'ai remplacé "ThisWorkbook.FullName" par: "lefichierenquestion.xls", on me dit fichier introuvable. Désolée de te déranger encore...

Merci en tout cas

[ESVBA]

je me permet d'intervenir pour cette dernière question Fring.

Il faut vérifier que le fichier existe et lui donner son emplacement et nom complet.

Mettez quelque chose comme "C:\DossierMesDocuments\SousDossier\SousSousDossier\MonFichier.xls"
Si le fichier est dans un sous-dossier de l'emplacement actuel, une solution plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkBook.Path & "\SousSousDossier\NomFichier.xls"

Utilisez la touche F9 dans l'éditeur, SHIFT + F9 sur "ThisWorkBook.Path" ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox ThisWorkBook.Path

ESVBA

[fring]

Lorsque j'ai remplacé "ThisWorkbook.FullName" par: "lefichierenquestion.xls", on me dit fichier introuvable.

ESVBA t'a donné la réponse mais tu n'as pas lu correctement ma première réponse...

Tu es certaine de cette affirmation ?

Je précise que le fichier "TEST.xls" est ouvert (pas besoin de mettre le chemin exact pour le récupérer)

[annabella12]

Bonjour,

Désolée de ne répondre que maintenant, j'ai pas eu accès à internet ce Week end. Merci, ESVBA, j'ai mis le chemin complet comme tu me l'as dit. Ca marche tès bien. Problème résolu, merci beaucoup à tous les deux.