XL 2013 bloquer sur cette macro ! une petite aide serait la bienvenue

[HOUDY]

je suis loquer par un truc surement tout simple, mais impossible de comprendre pourquoi .
Voilà ma macro qui me permet d'enregistrer une copie d'un onglet en PDF vers un chemin d'accès nommer CHEMIN.
L'enregistrement fonctionne bien , la création du MAIL aussi mais au moment d'insérer ce même fichier en pièce jointe, il m'indique une erreur .
J'utilise pourtant le même CHEMIN d'accès.

Si quelqu'un a une solution


Merci d'avance pour votre aide

Houdy

Sub ENVOILACOMMANDE()


'FILTRE: on filtre les lignes vide de la zone B22 à F21 avec la zone B19 - F20 en filtre élaborer
    Range("E21") = "<>"
    Range("B22:F138").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("B20:F21"), Unique:=False

'DECLARATION DES VARIABLES
    Dim FOURNISSEUR As String
    Dim CHEMIN As String
    
' DEFINITION VARIABLE
    FOURNISSEUR = Range("F15").Value
    CHEMIN = "C:\Users\Raven\Desktop\GESTION - STOCK 2019\ARCHIVE COMMANDE" & "\" & FOURNISSEUR

' ENREGISTREMENT AU FORMAT PDF
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        CHEMIN, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
    
'DESACTIVATION DU RAFFRECHISSEMENT DE L'ECRAN
    Application.ScreenUpdating = False
    
' UTILISATION D'OUTLOOK COMME CLIENT MESSAGERIE
    Dim MESSAGERIE As Object
    Dim MESSAGE As Object
    Dim PIECEJOINTE As String
    Set MESSAGERIE = CreateObject("outlook.application")
    Set MESSAGE = MESSAGERIE.CreateItem(0)
    PIECEJOINTE = ActiveWorkbook.Path & "\" & FOURNISSEUR

'DESTINATAIRE DU MAIL ET EN COPIES
    
    MESSAGE.To = Range("F9").Value
    'MESSAGE.cc = "-------------.fr"
    
' AJOUT DE LA PIECE JOINTE
     MESSAGE.Attachments.Add CHEMIN

'DESCRIPTION DE OBJET DU MAIL
     'MESSAGE.Subject = "****************************, commande pour le " & Range("F14").Value

' CORPS DU MAIL
     contenu = "Bonjour,"
     contenu = contenu & Chr(10) & (13)
     ' les caractères ch indique un saut de ligne
     contenu = contenu & "Veuillez trouver en pièce jointe une commande &.Value Chr(10) & chr(13)"
     contenu = contenu & "Cordialement" & Chr(10) & Chr(13)
     contenu = contenu & "******************" & Chr(10) & Chr(13)
     contenu = contenu & "******************" & Chr(10) & Chr(13)
    
     MESSAGE.Body = "contenu"
 
'ENVOIE
    MESSAGE.Display
    
' REINITIALISATION DE LA MESSAGERIE
    Set MESSAGERIE = Nothing
    
    
' BOITE DE CONFIRMATION

MsgBox "Votre commande à bien été envoyé", vbInformation + vbOKOnly, "CONFIRMATION ENVOI MAIL"



End Sub

 

[Hasco]

Bonsoir,

Si FOURNISSEUR (Range("F15")) ne se termine pas par ".pdf" Alors MESSAGE.Attachments.Add CHEMIN & ".pdf"

Bonne soirée

 

[mapomme]

Bonsoir @HOUDY

' AJOUT DE LA PIECE JOINTE MESSAGE.Attachments.Add CHEMIN

CHEMIN représente-t-il bien le fichier à joindre ?

edit : désolé pour le télescopage Roblochon.

 

[Hasco]

Bonjour @mapomme,

Pas de problème, d'autant que notre ami @HOUDY a tout intérêt à vérifier le contenu de ses variables.
Peut-être qu'en mettant un point d'arrêt (F9) sur la ligne en question puis lorsque le programme s'arrête sur cette ligne, Affichage/Fenêtre variables.

Bonne soirée

 

[HOUDY]

Effectivement il me manquait le ".PDF"
impec c'a fonctionne parfaitement un grand merci !

juste une petit question . Est t'il possible d'afficher via VBA le PDF dans le corps du mail ?

 

[Hasco]

Re,

En créant une nouvelle discussion sur le sujet, vous aurez certainement plus de chance d'avoir des réponses.
Pour ma part, j'ai déjà essayé et trouvé ça tellement ch...t à faire que j'ai laissé tombé.

Bonne soirée

 

[HOUDY]

Ok ! merci en tout qu'a pour m'avoir aider à régler mon petit soucis .

Bonne soirée a tous