envoie mail+enregistrer Pdf

Bonjour j'ai une macro en vba qui marche très bien sur mon pc personnel...par contre je n'arrive pas à le fare fonctionner au boulot...je ne sais pas pourkoi.
Merci de m'aider.
Voila le code.


Sub SendMail_Outlook()


ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\A-youssef\Desktop\commandes\" & Range("D4") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True



'Avant de lancer cette macro, Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"

Dim Ol As New Outlook.Application
Dim Olmail As MailItem
Dim CurrFile As String


Set Ol = New Outlook.Application
Set Olmail = Ol.CreateItem(olMailItem)
With Olmail
.To = Range("D2").Value
.CC = Range("D3").Value
.Subject = "Bon de Livraison"
.Attachments.Add "C:\Users\A-youssef\Desktop\commandes\" & Range("D4") & ".pdf"

.Body = "Bonjour Monsieur"
.Display


End With
End Sub