Hello le forum !
J'ai un code VBA qui doit envoyer un mail avec la feuille active comme pj en pdf (je suis débutant).
CA marche très bien avec ce code quand je suis en local :
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
33
34
35
36 Sub SendToSM() Dim Wb As Workbook Dim FileName As String Dim OutlookApp As Object Dim OutlookMail As Object Dim SMmail As String On Error Resume Next Range("K:2").Select SMmail = ActiveCell.Value Set Wb = Application.ActiveWorkbook FileName = Wb.FullName xIndex = VBA.InStrRev(FileName, ".") If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1) FileName = FileName & "_" + ActiveSheet.Name & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem(0) With OutlookMail .To = SMmail .CC = "" .BCC = "" .Subject = "xxxxxxxxxxx" .Body = "Hi xxxxxxxxxxxxxx. Thank you" .Attachments.Add FileName .Display '.Send End With Kill FileName Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub
Par contre dès que j'upload le fichier sur sharepoint j'ai un problème, il me joint un fichier pdf mais inutilisable. Si je Click dessus j'arrive sur une page 404.
Quelqu'un aurait-il une idée ?
J'ai posté cette question dans le forum VBA mais je n'ai pas de réponses, aussi je me permet de le poster sur ce forum.
Merci beaucoup d'avance
Partager