exporter pdf et email

Version imprimable

26/01/2021, 07h13
sylvaindem

exporter pdf et email

Bonjour !

J'ai un fichier excel que je doit quotidiennement enregistrer en pdf et l'envoyer par courriel.

Pensez-vous qu'il est réalisable de créer un bouton vba qui sauvegarderais en pdf et ouvrirais un nouveau courriel Outlook avec le fichier joint ? Quelqu'un a une idée ?

bonjour
1- Pour enregistrer ton fichier Excel sous le même répertoire et avec un numéro de facture à titre d'exemple qui existe en A1 :

Code:

1
2
3
4
5
6
7
8
Sub testt()
Dim Ar(0) As String
    Ar(0) = Feuil1.Name
    Sheets(Ar).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "Facture  " & Range("A1") _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
End Sub

A tester

pour envoyer par mail tester :

Code:

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
Sub testt()
With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With
Dim Ar(0) As String
    Ar(0) = Feuil1.Name
    Sheets(Ar).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "Facture  " & Range("A1") _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
Dim NomFichier As String
NomFichier = ThisWorkbook.Path & "\" & "Facture  " & Range("A1") & ".pdf"
 
Set OutApp = CreateObject("outlook.application")
Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = "bbbbb@yahoo.fr"
        .Cc = ""
        .Attachments.Add NomFichier
        .Subject = "Sujet à définir"
        .Body = "Vous trouverez ci-joint la facture  ..."
        .Display
    End With
Set OutApp = Nothing
Set OutMail = Nothing
With Application
    .ScreenUpdating = True
    .EnableEvents = True
End With
 
End Sub

26/01/2021, 09h19
sylvaindem

Je semble avoir une erreur d'exécution à Sheets (ar).select :-(
26/01/2021, 09h22
BENNASR

voir si la feuille à enregister en PDF est la feuil 1:

Code:

Ar(0) = Feuil1.Name
26/01/2021, 09h41
sylvaindem

Cool ça fonctionne !

Puis-je vous demander comment remplacer le filename par le nom actuel du fichier Excel ?

Ex: si le fichier excel ce nomme 26 janvier, l'export pdf sera aussi 26 janvier.pdf
26/01/2021, 09h57
BENNASR

tester ça :

Code:

ThisWorkbook.Path & "\" & ThisWorkbook.Name
26/01/2021, 10h14
sylvaindem

L'enregistrement sous le nom du fichier actuel fonctionne, mais la pièce jointe du Outlook n'est pas le pdf, mais le fichier excel. :-(

avec ceci, la pièce jointe du Outlook se nomme: nom_du_fichier.xslm.pdf. pourquoi il indique xslm ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub testt()
With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With
Dim Ar(0) As String
    Ar(0) = Feuil35.Name
    Sheets(Ar).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Name _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
Dim NomFichier As String
NomFichier = ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".pdf"

26/01/2021, 10h43
sylvaindem

J'ai trouvé mon erreur, Merci énormément !