Feuille Excel en pièce jointe (mail)
Bonjour,
Je bloque depuis hier sur un problème à priori simple mais vu que je suis un peu neuneu en VBA, je me tourne vers vous.
L'énoncé est simple :
1) J'envoie par mail un fichier .xlsm (bon de commande) à un client.
2) Le client ouvre le fichier xslm et complète le formulaire avec ses besoins.
3) En cliquant sur un bouton de commande inclus dans la feuille, cela génère un mail à mon attention avec son bon de commande dûment complété, ainsi qu'une copie conforme au client.
Problèmes :
1) Lorsque je fais mes tests, la pièce jointe est le bon de commande vierge !
2) Je ne sais pas comment inclure l'adresse mail du client (qui aura été encodée par lui dans une case prédéfinie. Eventuellement test à prévoir si la case est vide)
Voici le fichier complet :
Le code est ci-dessous.
Merci pour votre aide,
Luc
Voici mon code :
Private Sub CommandButton1_Click()
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Merci pour votre commande." & vbNewLine & vbNewLine & _
"Celle-ci sera traitée dans les plus brefs délais." & vbNewLine & vbNewLine & _
"Luc"
On Error Resume Next
With xOutMail
.To = "provi@voo.be"
.CC = ""
.BCC = ""
.Subject = "Commande cartes géotechniques"
.Body = xMailBody
.Attachments.Add Application.ActiveWorkbook.FullName
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
Bonjour Bandhi,
si j'ai compris ton besoin, voilà, tu ouvres tu testes et tu me redis
a+
Papou
Bonjour Papou,
C'est eeeeeexactement ça et même au-delà de mes espérances !
Avec le petit message d'alerte quand aucune adresse mail n'est mentionnée, et le petit message de confirmation d'envoi ! Je n'aurai pu rêver mieux
Merci pour ton aide précieuse, merci d'avoir presqu'intégralement recréer le code. Du haut de mes piètres connaissances, je dois bien avouer que je me contente modestement de créer ou copier/coller quelques lignes de code à partir de tuto ou de forum tel que celui-ci. Je commence parfois à comprendre certaines de ces lignes, et je me risque parfois à en écrire moi-même, mais la plupart reste parfois pour moi un mystère, pour ne pas dire un casse-tête chinois.
Là, par exemple, indépendamment des améliorations que tu as apportées, je bloquais sur la seule ligne ".Attachments.Add Application.ActiveWorkbook.FullName" qui me renvoyait mon fichier "vide", et que tu as remplacée par ".Attachments.Add fich".
Et donc, encore une fois merci
Luc
Bonsoir Bandhi le forum
bah l'essentiel est que tu aies trouvé ta solution, avec ce que je t'ai fait
a+
Papou