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

HOUDY

XLDnaute Nouveau
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



VB:
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
 

Roblochon

XLDnaute Impliqué
Bonsoir,

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

Bonne soirée
 

Roblochon

XLDnaute Impliqué
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

XLDnaute Nouveau
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 ?
 

Roblochon

XLDnaute Impliqué
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

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

Bonne soirée a tous
 

Discussions similaires


Haut Bas