[VBA] Envoi pièce jointe

Bonjour,
J'ai crée un petit form (merci la FAQ) me permettant d'envoyer des mails via outlook avec pièces jointes.
Cela fonctionne très bien lorsque je saisi ce

Code:

---

1 2	oMail.Attachments.Add ("E:\test.xls")

---

Ce que je souhaiterai faire et n'arrive pas :oops: c'est pouvoir choisir le fichier à attacher.
Comme lorsqu'on clique sur le "trombone" d'Outlook...

merci d'avance pour votre aide.

Salut,

Reprends le code de la FAQ pour récupérer le chemin complet du fichier, puis :

Code:

---

oMail.Attachments.Add (OuvrirUnFichier(Me.Hwnd, "Parcourir", 1, "Fichier Word", "doc"))

---

;)

Voila ce qui arrive quand on ne lit pas les FAQ en entier :?
Merci infiniment...ça marche

Un dernière question :oops:
Comment éviter un message d'erreur d'exécution VB si je clique sur Annuler dans la fenêtre Parcourir ?

Je n'ai pas d'erreur de générée.

Insère une gestion d'erreur dans ta fonction d'envoi de mail.
Un truc du genre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

On error goto err ... ... ... Err: Select Case err.number case 0 ' pas d'erreur case 2522 'Erreur lors du clic sur annuler case else 'autres cas End select

---

Effectivement il n'y a pas d'erreur, j'avais mal placé mon code pour récupérer mon fichier.
Merci pour tout.