Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Création PDF à partir d'une plage de données et l'insérer dans un email Outlook sur une meme macro

G

gbstyle

XLDnaute Impliqué
Bonjour voici mon petit problème
J'ai une macro qui me permet de créer un pdf et le sauvegarder sur mon dossier
VB: 
Sub Convert_PDF_Cmd()
Application.ScreenUpdating = False
    Range("A1:K53").Select
        Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Sylvain\OneDrive\ACDC\Exportation\BC " & Range("I3") & Range("G7") & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
    Range("A1").Select
    
End Sub

J'ai une deuxième macro qui me permet d'ouvrir outllook avec ajout destinataire automatique
Code: 
Sub nouvelleentreeOI()

'Libération des variables
Set ObjOutlook = Nothing

Dim olApp As Outlook.Application
Dim olmail As Outlook.MailItem

Set olApp = New Outlook.Application
Set olmail = olApp.CreateItem(olMailItem)

With olmail
     .To = Range("G15")
     .Subject = "Bon de commande" & "     " & Range("I3")
     .Body = "Bonjour," & vbCrLf & "Ci joint Bon de commande." & vbCrLf & "Cordialement." & vbCrLf & "Sylvain LECORDIER."
     .Display
End With

Set olmail = Nothing
Set olApp = Nothing

Set MaMessagerie = Nothing
'MsgBox "votre mail a bien été envoyé"
End Sub

Mon objectif avoir les 2 réunis et je n'y arrive pas. Y a t'il quelqu'un qui pourrait m'aider :/ je galère depuis un bon moment
Bien amicalement
Gbstyle
 
Trier par date Trier par votes

Staple1600

XLDnaute Barbatruc
Bonjour le fil, Gbstyle

Gbstyle
Pour info, ta macro (en un peu plus léger)
VB: 
Sub Convert_PDF_Cmd_light()
Dim strPath$, Nfic$
strPath = "C:\Users\Sylvain\OneDrive\ACDC\Exportation\"
Nfic = "BC " & Range("I3") & Range("G7") & ".pdf"
Range("A1:K53").ExportAsFixedFormat Type:=0, Filename:=strPath & Nfic, Quality:=0
End Sub

Pour le reste, puisque tu sélectionnes un plage de cellules, tu ne veux l'envoyer directement dans le corps du mail?
Tu veux absolument la joindre en PDF?
 
Vote positif 0 Vote négatif
G

gbstyle

XLDnaute Impliqué
Bonjour
En effet je veux le joindre en PDF car ce sont des données que je ne souhaite pas etre modifiable. d'où l'objectif d'utiliser pdf.
merci pour cette première modif, en effet même si mon code fonctionner très bien le tient est en effet plus court :/ lol

Mon deuxième code m'ouvre bien Outlook et mon mail avec mon cord et ma selection automatique du destinataire cependant joindre la selection de plage et convertis en pdf c'est un peu plus compliqué pour mon niveaux :/
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Re

Essaies comme ceci alors
VB: 
Sub Convert_PDF_Et_Envoi_Par_Mail()
Dim strPath$, Nfic$
strPath = "C:\Users\Sylvain\OneDrive\ACDC\Exportation\"
Nfic = "BC " & Range("I3") & Range("G7") & ".pdf"
Range("A1:K53").ExportAsFixedFormat Type:=0, Filename:=strPath & Nfic, Quality:=0
With CreateObject("Outlook.Application").CreateItem(0)
        .To = "staple1600@aufonducouloirdernierbureau.com" 'mets ton adresse mail pour tester
        .Subject = "test envoi PDF"
        .Attachments.Add strPath & Nfic
         .Display
        '.Send 'pour envoyer
    End With
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
G

gbstyle

XLDnaute Impliqué
VB: 
Sub Convert_PDF_Et_Envoi_Par_Mail()
Dim strPath$, Nfic$
strPath = "C:\Users\Sylvain\OneDrive\ACDC\Exportation\"
Nfic = "BC " & Range("I3") & Range("G7") & ".pdf"
Range("A1:K53").ExportAsFixedFormat Type:=0, Filename:=strPath & Nfic, Quality:=0
With CreateObject("Outlook.Application").CreateItem(0)
        .To = "xxx@gmail.com" 'mets ton adresse mail pour tester
        .Subject = "test envoi PDF"
        .Attachments.Add strtPath & Nfic
         .Display
        '.Send 'pour envoyer
    End With
End Sub

ca ne fonctionne pas chemin pas trouver, curseur jaune sur .Attachement.ADDstrt
 
Vote positif 0 Vote négatif
G

gbstyle

XLDnaute Impliqué
idem avec ceci
VB: 
Sub Convert_PDF_Et_Envoi_Par_Mail()
Dim strPath$, Nfic$
strPath = "C:\Users\Sylvain\Documents\ACDC\"
Nfic = "BC " & Range("I3") & Range("G7") & ".pdf"
Range("A1:K53").ExportAsFixedFormat Type:=0, Filename:=strPath & Nfic, Quality:=0
With CreateObject("Outlook.Application").CreateItem(0)
        .To = "XXX@gmail.com" 'mets ton adresse mail pour tester
        .Subject = "test envoi PDF"
        .Attachments.Add strtPath & Nfic
         .Display
        '.Send 'pour envoyer
    End With
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc
Bonsoir.
Utilisez l'explorateur d'objets, vous auriez pu y trouver tout seul la collection Attachements de l'objet MailItem, puisque vous aviez apparemment coché la référence. De plus inutile du coup de passer par ce satané CréateObject !
Mettez Option Explicit en tête de vos module. Là ça vous aurais permis de voir tout de suite que votre variable StrtPath est mal orthographiée par rapport à sa déclaration.
 
Vote positif 0 Vote négatif
G

gbstyle

XLDnaute Impliqué
Bonjour Dranreb,
comme toujour tes retours sont efficaces, mais ton vocabulaire est trop sophistiqué pour des novices comme nous .
j'aurai préféré une explication plus simple lol
D'ailleur je ne vois pas pourquoi tu dis que le créateobjetct n'est pas necessaire :/
 
Vote positif 0 Vote négatif
G

gbstyle

XLDnaute Impliqué
Yes merci, j'ai fait quelque modif subjet et ajouter un body pour le corp du message
Tout fonctionne
Même si je n'est toujour pas compris l'histoire du create object qui ne plaisait pas

Staple600 je serais interessé aussi par ta proposition en mettant les donnée directement dans le corp du mail
Encore merci
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

C
  • Question
Microsoft 365 Erreur Automation : L'objet invoqué s'est déconnecté de ses clients
Réponses
9
Affichages
1 K
fanch55
K
  • Question
XL 2016 From Excel to Outlook - Déclenchement sur la date et arrêt de la macro
Réponses
3
Affichages
926
AtTheOne
P
  • Résolu(e)
XL 2016 intégration d'une msgbox sur bouton lié à l'envoi de formulaire
Réponses
10
Affichages
1 K
PatrickFrancis
P
  • Question
Vba Envoi Feuille dans corps de Mail Outlook
Réponses
0
Affichages
2 K
MuscatMimi
L
  • Question
Créer une macro pour faire un pdf et l'envoyer avec Outlook
2
Réponses
23
Affichages
4 K
Modeste
J
  • Question
Inserer dans un macro la fonction "imprimé" (sur imprimante par default)
Réponses
10
Affichages
2 K
JR.31
J
J
  • Question
Enregistrer un pdf dans un dossier spécifique par macro
Réponses
13
Affichages
2 K
JR.31
J
M
  • Question
Ouvrir fichier pdf depuis une macro sans hyperlink
Réponses
0
Affichages
1 K
mctahboo
M
T
  • Question
Lien hypertexte de dossier dans mail généré par vba
Réponses
2
Affichages
6 K
timon
T
R
  • Question
Macro : Lire une donnée d'une PJ pour l'intégrer dans un texte email.
Réponses
2
Affichages
1 K
roidurif
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…