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