Imprimer en PDF et ouverture boite mail par macro

Bonjour

,

J'aimerai un bouton macro qui puisse faire :

  • Imprimé ma zone d'impression avec PDF24 ( qui n'est pas mon imprimante par défaut).
  • Ouvrir "nouveau message" de ma boite mail en prenant l'adresse mail qui est affiché dans une cellule du fichier.
  • Qu'il prenne le fichier PDF qu'il viens d’enregistré et qu'il l'insert dans les fichiers joints.

Sachant que toutes mes macros ont été créé avec l'enregistreur de macro, vous comprendrez que mon niveau en langage VBA est très léger. J'arrive, en partie, à lire un programme, mais pas à l'écrire

Merci pour votre aide

a+

vivano

Bonjour Vivano,

Pour te venir en aide, un exemple de ton EXCEL serait bien utile...

Peux-tu le joindre?

Bonjour Vivano,

Je ne suis pas bien plus initié que toi, mais j'avais trouvé la commande :

  • ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="chemin et nom du doc.pdf"

Elle m'a bien servi.

Tu trouveras également de l'information là :

J'espère que ça peut aider.

Bonne fin de journée et bon WE

ooO_qO_Op_Ooo

Bonjour Vivano,

Pour te venir en aide, un exemple de ton EXCEL serait bien utile...

Peux-tu le joindre?

Salut,

Je transmet un fichier Excel exemple avec le cycle de macro que je voudrais avoir.

Bonjour Vivano,

Je ne suis pas bien plus initié que toi, mais j'avais trouvé la commande :

  • ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="chemin et nom du doc.pdf"

Elle m'a bien servi.

Tu trouveras également de l'information là :

J'espère que ça peut aider.

Bonne fin de journée et bon WE

ooO_qO_Op_Ooo

Salut,

Merci pour ton aide

Dans "chemin et nom du doc" Peut on lui imposé, comme nom, plusieurs cellule ? exemple C1_C2_C3 ?

As-tu-un exemple STP ?

Bonne journée à tous

vivano

45souhait-maccro.xlsx (10.76 Ko)
Sub Mail_workbook_Outlook_1()

Dim OutApp As Object
Dim OutMail As Object
Dim Adr, Nom As String
Dim LaDate As String

ActiveSheet.Select

LaDate = Range("S1").Value 'Prend la date dans le fichier 
LaDate = Format(Range("S1").Value, "dd mmmm yyyy") 'Modifie son format

'Creer le pdf et l'enregistre dans le répertoire + le nom avec la date 
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
Adr = "chemin d'accès" ' le chemin où est mon fichier
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Adr & "\" & LaDate & ".xlsm", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

On Error Resume Next
With OutMail
'.To = "" & ""
.CC = ""
.BCC = ""
.Subject = "" & LaDate
.Body = "Vous trouverez ci-joint mon rapport KPI du " & LaDate
.Attachments.Add Adr & "\" & LaDate & ".pdf"    '''activeWorkbook.FullName
.Display 
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
MsgBox "message envoyé !"
End Sub

Bonjour,

Pour la partie que j'arrive à comprendre

Dans la commande

.Subject = "Texte" comment peut on rajouter la commande Range("c5") dans cette même ligne.

Dans la commande

. Body= "vous trouverez ci-joint mon rapport KPI du" Comment peut on revenir à ligne ?

Enfin pour celle que je ne comprends pas

Pourquoi déclarer des variables ?

Comment fait-il pour enregistrée un PDF ? parce-que il ne fait rien quand je démarre la macro, ni imprimé, ni ouvrir PDF24

La commande .Attachments.Add Adr & "\" & LaDate & ".pdf" est bien utilisé pour : mettre en fichier joint le fichier ... mais comment fait excel pour aller chercher le PDF enregistré ?

Merci pour votre aide

Vivano

Bonjour,

Pour rajouter le texte en Range(cellule) il faut déclarer une variable (comme avec La date)

Le code est fait a la fois pour enregistrer, archiver le pdf (1er paragraphe de code, il faut définir un chemin ou dossier pour l'enregistrement - Adr=) et pour envoyer le pdf par mail (2nd paragraphe)

Je ne sais pas comment revenir a la ligne.. désolé

Bonjour,

Je suis presque au bout de cette macro

.Attachments.Add Adr & "\" & LaDate & ".pdf" '''activeWorkbook.FullName

.Display

C'est la ligne de code pour attacher le PDF au mail ?

merci à tous

a+

vivano

Oui Vivano,

C'est bien la ligne qui permet de joindre un fichier au mail.

Rechercher des sujets similaires à "imprimer pdf ouverture boite mail macro"