Envoyer feuille excel en pdf par mail [Résolu/Fermé]

Messages postés
88
Date d'inscription
mercredi 5 octobre 2011
Statut
Membre
Dernière intervention
7 janvier 2015
- - Dernière réponse : gnioler
Messages postés
88
Date d'inscription
mercredi 5 octobre 2011
Statut
Membre
Dernière intervention
7 janvier 2015
- 12 janv. 2012 à 13:11
Bonjour,

je voudrais savoir i quelqu'un pourais m'aider acompleter ma macro

au jourd'hui j'utilise cette macro pour enregistrer en pdf la feuille excel avec un nom automatique qui recupere des valeurs dans differentes cellule
par contre la feuille pdf reste ouverte il me manque juste la fin de la programation
qui correspond a cliquer sur le bouton
envoyer le doc par mail en piece jointe
avec remplissage automatique du destinataire
de l'objet
et de la signature

j'utilise microsoft outlook 2010

Afficher la suite 

4 réponses

Meilleure réponse
Messages postés
16945
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
3 octobre 2019
3618
1
Merci
Salut,

Regarde cette Discussion récente ou je propose un code, et on en reparle

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 61504 internautes nous ont dit merci ce mois-ci

Messages postés
88
Date d'inscription
mercredi 5 octobre 2011
Statut
Membre
Dernière intervention
7 janvier 2015
1
0
Merci
au fait voici la macro
Sub ENREGISTRER()
'
' ENREGISTRER Macro
'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"S:\DEVIS DEFONTAINE\EN PDF\" & [E10] & " " & [F10] & " " & [N20] & " " & [N21] & " " & [N22] & " " & [N23] & " " & [E13] & " " & [E17] & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True _

End Sub
Messages postés
88
Date d'inscription
mercredi 5 octobre 2011
Statut
Membre
Dernière intervention
7 janvier 2015
1
0
Merci
bonjour et merci pour votre reponse
ca marche bien par contre c 'est pas tous a fait ce que je cherche car je veut laisser ouvert le message outlook deja tous completé et c'est moi qui clique sur envoyer car je veut controler le mail ou pouvoir ajouter manuellement des adresse complementaire si necessaire ou mettre du texte en plus selon les cas
de plus il faut que le message aparaisse dans outlook dans éléments envoyé pour avoir une trace
merci de me dire ce qu'il faut supprimer ou changer dans votre macro
Messages postés
88
Date d'inscription
mercredi 5 octobre 2011
Statut
Membre
Dernière intervention
7 janvier 2015
1
0
Merci
bonjour
j'ai fait plusieurs essaie de tous ce que j'ai trouvé sur le net

celle qui me convient est lla suivantes sauf qu'il me manque juste les 3 lignes complementaire pour inserer automatiquement le sujet et le corp du message

Sub EnvoiEmail()

Dim HyperLien As String
Dim pj As Variant

Sheets("Feuil1").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ActiveWorkbook.Path & "\" & "Temporaire.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False

pj = ActiveWorkbook.Path & "\" & "Temporaire.PDF"


HyperLien = "mailto:" & Cells(1, 1).Value


ActiveWorkbook.FollowHyperlink HyperLien

Client = 6



End Sub

en fait j'exporte en pdf mon excel en fichier temporaire
je le nomme
je mets automatiquement le mail du destinataire qui est dans la cellule A1
j'ouvre le mail par outlook

et c'est moi qui clique sur le bouton envoyer car je veut controler avant que ca parte par contre

il me manque juste les 3 lignes complementaire pour inserer automatiquement le sujet du mail qui se trouve dans la cellule A2 et le corp du message qui se trouve dans la cellule A3

et inserer le pdf temporaire qui s'apelle pj

merci d'avance pour votre aide