Discussion :

[klumero]

Bonjour à tous !

Je débute en VBA et je voudrais envoyer par mail un onglet de mon classeur Excel. Cela est-il possible ?

Pour le moment, j'ai constitué un code qui me permet d'envoyer en PJ le classeur en entier et de nommer la PJ suivant mon "thisworkbook.name".

Code ci-dessous :

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
19
20
Sub Envoi()
 
Dim MonOutlook As Object
Dim MonMessage As Object
 
ThisWorkbook.Sheets("feuil1").Select
 
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
 
MonMessage.To = ""
MonMessage.Cc = ""
MonMessage.Subject = ""
MonMessage.body = "
MonMessage.Attachments.Add ActiveWorkbook.Path & "\" & ThisWorkbook.Name
MonMessage.display
 
Set MonOutlook = Nothing
 
End Sub

Merci de me donner un petit coup de pouce car je reste bloqué

Cordialement,

[halaster08]

je voudrais envoyer par mail un onglet de mon classeur Excel. Cela est-il possible ?

Oui, mais a ma connaissance pas directement.

Allume l'enregistreur de macro, copie ton onglet dans un nouveau classeur sauve le, puis éteint l'enregistreur.
Tu aura alors la base du code rajouter à ta macro.

[kiki29]

Salut, voir ici

[klumero]

Re,

Code terminé.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub EnvoiMailavecPJ()
 
    Dim chemin As String, fichier As String
 
    chemin = ThisWorkbook.Path
    fichier = chemin & "\" & "Ordonnancement" & Range("A3") & ".xls"
 
MsgBox "L'ordonnancement est prêt à être envoyé."
 
    ThisWorkbook.Sheets("Feuil1").Copy
    ActiveWorkbook.SaveAs Filename:=fichier
 
    Dim MonOutlook As Object
    Dim MonMessage As Object
 
    Set MonOutlook = CreateObject("Outlook.Application")
    Set MonMessage = MonOutlook.CreateItem(0)
 
        MonMessage.To = ""
        MonMessage.Cc = ""
        MonMessage.Subject = ""        
        MonMessage.body = "Bonjour," & _
                    Chr(13) & Chr(13) & "Veuillez trouver, ci-joint, l'ordonnancement ." & _
                    Chr(13) & Chr(13) & "Bonne réception."
 
        MonMessage.Attachments.Add ActiveWorkbook.FullName
        MonMessage.display
 
    ActiveWorkbook.Close
 
    Set MonOutlook = Nothing
 
End Sub

A+

[romun88]

Bonjour ,

Merci pour ce code qui fonctionne très bien, cependant, je ne parviens pas à envoyer la PJ en PDF.
Pouvez vous m'aider ?

J'ai par ailleur ajouter en fin de code MonMessage.send, pour que le mail soit envoyé en automatique. c'est top.

Merci

[helmaj23]

Salut KLUMERO,
Ca fait longtemps que je n'ai pas codé ce type de macro, mais de mémoire (si elle ne me fait pas défaut) il faut indiquer au moins une adresse de destinataire : MonMessage.To = "mail1@mail.com" ; par habitude j'utilise toujours une variable pour transmettre une chaîne (Dim monFichier as String), donc je coderai : monFichier = ThisWorkbook.FullName, ou pour un autre fichier : monFichier = "C:\chemin\vers\mon\fichier.xlsx" ; puis je l'ajoute en PJ : MonMessage.Attachments.Add monFichier ; et pour finir, la prévisu (facultative) : MonMessage.Display ; et l'exped : MonMessage.Send
Petite précision, ThisWorkbook est la copie du classeur Excel dans lequel tu code ta macro, donc tu joint un fichier Excel, pas un PDF. Si tu veux expédier un fichier PDF de ta feuille active Excel, tu dois la sauvegarder en fichier PDF puis l'expédier avec le second format décrit ci-dessus mais avec une extension ".pdf" (bien sûr).
Voila, le début et la fin de ton Sub me paraissent correct, j'espère ne pas avoir fait de faute de frappe. A+