Envoyer un Mail avec une pièce jointe tiré d'un lien dans une cellule

Bonjour à tous,

Je maitrise déjà l'envoi de mail par le biais de VBA et je sais que pour envoyer un objet dans un mail je dois utiliser la fonction

.Attachments.Add

Malgré tout, j'ai un soucis, pour une question de simplicité j'ai besoin d'affecter une variable à ce lien (ici nommé "oLien")

oLien = .Range(.CheckBoxes(Application.Caller).LinkedCell).Offset(0, Column - 1)

Donc j'ai associé les deux

.Attachments.Add oLien

mais lorsque je lance tout, et bien il ne trouve pas le chemin d'accès.

Alors que j'ai testé le lien "oLien" dans une msgbox et je retrouve bien mon chemin d'accès.

Une solution?

Merci par avance.

Bonjour,

Je ne suis pas sûr que ça règle votre problème, mais dans un premier temps, pourriez-vous réécrire le début de votre code ainsi :

Sub DdeAccèsB11()

Dim o0Look As Object, oEmail As Object
Dim destinataire$, objet_email$, texte$, totalmessage$
Dim oDate
Dim oColo%, oLigne%
Dim oNom$, oLien$, oAccès$, oTypeAccès$

With Worksheets("Listing")
    If .CheckBoxes(Application.Caller).Value = 1 Then ' si la checkbox est cochée
        with .Range(.CheckBoxes(Application.Caller).LinkedCell)
            oColo = .Column
            oLigne = .Row
            oLien = .Offset(0, -1)
        end with
    oDate = .Range("A2")
    oTypeAccès = .cells(1, oColo)
    oAccès = .cells(2, oColo)
    oNom = .cells(oLigne, 1)

'...... suite du code

Etes-vous sûr que oLien a pour valeur le lien de la PJ ? Quelle erreur rencontrez-vous exactement ?

Cdlt,

Bonjour millioss, bonjour 3GB

Autre remarque ... indente ton code qui est déjà très complexe !

Si tu ajoutes msgbox oLien ou debug.print oLien avant envoi, quelle valeur récupères-tu ?

Bonjour à tous,

pour la PJ il faut indiquer le chemin complet + l'extension

par exemple

oLien = "C:\Users\Sequoyah\Forum\" & .Range(.CheckBoxes(Application.Caller).LinkedCell).Offset(0, Column - 1) & ".pdf"

Bonsoir à tous !

Sujet doublon d'ici si je ne m'abuse !