Microsoft 365 envoi d'un fichier excel via outlook en pdf

Le novice

XLDnaute Junior
bonjour à tous
mon nouveau projet consiste à creer un automatisme d'envoi de fichier via outlook.
en fait apres avoir été rempli ce fichier doit etre converti en pdf pret a etre envoyer dans outlook.
Ici le fichier doit etre remplit et une des cases absolument cochée avant le clic sur le bouton email.
lors du clic sur le bouton:
• le fichier doit etre converti en PDF,
•outlook doit s'ouvrir avec une adresse d'envoi prédéfini
•le fichier sera en PJ
•le fichier portera le nom d'une des cases cochée avec la date et l'heure
• le sujet du mail aura le même texte.
• le corps du mail aussi précédé de veuillez trouver si joint....
•si au clic aucune case n'est coché un message d'érreur devrait apparaitre.
Merci beaucoup pour votre aide vous trouverez le fichier en question
 

Pièces jointes

  • Train status V2.xlsm
    16.7 KB · Affichages: 6

pascal21

XLDnaute Barbatruc
VB:
Sub copie_format_PDF() 'code copie en PDF et classement

Feuil7.Range("d6:j6").Value = Feuil7.ComboBox1.Value
Dim sNomDossier As String
Dim sNomFichierPDF As String

    sNomDossier = ThisWorkbook.Path
  
    sNomFichierPDF = Format(Feuil7.Range("l3"), "dddd dd mmmm yyyy") & "   n° " & Range("z58") 'nom du fichier + N° de document
  
     sNomDossier = ThisWorkbook.Path & "\année 2023\" & Format(Feuil7.Range("l3 "), "mmmm yyyy") & "\"
  
    If Len(sNomFichierPDF) > 0 Then
        If NomFichierValide(sNomFichierPDF) Then
            'ActiveSheet
            Feuil7.ExportAsFixedFormat Type:=xlTypePDF, _
                                            Filename:=sNomDossier & "/" & _
                                                      sNomFichierPDF & ".pdf" _
                                                      , Quality:=xlQualityStandard, _
                                            IncludeDocProperties:=True, _
                                            IgnorePrintAreas:=False, _
                                            OpenAfterPublish:=False
        Else
            Feuil7.Range("l3").Select
            MsgBox "ERREUR sur le nom du fichier", vbOKOnly + vbInformation, "Nom de Fichier"
        End If
    End If
 

End Sub
bonjour
ce code que j'utilise depuis quelques années devrait t'aider
il crée un pdf en le nommant avec le contenu de certaines cellules
ici il reprend une valeur contenue dans ("I3") (date) et le numéro du document ("Z58") pour donner cela par exemple "dimanche 12 février 2023 n° 5"ç
ça le classe ensuite dans un fichier nommé avec un mois de l'année en cours
tu devrais pouvoir adapter
pour outlook je n'ai pas la solution
 
Dernière édition:

Discussions similaires

Réponses
2
Affichages
660

Statistiques des forums

Discussions
315 127
Messages
2 116 509
Membres
112 765
dernier inscrit
SIDIANW