Autres Pièce jointe dans le lancement d'Outlook en VBA

FOUQUET Yves

XLDnaute Occasionnel
Bonsoir,

Quelqu'un peut m'expliquer pourquoi dans cette procédure la ligne .Attachments.Add "img1" img1 étant le chemin d'"une pièce jointe", ne fonctionne pas ?
img1 et le chemin où se trouve l'image à joindre.
C'est exactement la même variable qui me sert pour l'intégrer dans le corps du message et là cela fonctionne!
Si au lieu d'utiliserla variable "img1" je tape directement le chemin "D:\gestion AHI V2\cerfa\cerfa.jpg" cela fonctionne... !!!
Merci de votre aide, cela fait des heures que je cherche.
Bonne soirée
Yves


VB:
Sub EmbedPicture(PathName As String)
  Dim MyPicture As String
  Dim img1 As String
 
  Workbooks("donnees.xlsm").Activate
  ligne = Me.ComboBox1.ListIndex + 1  '--- se positionne sur l'index (ligne) du nom combobox

' CHEMIN ======
  NomFichierComplet = UserForm1.chemin2 & "\Relance XXXX.jpg"
'-- Userform1.chemin2 = "D:\Gestion AHI V2"
  img1 = NomFichierComplet   ' ----  "D:\Gestion AHI V2\Relance XXXX.jpg"
 
  MyPicture = Mid(PathName, InStrRev(PathName, Application.PathSeparator) + 1)
  With CreateObject("Outlook.Application").CreateItem(0)

'========================================================        
    .HTMLBody = .HTMLBody & "<td valign='middle'><b><img src='" & img1 & "'>"
'-- cette ligne fonctionne

    .Attachments.Add "img1"       '--- si on veut mettre la photo en pièce jointe ----
'-- cette ligne ne fonctionne pas
'========================================================
    
.To = Range("C" & ligne).Value
    .Subject = " Votre cotisation à A.H.I "
    .Display
    '.Send
  End With
End Sub
 

Discussions similaires