Macro Outlook pour remplir l'objet des mails avec nom de la pièce jointe

[scratch263]

Bonjour,
Je cherche une macro pour remplir l’objet des mails Outlook avec nom de ma pièce jointe.
Je n’arrive pas à trouver mon bonheur

[FFO]

Bonjour

J’ai ceci que j’ai beaucoup utilisé dans le cadre mon travail quand j’étais en activité
Ce code m’a bien rendu service
A essayer

‘Excel envoi d’un mail à une liste de correspondant de la Feuil1 colonne A filtrée
Activer la référence Microsoft Outlook Library’

i = 2
Do While i < Sheets(“Feuil1”).Range(“A65535”).End(xlUp).Offset(1, 0).Row
If Sheets(“Feuil1”).Range(“A” & i).EntireRow.Hidden = False Then
Destinataire = Destinataire & “;” & Sheets(“Feuil1”).Range(“A” & i)
End If
i = i + 1
Loop
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = Destinataire
.Subject = “Test” 'le sujet
.Body = "Contenu " 'le contenu
'.Attachments.Add “c:\Chemin\Fichier.doc” (si piéce jointe)
.Send
'On peut switcher entre .send et .display selon que l’on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
End With
'ol.Quit si l’on veut fermer l’application Outlook

En espérant que cela convienne

Salut

[scratch263]

Merci @FFO pour cette réponse si rapide