Microsoft 365 Envoi mail avec plusieurs PJ vba

Salut, puisque RdB à supprimer les fichiers Windows de son site, va voir ici

Bonjour a tous

Arnaud H:​

Comment faite vous la recherche de vos fichiers?
Pour un envoi multi pieces jointes, il faut faire une boucle sur les noms de fichers trouves
Exemle pour fichier commencant par ar

Bonjour,

Merci de m'avoir répondu. J'ai essayé de faire une boucle avec Do While mais ça ne fonctionne pas,ça réfléchit sans fin...

Pour faire simple,

J'ai défini le répertoire comme étant la valeur dans B1 à savoir C:\Doc\Retards\
J'ai ensuite fait une boucle sur le secteur qui correspond à une valeur à savoir A1,A2... et je veux que tous les fichiers commençant par ce secteur arrivent dans le même mail


Ci-dessous le fichier excel:




Ci-dessous les fichiers à mettre en pj:




Ci-dessous la macro actuelle :


Sub Envoi_Mail_Retards()

Dim OutApp As Object
Dim OutMail As Object

On Error Resume Next

Dim i As Integer
Dim repertoire As String

repertoire = Sheets("Mail").Range("B1").Value

For i = 1 To 1000

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

destinataire = Sheets("Mail").Cells(i + 4, 1).Value
Secteur = Sheets("Mail").Cells(i + 4, 2).Value

If Secteur = "" Then
Exit For
End If

With OutMail

.To = destinataire

.Subject = "Retards " & Secteur

'Message du mail :

.body = "Bonjour, " _

& Chr(13) & Chr(10) & Chr(13) & "Ci-joint les retards par site et par commercial" _
& Chr(13) & Chr(10) & Chr(13) & "Cordialement."

'Fichier attachés :

.Attachments.Add repertoire & Secteur & " - Retards.pdf"

.Display 'affiche le mail en brouillon dans Outlook

End With

Set OutMail = Nothing
Set OutApp = Nothing

Next i

End Sub

Merci

Bonjour, effectivement c'est le manque du F=Dir qui faisait planter la macro. Avec ça marche super. Je garde votre code vba au cas où il me servirait. En tout cas un grand merci à vous. Je clos le sujet