Bonjour,
j'ai fais déjà pas mal de forum pour comprendre mais j'ai quand même besoin de votre aide.
Mon code est plutôt assez simple et fonctionnel, mais je n'arrive pas à enlever cette petite fenêtre qui me demande d'accepter ou de refuser car un programme essaie d’accéder aux informations d'adresse de messagerie enregistrées dans Outlook.
Auriez vous une idée?
D'avance merci!
Vincent
Sub ExporterFeuilleActivePDF()
With Worksheets("Rapport")
'---------------------------------> Enregistrement du PDF
Date_F = Format(.Range("K3"), "YYYY_MM_DD")
rep = "O:\Projekte\02. 2017\01. En cour\TPS - CTMS\04. Rapport"
fichier = "\" & Date_F & "_" & .Range("Q3") & "_" & .Range("R3") & "_" & "N°_" & .Range("S1") & ".pdf"
Chemin = rep & fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Sheets("Rapport").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
'---------------------------------> Envoie du PDF
Set olApp = CreateObject("Outlook.application")
Set mail = olApp.CreateItem(olMailItem)
With mail
.display
.To = Sheets("Adresse").Range("B3")
.Subject = "TPS - Rapport dépassement temps"
.htmlBody = "trtzr" & Sheets("Rapport").Range("A18") & .htmlBody
.Attachments.Add Chemin
.display
'.send
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End With
'---------------------------------> Impression du PDF
' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
' IgnorePrintAreas:=False
End With
End Sub