Bonjour,
J'ai créer une macro pour qu'à partir d'un bouton, la page active soit imprimer en pdf à un endroit spécifique et qu'après une mail envoi automatiquement ce pdf.
Problème 1: l'enregistrement en pdf ne se fait pas où je veux, mais systématiquement dans "Mes documents"
Problème 2: la macro me créer bien le mail avec le bon destinataire, mais le pdf n'est pas rattaché.
Une idée
Voilà ma macro
Sub Macro1()
Dim Chemin
Dim NFichier As String
Chemin = "C:\Utilisateurs\Images\"
NFichier = "Feuille pr?sence" & Format(Now, " mmm-yyyy") & Range(" B13").Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NFichier, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Set OApp = CreateObject("Outlook.Application") Set OMail = OApp.CreateItem(0)
With OMail
.Display
.To = "xxxxxxxxx"
.Subject = "Calendrier de pr?sence"
.Attachments.Add Chemin & NFichier
.Send
End With
End Sub