Envoyer excel en pdf par mail vba
gnioler
Messages postés
88
Date d'inscription
Statut
Membre
Dernière intervention
-
gnioler Messages postés 88 Date d'inscription Statut Membre Dernière intervention -
gnioler Messages postés 88 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je voudrais savoir si quelqu'un pourais m'aider a completer ma macro
aujourd'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
je voudrais savoir si quelqu'un pourais m'aider a completer ma macro
aujourd'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
A voir également:
- Envoyer excel en pdf par mail vba
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Liste déroulante excel - Guide
- Excel trier par ordre croissant chiffre - Guide
- Mise en forme conditionnelle excel - Guide
- Word et excel gratuit - Guide
1 réponse
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
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
