Bonjour ,

Petit problème avec le code ci-dessous :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim nom
Dim mail
mail = Range("F2")
nom = "C:\Users\Desktop\Work\Nettoyage TECO\Demande PM\" & "Projets TECO_" & PM
ActiveWorkbook.SaveAs nom
 
ActiveWorkbook.Close
 
 
Set myApp = CreateObject("Outlook.Application")
Set myItem = myApp.CreateItem(olMailItem)
myItem.Subject = "Projets à clore "
myItem.Body = "Bonjour," & vbCrLf & vbCrLf & "Ci-joint des projets actuellement en TECO que nous souhaiterions fermer définitvement, est-ce bon de ton côté ?" & vbCrLf & vbCrLf & "Merci d'avance," & vbCrLf & vbCrLf & "Bien cordialement,"
myItem.Attachments.Add = nom
myItem.to = mail
myItem.Display

Ça marche bien à priori sauf pour rajouter la pièce jointe, j'ai une erreur sur la ligne myItem.Attachments.Add = nom, vba (ou Outlook ?) ne semble pas trouver le fichier.

Si vous avez une explication je suis preneur

merci d'avance