Microsoft 365 Envoi document Excel en PDF par mail

rubis54 · 13 Octobre 2021

Bonjour Tout le monde

J'ai un petit soucis avec ma macro qui envoie ma feuille "commande" par mail.

Alors elle me l'enregistre en pdf.

Lorsque j'appuis sur le bouton mail elle ouvre ma boite boite mail et on voit

que la pièce jointe en PDF est bien ma feuille "commande".

Ce que j'aurai souhaité c'est qu'au moment ou j'appuis le bouton mail,

qu'elle me laisse choisir le destinataire dans la liste en page données,

ou alors qu'elle le prenne en cellule "G3" de la feuille "commande",

qui est reliée via une "rechercheV au fournisseur" cellule "I2".

Alors est ce quelqu'un de vous pourrait bien m'aider à mettre ça en place SVP.

Je vous Remercie d'avance

fanch55 · 17 Octobre 2021

Salut,

VB:

Sub EnvoiPDF()
  Dim Nom As String
  Nom = ActiveSheet.Name & ".pdf"
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ActiveWorkbook.Path & "\" & Nom, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False
  Set olApp = CreateObject("Outlook.application")
  Set m = olApp.CreateItem(0)
  With m
    .to = ActiveSheet.[G3]
    .Attachments.Add ActiveWorkbook.Path & "\" & Nom
    .Display
  End With
End Sub

fanch55 · 17 Octobre 2021

Salut,

VB:

Sub EnvoiPDF()
  Dim Nom As String
  Nom = ActiveSheet.Name & ".pdf"
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ActiveWorkbook.Path & "\" & Nom, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False
  Set olApp = CreateObject("Outlook.application")
  Set m = olApp.CreateItem(0)
  With m
    .to = ActiveSheet.[G3]
    .Attachments.Add ActiveWorkbook.Path & "\" & Nom
    .Display
  End With
End Sub

rubis54 · 18 Octobre 2021

fanch55 à dit:

Salut,

VB:

Sub EnvoiPDF()
  Dim Nom As String
  Nom = ActiveSheet.Name & ".pdf"
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ActiveWorkbook.Path & "\" & Nom, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False
  Set olApp = CreateObject("Outlook.application")
  Set m = olApp.CreateItem(0)
  With m
    .to = ActiveSheet.[G3]
    .Attachments.Add ActiveWorkbook.Path & "\" & Nom
    .Display
  End With
End Sub

Salut Fanch55,
J'ai mis ton code en place et tout fonctionne.
Merci à toi.

Microsoft 365 Envoi document Excel en PDF par mail

rubis54

XLDnaute Occasionnel

Pièces jointes

fanch55

fanch55

XLDnaute Barbatruc

rubis54

XLDnaute Occasionnel

Discussions similaires