Discussion :

[sylvaindem]

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 ?

[BENNASR]

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 :

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

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

[BENNASR]

pour envoyer par mail tester :

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
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

[sylvaindem]

Je semble avoir une erreur d'exécution à Sheets (ar).select :-(

[BENNASR]

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

Code :

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

 Ar(0) = Feuil1.Name

[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