Discussion :

[Est3van]

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

[Menhir]

Où est renseigné la variable PM ?

[Est3van]

Où est renseigné la variable PM ?

La variable PM est renseignée plus haut dans le code. Je ne pense pas que le problème vienne de là, le fichier s'enregistre correctement au bon endroit et avec le bon nom ; c'est vraiment au moment d'aller le chercher pour le mettre en PJ que ça coince...

[pijaku]

Bonjour,

En virant le "=" peut-être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

myItem.Attachments.Add nom

Voir code ici : https://docs.microsoft.com/fr-fr/off...ttachments.add