Macro pour envoyer un feuillet par mail (outlook) en PDF
Bonjour,
Il y a t-il une macro pour envoyer une page d'un feuillet par mail en pdf ? Via Microsoft Outlook.
Actuellement je n'ai trouvé que la possibilité d'une macro pour copier l'onglet dans un nouveau classeur, puis envoyer l'onglet via excel/outlook "fichier joint pdf".
Merci d'avance,
Vincent
Bonjour Vincentt
Bien-sur, en faisant une petite recherche sur le web
envoyer fichier PDF par mail site:excel-pratique.com
A+
Re-Bonjour,
J'ai beau chercher je ne trouve malheureusement point !
J'ai trouvé sur le forum une macro pour envoyer un fichier excel (en spécifiant le chemin d'accès) mais pas PDF par outlook via une macro
Ou une macro pour envoyer une feuille en pdf via un serveur
Mais le PBM : mon accès professionnel ne permet pas l'envoi via serveur, ce que m'a confirmé l'informaticien de la boîte. Je dois obligatoirement passer par outlook (ce qui m'arrange car ça archive dans la boîte d'envoi les mails).
Puis je utiliser des éléments de cette commande ? Mais il manque l'enregistrement en PDF et la selection d'une page dans un onglet
Sub Envoyer_Mail_Outlook()
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String
Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
'---------------------------------------------------------
'Exemple pour envoyer un classeur en pièce jointe
'Nom_Fichier = Application.GetOpenFilename("Fichier excel (*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm")
'If Nom_Fichier = "Faux" Then Exit Sub
'---------------------------------------------------------
'Ou bien entrer le path et nom du fichier autrement Nom_Fichier = "C:\Users\00371.direction\Desktop\EXCEL\mail-PDF-M2.xlsm"
Ici : je ne veux pas envoyer un fichier mais 1 page contenue dans 1 onglet. La macro est sur cette onglet
If Nom_Fichier = "" Then Exit Sub
'---------------------------------------------------------
With oBjMail
.To = " >> là je veux que ce soit relié à des cellules où je mettrai les adresses du/des destinataire(s)
" ' le destinataire
.Subject = "Ici c'est l'objet" ' l'objet du mail
.Body = "Ici le texte du mail " 'le corps du mail ..son contenu
.Attachments.Add Nom_Fichier '"C:\Data\essai.txt" ' ou Nomfichier
.Display ' Ici on peut supprimer pour l'envoyer sans vérification
.Send
End With
ObjOutlook.Quit
Set oBjMail = Nothing
Set ObjOutlook = Nothing
End Sub