Microsoft 365 Attachments.Add Fonctionne mais erreur

[ELSONCe]

Bonjour à tous

Avec la macro de Patrick Toulon ci-dessous je peux envoyer des mails avec une pièce jointe qui s'arrête à la 1ère ligne vide. Le problème c'est le message d'erreur ci-dessous... Malgré l'erreur d'exécution stipulant un chemin incorrect, il me trouve le bon pdf, le joint bien à mon mail et l'envoi est ok....???? Là où cela devient pénible, c'est que j'ai d'autres actions après l'envoi du mail, qui malheureusement ne se lancent pas.

Si quelqu'un a un début de piste ou même une solution, j'avoue être preneur


Belle journée à tous !!!

Sub EnvoiMail2()
'patricktoulon

'définition des variables
Dim ObjOuTlook As Object, oBjMail As Object, MonSujet$, MonDestinataire$, MonContenu$, MaPJ$

Set fdistri = Sheets("LISTE")


With Sheets("Mail") '.Activate

MonContenu = .Range("A3").Value & Chr(10) & Chr(10) & .Range("A4").Value & Chr(10) & _
.Range("A5").Value & Chr(10) & Chr(10) & .Range("A6").Value & Chr(10) & Chr(10) & Chr(10) & _
.Range("A7").Value & Chr(10) & Chr(10) & .Range("A8").Value
End With




Set ObjOuTlook = CreateObject("outlook.application")


For i = 2 To fdistri.Cells(Rows.Count, 1).End(xlUp).Row 'tant que la ligne sélectionnée dans ListeDistribution n'est pas vide, la VBA s'exécutera"
MaPJ = fdistri.Cells(i, 13).Value
MonDestinataire = fdistri.Cells(i, 6).Value
MonSujet = fdistri.Cells(i, 11).Value

Set oBjMail = ObjOuTlook.CreateItem(0)

With oBjMail
.To = MonDestinataire
.Subject = MonSujet
.Body = MonContenu
.Attachments.Add MaPJ
'.Display
.Send
End With
Set oBjMail = Nothing
Next

ObjOuTlook.Quit
Set ObjOuTlook = Nothing

MsgBox "Envoi terminé"

Call Effacer



End Sub

 

[kiki29]

Salut, va fouiller sur le site de Ron de Bruin : Mail from Excel and make/mail PDF files (Windows)

 

[Oneida]

Bonjour a tous,

MaPJ = fdistri.Cells(i, 13).Value

Avez vous le chemin complet dans cette cellule?

 

[ELSONCe]

Bonjour Oneida

Merci pour ton retour ! Oui cf. screenshot ci-dessous. Je me permets de penser que c'est lié à la quantité de lignes... car en dessous de 3 lignes la macro fonctionne...

Merci pour le temps consacré

Belle journée à tous !!

 

[Oneida]

Re,
Est-ce au premiere envoi?
Quand vous avez l'erreur, click sur debugage, avez vous une ligne en erreur sur le code?

 

[ELSONCe]

Re,

L'erreur est récurrente dès la première utilisation. Ce qui est fou c'est que tous mes mails partent avec la bonne pièce jointe...

Ci-dessous message d'erreur et ligne où ça bug.

Encore un grand MERCI !

 

[ELSONCe]

Ce n'est pas faute d'avoir tout essayé... :-( Le chemin est bien renseigné et c'est bien écrit !!!????

Vraiment je ne comprends pas où est le loup...

Merci par avance à celle ou celui qui trouvera la solution... Je commence à douter...

Belle après-midi !!

 

[Oneida]

Re,
Z'etes sure qu'ils partent vos @Mails?

Pouvez mettre votre sub dans un autre classeur et mettre ce classeur a dispo

 

[ELSONCe]

Re,

269 mails envoyés aujourd'hui avec mes différents essais, donc c'est un grand OUI.

Veuillez trouver ci-joint le fichier et merci pour votre temps ;-)

 

[Oneida]

Re,
Votre code s'arrete sur cette erreur seulement si chemin fichier n'existe pas ce qui est la cas chez moi avec vos donnees.
Marche impecable avec un chemin fichier de chez moi, ce qui est normal
J'ai un peu modifie la structure du code, cela n'influence pas le fonctionnement
Faites un essai pour voir si toujours erreur

 

[ELSONCe]

Bonjour et merci pour votre retour

J'ai le même constat chez moi ça fonctionne également très bien. Problème de serveur ou de réseau propre à l'entreprise certainement... Sujet Clos !

Je vous remercie pour votre aide précieuse et vous souhaite une agréable journée !