envoyer feuille excel en pdf par mail Résolu

Question

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

Configuration: Windows 7 / Internet Explorer 9.0

gnioler · Answer

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

Mike-31 · Answer

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.

gnioler · Answer

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

gnioler · Answer

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

Envoyer feuille excel en pdf par mail

4 réponses

Discussions similaires

Newsletters