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

 

[danielco]

Bonjour,

Où trouver l'adresse ou envoyer où envoyer l'onglet ? dans une cellule de la feuille ? Comment veux-tu l'envoyer ? En pièce jointe où en copiant une plage de cellules dans le corps du message ?

Daniel

 

[Comptable 1]

Bonjour,

Je pensais mettre l'adresse mail dans une cellule de l'onglet. Mais je peux m'adapter.
J'aimerais que le fichier s'envoi en pièce jointe, en PDF si possible.

Merci

 

[danielco]

Un exemple de macro avec le destinataire en A1

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

Daniel

 

[Comptable 1]

Super merci beaucoup !

Je vais regarder quelques tutos car je n'ai jamais utilisé de Macro.

En tout cas merci pour l'aide

 

[Comptable 1]

Bonjour,

J'ai essayé la macro cité plus haut.
Cependant cela envoi à l'adresse mail saisie en A1 de la feuille 1
- un mail avec en pièce jointe la feuille 1
- un mail avec en pièce jointe la feuille 2

Est ce possible d'envoyer un mail séparément, à l'adresse mail de la feuille 1 avec pièce jointe feuille 1, et à l'adresse mail de la feuille 2 avec pièce jointe de la feuille 2 ? Et ainsi de suite avec toute mes feuilles ?

Merci par avance

 

[danielco]

Bonjour,
Oups, autant pour moi. Essaie :

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:= _
      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

 

[Comptable 1]

Super !! C'est exactement ce dont j'avais besoins.
Merci beaucoup

Bonne journée

 

[Comptable 1]

Bonjour,

De nouveau une question pour mon envoi automatique de mail

Est ce possible de rajouter une condition : si A1 est vide alors imprimer la feuille ; sinon envoyer par mail ?

Aussi, quand j'envoi par mail, Outlook me demande pour chaque mail une autorisation, peut on enlever ce message ?

Merci d'avance

 

[danielco]

Bonjour,

De nouveau une question pour mon envoi automatique de mail

Est ce possible de rajouter une condition : si A1 est vide alors imprimer la feuille ; sinon envoyer par mail ?

Aussi, quand j'envoi par mail, Outlook me demande pour chaque mail une autorisation, peut on enlever ce message ?

Merci d'avance

Bonjour,

Aussi, quand j'envoi par mail, Outlook me demande pour chaque mail une autorisation, peut on enlever ce message ?

Quel est le libellé exact du message ? sinon remplace le code par celui-ci :

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
    If Sh.[A1] <> "" Then
      Sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        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
    Else
      Sh.PrintOut
    End If
  Next Sh
End Sub

Daniel

 

[Comptable 1]

Bonjour,

Super ça marche ! Merci beaucoup !

J'ai le message suivant qui apparaît :

 

[danielco]

Ca c'est galère. Regarde cette page à la section "Empêcher cet avertissement de sécurité de s’afficher à nouveau" :
https://support.microsoft.com/fr-fr...-ma-part-86cc5ece-379e-45e3-b8eb-3fefba09946b
Daniel

 

[Comptable 1]

D'accord, merci

 

[Comptable 1]

Bonjour,

J'ai un soucis avec mon envoi de mail. Tout fonctionnait très bien et maintenant j'ai un message d'erreur :

Quand je fais débogage j'ai ça:

Je ne comprends pas pourquoi j'ai un problème avec les pièces jointe

Merci d'avance pour le coup de mains !!!

Bonne journée

 

[danielco]

Bonjour,
Ca veut dire que le fichier PDF ne se trouve pas dans le même dossier que le classeur, ou que, pour une raison quelconque, il n'a pas été créé. Peux-tu vérifier ?
Daniel