Discussion :

[chartreuse]

Bonjour,
ce code envoie un mail en fichier attaché la feuille active sur l'écran.
Au lieu d'envoyer la feuille active j'aimerai spécifier le nom d'une autre feuille.
Comment l'intégrer au code ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub envoiepogoPDF() 'envoie par mail avec fichier attaché en PDF
'déclaration des variables
Dim Wb As Workbook 'la feuille contenant la demande
Dim FileName As String
Dim OutlookApp As Object 'outlook comme messagerie
Dim OutlookMail As Object
Dim Masignature As String 'ma signature mail
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
ActiveSheet.PageSetup.Orientation = xlLandscape
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
OutlookMail.Display 'On affiche le mail
Masignature = OutlookMail.HTMLBody 'on recupere la signature
With OutlookMail
    .Subject = "Livraison POGO"     'sujet
    .HTMLBody = "<div style=""font-family: Arial; font-size:13"">Bonjour," & "<br><br>" & _
                "en fichier attaché les délais de livraison des POGOs." & "<br><br>" & _
                "Cordialement," & Masignature & "</div>"            'mail & signature
    .Attachments.Add FileName                   'attaché la demande
    .Display                                    'voir le mail
End With
Kill FileName
Set OutlookMail = Nothing   'nettoie la mémoire en nettoyant les variables
Set OutlookApp = Nothing    'nettoie la mémoire en nettoyant les variables
End Sub

Merci

[Valtrase]

Bonjour,
Peut-être en passant le nom de la feuille en argument

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
'@Description "Envoie par mail avec fichier attaché en PDF"
Sub EnvoiePogoPDF(ByVal Feuille As String, Optional ByRef Classeur As Excel.Workbook)
    If Classeur Is Nothing Then Set Classeur = ThisWorkbook ' Ou bien : ActiveWorkbook
    On Error Resume Next
    With Classeur
        Dim FileName As String
        FileName = Left$(.FullName, InStr(1, .FullName, ".", vbTextCompare))
        FileName = FileName & "_" & Feuille & ".pdf"
        .Worksheets(Feuille).ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
        .Worksheets(Feuille).PageSetup.Orientation = xlLandscape
    End With
 
    Dim OutlookApp As Object
    Set OutlookApp = CreateObject("Outlook.Application")
    Dim OutlookMail As Object
    Set OutlookMail = OutlookApp.CreateItem(0)
 
    OutlookMail.Display                          'On affiche le mail
    Dim Masignature As String
    Masignature = OutlookMail.HTMLBody           'on recupere la signature
    With OutlookMail
        .Subject = "Livraison POGO"              'sujet
        .HTMLBody = "<div style=""font-family: Arial; font-size:13"">Bonjour," & "<br><br>" & _
                                                                             "en fichier attaché les délais de livraison des POGOs." & "<br><br>" & _
                                                                             "Cordialement," & Masignature & "</div>" 'mail & signature
        .Attachments.Add FileName                'attaché la demande
        .Display                                 'voir le mail
    End With
    Kill FileName
    If Not OutlookMail Is Nothing Then Set OutlookMail = Nothing 'nettoie la mémoire en nettoyant les variables
    If Not OutlookApp Is Nothing Then Set OutlookApp = Nothing 'nettoie la mémoire en nettoyant les variables
End Sub

Et pour l'appel soit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

        EnvoiePogoPDF "P2106"

Soit pour toutes les feuilles :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Sub TestEnvoieMail()
    Dim itemSheet As Excel.Worksheet
    For Each itemheet In ThisWorkbook.Worksheets
        EnvoiePogoPDF itemSheet.Name
    Next itemSheet
End Sub

Ou bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Sub TestEnvoieMail1()
    Dim itemSheet As Variant
    For Each itemSheet In VBA.Array("P2106", "P2107", "P2108")
        EnvoiePogoPDF itemSheet
    Next itemSheet
End Sub

[chartreuse]

Bonjour Valtrase
Merci je vais essayer

[Ozabois]

Bonjour Chartreuse
J'ai un besoin similaire d'envoi de mail (sans pièce jointe) mais depuis xlsx (vers 2016 - Windows 10 Famille)
J'utilise Gmail comme messagerie mais j'ai cru comprendre que Google interdit aujourdhui ce genre de transfert. Pour le besoin de la manip, j'ai essayé de passer par la version gratuit de Outlook web;
Je galère depuis plusieurs jours avec l'éclairage de Chat GPT mais sans déboucher.
J'ai compris que votre sujet avait été résolu, aussi je me permets de m'adresser à vous:
1° avez-vous une version installée de Outlook ou comme moi faites vous appel à la version web ?
2° auriez-vous la gentillesse de partager votre solution si elle fonctionne ?
Je suis preneur de toute recommandations.
Merci par avance
Bien cordialement
Ozabois