Discussion :

[mael86]

bonjour à tous,

Je suis confronté à un problème. J'ai un fichier Excel que je voudrais automatiser, mais je n'y arrive pas!

un fichier de 2 feuilles: 1 feuille comprenant un tableau de demande de livraison avec le code, le numéro de commande, la quantité, le lieu, la date de livraison. 1 autre feuille qui contient le nom des fournisseurs avec dans les colonnes qui suit l'ensemble des contacts(adresses) à qui il faut envoyer la demande de livraison.

Je voudrais que dans la première feuille à la selection d'un fournisseur via une liste déroulante et à un bouton "envoi de mail", cela ouvre un mail avec le tableau excel dedans et un msg commun à tous pour les formules de politesse...

Est ce possible?
Pourriez vous m'apporter votre aide chers internautes?


merci bcp


bonne journée

[random]

tu utilises outlook pour envoyer tes mails ?

[mael86]

oui outlook

[Denis_67]

Bonjour,

Pour envoyer la feuille courante par mail, vous pouvez utiliser la macro suivante (il faut que votre messagerie soit lancée et non bloquée).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub Envoie_feuille_mail()
'
' Macro1 Macro
' Envoir la feuille courante comme mail
 
'
    ActiveSheet.Select
    ActiveSheet.Copy
    Application.Dialogs(xlDialogSendMail).Show
End Sub

[mael86]

le souci c'est que j'ai une base de données où sont les adresses et je voudrai que les adresses se mette automatiqueement en fonction du fournisseur choisi

je sèche...aidez moi svp

[Fvandermeulen]

Bonjour,
C'est un sujet qui a souvent été traité, voici le lien vers une des ces discussions (qui contient elle même un lien vers les FAQ)

http://www.developpez.net/forums/d74...mail-userform/

Tu verras que les éléments du mail peuvent être récupérés via des variables, tu peux donc facilement créer une variable MonDest alimentée par la celulle de ta feuille qui contient l'adresse voulue.

Autre chose dans le code de la discussion, le mail est envoyé sans être ouvert, si tu veux ouvrir le mail pour "relecture" du devras mettre

Code :

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

MonMessage.Display

au lieu de

Code :

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

MonMessage.send

Bonne continuation,



A+