XL 2016 Bouton pour Convertir Excel en PDF, envoie automatique par mail

[lajoie25]

Bonsoir;

Je travail dans un fichier Excel sur un modèle de rapport qui doit se mettre à jour automatiquement sur la base des données changeables issues d'autres feuilles.
J'aimerais à la fin de chaque traitement ou mise à jour, convertir mon rapport Excel "RAPPORT" en PDF et l'envoyer automatiquement par Mail.

Actions à réaliser :
- Convertir la feuille "Rapport" en PDF
- Renommer le document PDF obtenu sur la base d'informations contenues dans une autre feuille "ACCUEIL"; information utiles "NOM SOCIETE" & "MOIS REPORTING"
Nom à obtenir : REPORTING FINANCIER SOCIETE KAMAGATE SEPTEMBRE 2019
- Envoyer le résultat final au mail de la société contenu dans la feuille "ACCUEIL" : mailtest@ymail.com

Merci pour votre aide.

 

[Santulud]

Bonjour,

a voir si cela te va, et à adapter a ton besoin

 

[lajoie25]

Bonsoir.

Merci Santulud.
Ça peut répondre à mon besoin.

Cependant, j'aimerais savoir s'il est possible à partir du bouton d'envoyer le mail automatiquement ?

 

[Santulud]

bonjour,

pour ne plus avoir à confirmer l'envoi du mail, a la fin du code du module 4 :

myitem = Display => a changer pour => myitem = Send

 

[lajoie25]

Merci. Parfait.

 

[lajoie25]

Bonjour @Santulud.

Merci pour ta contribution.
Toutefois, j'ai toujours un souci avec mon fichier. Le bouton ENVOI MAIL ne fonctionne pas.
Fichier un peu volumineux, possible d'avoir votre mail pour vous envoyer pour y jeter un coup d’œil ?

 

[cp4]

Bonjour lajoie25, Santulud, le forum,

@lajoie25 : si ton fichier est volumineux tu peux le mettre sur ce site et choisir le temps que tu veux qu'il y reste. un lien est créé pour ton fichier, ensuite tu n'as qu'à éditer le lien ici dans ta discussion.

https://www.cjoint.com/?BLrwvewL5xO

Bon week-end.

 

[lajoie25]

Bonjour.

Merci. Ci-joint le lien de mon fichier :


Comme souligné, mon bouton ENVOI MAIL ne fonctionne pas correctement.
Si vous pouvez y jeter un oeil.

 

[cp4]

Bonjour,
Ton fichier n'est pas complet. En effet, la feuille INFO GENERALES SUR LA PHARMACIE n'existe pas et par conséquent le code plante.

Sub EnvoyerRapportPDF()
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Blaise\AppData\Local\Temp\RAPPORT FINANCIER PHARMACIE.pdf", Quality _
        :=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False _
        , OpenAfterPublish:=False
    Application.Dialogs(xlDialogSendMail).Show
    Sheets("INFO GENERALES SUR LA PHARMACIE").Select
    Range("C21").Select
    ActiveCell.FormulaR1C1 = "leprolbc@gmail.com"
    Range("D10").Select
End Sub

 

[lajoie25]

Bonjour,
Ton fichier n'est pas complet. En effet, la feuille INFO GENERALES SUR LA PHARMACIE n'existe pas et par conséquent le code plante.

Sub EnvoyerRapportPDF()
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Blaise\AppData\Local\Temp\RAPPORT FINANCIER PHARMACIE.pdf", Quality _
        :=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False _
        , OpenAfterPublish:=False
    Application.Dialogs(xlDialogSendMail).Show
    Sheets("INFO GENERALES SUR LA PHARMACIE").Select
    Range("C21").Select
    ActiveCell.FormulaR1C1 = "leprolbc@gmail.com"
    Range("D10").Select
End Sub

Bonjour.

C'est vrai ce que vous dites mais c'est pas la macro qui est concernée. C'était un autre test que j'avais essayé. Mon souci se trouve au niveau du "module 8" :

"Application.DisplayAlerts = True

Set ol = CreateObject("outlook.application")
Set myitem = ol.CreateItem(olMailItem)
Listdest = ThisWorkbook.Worksheets("ACCUEIL").Range("c21")
myitem.To = Listdest
myitem.Subject = "REPORTING FINANCIER SOCIETE " & ThisWorkbook.Worksheets("ACCUEIL").Range("c12") & "-" & ThisWorkbook.Worksheets("ACCUEIL").Range("c19") 'Titre du Mail a adapter
myitem.BodyFormat = olFormatHTML"

Cordialement.

 

[cp4]

Bonjour,

La ligne de code ci-dessous est censée faire quoi? Essaie ton code sans cette ligne.

myitem.BodyFormat = olFormatHTML

Bonne journée.

 

[lajoie25]

Bonjour,

La ligne de code ci-dessous est censée faire quoi? Essaie ton code sans cette ligne.

myitem.BodyFormat = olFormatHTML

Bonne journée.

Bonjour;

C'est pour définir le format du corps du texte dans le mail à transmettre.
Mais je vois qu'on peut s'en passer.
Merci.

 

[lajoie25]

Bonjour à tous;

Merci à tous pour vos contributions.