Envoyer plusieurs PJ

Bonjour,

Ci-dessous une partie de ma macro, j'essaie d'envoyer plusieurs PJ mais sans succès...

Avez vous une idée ..?

Dim MonDossierPRM As String
Dim MonDossierPRM2 As String
MonDossierPRM = Left(ThisWorkbook.Path, Len(ThisWorkbook.Path) - 11) & "Plans Rector\PRM\" & Worksheets("MAIN").Range("E165").Value & "_" & Worksheets("MAIN").Range("D165").Value & "\Ind." & Worksheets("MAIN").Range("C165").Value & "\"

Dim utilisateur As String
Dim oWSHShell As Object
Set oWSHShell = CreateObject("WScript.Shell")

Dim oFSO As Object
Dim oDossier As Object
Dim oFichier As Object
Dim I As Integer

Set oFSO = CreateObject("Scripting.FileSystemObject")

Set oDossier = oFSO.GetFolder(MonDossierPRM)

For Each oFichier In oDossier.Files

If oFichier Like "*Plan de pose*" Then
.Attachments.Add oFichier
Else
If oFichier Like "*Carnet_*" Then
.Attachments.Add oFichier
Else
If oFichier Like "*Fiche élec_*" Then
.Attachments.Add oFichier
Else
End If
End If
End If

Next oFichier

Bonjour,

ofichier est un objet. Attachments.Add a besoin d'un nom de fichier complet (chemin inclus). Le code devrait être :

if oFichier.Name Like "*Plan de pose*" Then  .Attachments.Add oFichier.Path
If oFichier.Name Like "*Carnet_*" Then   .Attachments.Add oFichier.Path
If oFichier.Name Like "*Fiche élec_*" Then   .Attachments.Add oFichier.Path

Merci ca marche !