Microsoft 365 Envoi par mail: 1 adresse mail par onglet Excel

[Comptable 1]

Bonjour à tous,

J'ai un fichier Excel, avec environs 20 onglets, et je souhaiterais envoyer chaque onglets séparément par mail (pas toujours les même adresses mail) de façon automatique.

Pensez vous que cela puisse se faire ? Et si oui, pourriez vous m'indiquer comment faire ?

En vous remerciant par avance

Bonne journée

 

[Comptable 1]

Bonjour,

Merci pour le retour rapide !

Je ne comprends pas, car le PDF se créer lorsque je lance la macro, il ne devrait pas s'enregistrer où se situe mon classeur ?

Parce que du coup j'ai utiliser cette macro sur plusieurs fichiers

A la base mon classeur était dans mes téléchargements, et je l'ai déplacé dans un autre dossier.

Merci

 

[danielco]

Essaie comme ça :

Sub Mail()
  Dim olApp As Object, M As Object, Sh As Worksheet, Wbk As Workbook, Txt As String
  Set olApp = CreateObject("Outlook.application")
  For Each Sh In ThisWorkbook.Sheets
    Sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      ThisWorkbook.Path & "\" & Sh.Name, Quality:= _
      xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
      OpenAfterPublish:=False
    Set M = olApp.CreateItem(olMailItem)
    With M
      .Subject = "Objet"
      '.Body = "Body"
      .Recipients.Add Sh.[A1].Value
      .attachments.Add ThisWorkbook.Path & "\" & Sh.Name & ".pdf"
'      .display
      .Send
    End With
  Next Sh
End Sub

Daniel

 

[Comptable 1]

Super ça marche !

Merci bcp