Export PDF avec nom spécifique et envoi mail

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion raf26
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

raf26

XLDnaute Occasionnel
Bonjour,

Utilisateur occasionnel d'Excel, je viens solliciter votre aide pour une macro

J'ai un fichier Excel à remplir que j'exporte automatiquement via macro en PDF en le nommant avec des références à certaines cellules (nom de mon fichier + B10 = le nom et B12 = le prénom + C95 = la date).

Jusque là tout va bien.

J'aimerais pouvoir envoyer automatiquement par mail (outlook) ce fichier PDF (nommé avec donc les noms et prénoms + date) à 2 destinataires précis (qui ne changent pas).

Pour résumer :
Export PDF avec nom de fichier personnalisé : c'est ok
Envoi d'un mail : j'ai trouvé des macros mais le fichier pdf est envoyé avec le nom de mon fichier Excel, et non pas personnalisé comme je le souhaite

Je voudrais réunir ces 2 fonctions en une seule macro mais là, je plante.

Merci d'avance pour votre contribution.

Bonne journée

Cordialement
 
Trier par date Trier par votes
Bonjour le fil et le forum,
code à tester:
VB: 
Sub Test()

    Dim WsMail     As Worksheet
    Dim Chemin As String, FichierPDF As String, Destinataire As String, Contenu As String
    Dim Nom    As String, Prenom As String, MaDate As String, MonFichier As String
    Dim MaMessagerie As Object, MonMessage As Object

    Set WsMail = Sheets("Feuil1")  '==========>> A' adapter
    
    Chemin = "C:\Users\Username\Desktop\"  '==========>> A' adapter
    
    Application.ScreenUpdating = False
    
    Nom = WsMail.Range("B10").Value
    Prenom = WsMail.Range("B12").Value
    MaDate = Format(WsMail.Range("C95").Value, "dd-mm-yyyy")
              
    Destinataire = "monadresse1@mail.fr;monadresse2@mail.fr" '==========>> A' adapter
    
    FichierPDF = Chemin & Nom & " " & Prenom & " " & MaDate & ".PDF"
    
    Contenu = "Bonjour," & vbNewLine & _
              vbNewLine & _
              "veuillez trouver......." & vbNewLine & _
              "Bien cordialement."
    
    WsMail.ExportAsFixedFormat _
                               Type:=xlTypePDF, _
                               Filename:=FichierPDF, _
                               Quality:=xlQualityStandard, _
                               IncludeDocProperties:=True, _
                               IgnorePrintAreas:=False, _
                               OpenAfterPublish:=False
    
    Set MaMessagerie = CreateObject("Outlook.Application")
    Set MonMessage = MaMessagerie.CreateItem(0)
    
    With MonMessage
        .To = Destinataire
        .Subject = "Mon sujet"
        .Body = Contenu
        .Attachments.Add FichierPDF
        'affiche le message
        .Display
        '.Send '==========>> enlever l'apostrophe pour que le mail soit envoyé automatiquement
    End With
    
    Kill FichierPDF
    
    Application.ScreenUpdating = True
    
End Sub
 
Vote positif 0 Vote négatif
Bonjour raf26,
merci pour ton retour, voici le code corrigé:
VB: 
Sub Test2()

    Dim WsMail     As Worksheet
    Dim Chemin As String, FichierPDF As String, Destinataire As String, Contenu As String, Signature As String
    Dim Nom    As String, Prenom As String, MaDate As String, MonFichier As String
    Dim MaMessagerie As Object, MonMessage As Object

    Set WsMail = Sheets("Feuil1")                '==========>> A' adapter
    
    Chemin = "C:\Users\Username\Desktop\"            '==========>> A' adapter
    
    Application.ScreenUpdating = False
    
    Nom = WsMail.Range("B10").Value
    Prenom = WsMail.Range("B12").Value
    MaDate = Format(WsMail.Range("C95").Value, "dd-mm-yyyy")
    
    Destinataire = "monadresse1@mail.fr;monadresse2@mail.fr" '==========>> A' adapter
    
    FichierPDF = Chemin & Nom & " " & Prenom & " " & MaDate & ".PDF"
    
    Contenu = "<HTML><body>Bonjour " & Nom & " " & Prenom & ",<br>" & _
              "veuillez trouver ci-joint le fichier Suivi " & Nom & " " & Prenom & " " & MaDate & " .<br>" & _
              "Bien cordialement." & " </body>"
    
    WsMail.ExportAsFixedFormat _
                               Type:=xlTypePDF, _
                               Filename:=FichierPDF, _
                               Quality:=xlQualityStandard, _
                               IncludeDocProperties:=True, _
                               IgnorePrintAreas:=False, _
                               OpenAfterPublish:=False
    
    Set MaMessagerie = CreateObject("Outlook.Application")
    Set MonMessage = MaMessagerie.CreateItem(0)
    
    With MonMessage
        .Display
    End With
    
    Signature = MonMessage.htmlBody
    
    With MonMessage
        .To = Destinataire
        .Subject = "Suivi " & Nom & " " & Prenom & " " & MaDate
        .htmlBody = Contenu & Signature
        .Attachments.Add FichierPDF
        'affiche le message
        .Display
        '.Send '==========>> enlever l'apostrophe pour que le mail soit envoyé automatiquement
    End With
    
    Kill FichierPDF
    
    Application.ScreenUpdating = True
 
End Sub
 
Vote positif 0 Vote négatif
Quelle modif je dois apporter pour que cette macro soit utilisable sur un autre pc que le mien (pc d'un collègue par exemple)

Et que mon collègue puisse également envoyer par son Outlook le fichier PDF généré ?

Car dans le code le chemin indique mon nom.
 
Vote positif 0 Vote négatif
Re

raf26
Tu as eu la réponse sur ton autre fil, non?
Il suffit de définir Chemin comme dans l'autre macro
VB: 
Dim objShell, Chemin$
Set objShell = CreateObject("Wscript.Shell")
Chemin= objShell.SpecialFolders("MyDocuments") & "\"
Donc tu vois quelle modif faire dans le code de Sequoyah?
 
Vote positif 0 Vote négatif
Bonsoir le fil, raf16

C'est pourtant simple, non?
Toutes les infos sont dans le fil
Au départ on pouvait lire
Chemin = "C:\Users\Username\Desktop\" '==========>> A' adapter
Donc suivons le conseil, adaptons avec ce que je disais
Dim objShell, Chemin$
Set objShell = CreateObject("Wscript.Shell")
Chemin= objShell.SpecialFolders("MyDocuments") & "\"
Donc oui en clair, on ajoute les déclarations de variables avec les autres Dim
(donc en début de code)
Et on remplace la ligne initiale qui commence par Chemin...
par la mienne
Le reste du code restant inchangé.
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Résolu(e)
Microsoft 365 Optimisation tableau avec adresse mail et numéro de téléphone (débutant)
Réponses
4
Affichages
99
JHA
J
F
  • Question Question
XL 2021 Power Query : extraire tableaux et données de PDF
Réponses
0
Affichages
185
Florent74
F
S
  • Question Question
XL 2019 enregistrement pdf avec variable et format variable
Réponses
10
Affichages
341
sofmat
S
W
  • Résolu(e)
XL 2019 Envoi de mails avec l'adresse secondaire et non l'adresse principale d'Outlook
2
Réponses
17
Affichages
254
TooFatBoy
TooFatBoy
N
  • Question Question
XL 2016 Code VBA pour envoi de mail avec pdf en piece jointe
Réponses
4
Affichages
421
Phil69970
Phil69970
Y
  • Question Question
XL 2016 Création d'un publipostage avec PJ PDF sur Outlook
Réponses
2
Affichages
211
Phil69970
Phil69970
P
  • Question Question
Microsoft 365 Joindre un fichier PDF dans un mail + inclure date envoi du mail dans un autre onglet
Réponses
1
Affichages
517
kiki29
kiki29
F
  • Résolu(e)
XL 2021 VBA et Power Query : ecrire des requetes avec variables
2
Réponses
28
Affichages
2 K
Florent74
F
D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
154
Phil69970
Phil69970
halecs93
  • Question Question
Microsoft 365 Générer mail via Excel
Réponses
2
Affichages
719
halecs93
halecs93
D
  • Résolu(e)
Microsoft 365 Macro pour rafraîchir les liaisons
Réponses
11
Affichages
273
AtTheOne
AtTheOne
P
  • Résolu(e)
Microsoft 365 creer un dossier et sauvergarder un fichier PDF avec le meme nom
Réponses
5
Affichages
643
Lolote83
L
F
  • Question Question
XL 2021 Exporter en PDF avec nom dynamique
Réponses
4
Affichages
770
kiki29
kiki29
E
  • Résolu(e)
Microsoft 365 Enregistrement en PDF avec modification du nom en fonction du contenu de cellules
Réponses
2
Affichages
901
Elwer
E
ELSONCe
  • Question Question
XL 2019 Envoi Mail avec Destinataires dans Userform avec CheckBox (1 mail par destinataire)
2
Réponses
16
Affichages
1 K
Oneida
Oneida
D
  • Résolu(e)
Outlook Macro Outlook 365-Création sous-dossier suivant contenu et sauvegarde pièces jointes lien zip
2 3 4
Réponses
57
Affichages
1 K
DELATTE
D
J
  • Question Question
Microsoft 365 automatisation envoi mail avec fichier pdf
Réponses
4
Affichages
778
TooFatBoy
TooFatBoy
R
  • Question Question
Microsoft 365 macro envoyer pdf par mail
Réponses
6
Affichages
1 K
kiki29
kiki29
E
  • Question Question
Microsoft 365 VBA envoi Mail avec Outlook
2
Réponses
15
Affichages
4 K
mromain
mromain
L
  • Question Question
Microsoft 365 envoi d'un fichier excel via outlook en pdf
2
Réponses
17
Affichages
2 K
pascal21
pascal21
Retour