XL 2013 envoi mail vba

flo189

XLDnaute Occasionnel
Bonjour,

Un peu novice dans la matière, je souhaiterais envoyé par mail via le bouton (logo mail) la feuille "Stock" de la ligne 29 à 71.

J'ai plusieurs destinataires, un objet = "Stock", pour le corps du mail =" Bonjour, veuillez trouver ci joint le stock".

Mon fichier en PJ.

Merci à tous pour votre aide précieuse.
 

Fichiers joints

flo189

XLDnaute Occasionnel
Bonjour Bougla,

Tout d'abord merci beaucoup pour ton aide.

Ta solution est très intéressante. ma problématique :
1. je souhaiterais définir plusieurs destinataires connus
2. Juste envoyer la feuille stock (et si possible envoyer seulement de la ligne 4 à 71) et non envoyer le classeur dans sa totalité.


Encore merci pour ton aide.
 

flo189

XLDnaute Occasionnel
Bougla,
J'ai trouvé pour mon point 1 avec
MonMessage.to="..@...fr"
MonMessage.cc="..@...fr"

Comment puis je résoudre mon petit 2 c'est à dire envoyer seulement ma feuille "Stock" etant donné que je vais avoir plusieurs feuilles dans le classeur.
Si possible dans cette feuille "stock" je souhaiterais envoyer seulement de la ligne 4 à 71.

Encore merci pour ton aide précieuse.
 

flo189

XLDnaute Occasionnel
Bougla,

Ca m'a l'air parfait mais j'ai un petit beug sur :

.SaveAs Filename:="C:\Users\" & Util & "\Desktop\Gestion dossier_Temp.xlsx"

Est-il possible de prendre en compte seulement la feuille stock, cela nous éviterais de copier/coller.
C'est à dire au lieu d'envoyer le classeur, envoyer seulement la feuille stock sans tenir compte de ma demande de ligne 4 à 71.

Encore merci pour ton aide.
 

flo189

XLDnaute Occasionnel
Je suis sur des sessions bloqué ou je n'ai pas bureau...

Est-ce qu'il est possible de prendre ton premier fichier mais au lieu d'envoyer le classeur, prendre en compte seulement la feuille "stock" ?

Merci
 

Bougla972

XLDnaute Occasionnel
Le dernier classeur transmis en post #7 fait ce que tu souhaites...Certes il y a 3 feuilles (Feuil1, Feuil2 et Feuil3) mais seule les données de 'Stock' figurent sur l'onglet 'Feuil1'.

N'est-ce pas le cas ?
 

Bougla972

XLDnaute Occasionnel
Pour ce qui est du chemin avec 'Desktop' modifie le à ta convenance, là où tu peux enregistrer temporairement un document...
 

flo189

XLDnaute Occasionnel
Ok parfait, Est-ce obligatoire de l'enregistrer, je suis bloqué je n'ai pas d'accès pour enregistrer des docs. ?
Encore merci
 

Lone-wolf

XLDnaute Barbatruc
Bonjour à tous

en pj ton fichier modifié. Le seul inconvénient, c'est qu'une fois le classeur enregister, il faut ouvrir le classeur gestion.
 

Fichiers joints

Bougla972

XLDnaute Occasionnel
Salut Lone-Wolf,

Le problème c'est que Flo ne peut enregistrer de fichier...sinon ce que j'ai proposé fonctionne...:).
 

flo189

XLDnaute Occasionnel
Merci à tous de votre aide.

En fait l'idée c'est de prendre exactement le premier fichier de Bougla convers 2 mais au lieu d'envoyer le classeur dans sa globalité ce serait d'envoyer uniquement la feuille "stock".
 

Lone-wolf

XLDnaute Barbatruc
Re

C'est ce que fait mon fichier et ajoute en copies cachées toutes les adresses de la nouvelle feuille "Envoi Mail".
 

Bougla972

XLDnaute Occasionnel
Flo,

Je ne parviens pas à attacher un fichier si celui si n'est pas enregistrer... Oui car dans la méthode 'Add' de WorkBook il nous faut absolument connaitre le 'Fullname'....

Par conséquent, le fichier joint fais ce que tu souhaites excepté l'attachement du fichier ua mail... A faire manuellement du coup...:oops:

Peut-être que Lone-Wolf ou d'autres parviendront à résoudre ce problème.
 

Fichiers joints

flo189

XLDnaute Occasionnel
Lone,

J'ai toujours un beug sur :
ActiveSheet.SaveAs Filename:=chemin & nom & ".xls", FileFormat:=xlExcel8
 

Discussions similaires


Haut Bas