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