Envoyer plus d'une feuille d'un classeur

Résolu
CarolineCaron Messages postés 19 Statut Membre -  
CarolineCaron Messages postés 19 Statut Membre -
Bonjour,
J'ai un classeur excel dans lequel il y a plusieurs feuilles.
L'une de ces feuilles sert à sélectionner seulement une des feuilles pour l'envoyer par courriel (à l'aide d'un code vba j'imagine... ça a été créé pour moi dans le passé par quelqu'un sur ce site mais je ne peux le retracer).
J'aimerais pouvoir envoyer plus d'une feuille à un même destinataire, par courriel en me servant de ce même modèle, sans toutefois envoyer le classeur en entier. Présentement, je peux envoyer qu'une feuille à la fois.
Voici le lien pour mon fichier:
https://www.cjoint.com/c/HIgsvZopF8N

Quelqu'un peut m'aider svp?
Merci beaucoup.

5 réponses

yg_be Messages postés 24281 Statut Contributeur Ambassadeur 1 584
 
bonjour, pour partager ton fichier: tu le mets à disposition sur internet (cjoint.com, google drive, ...) et tu partages le lien ici.
0
CarolineCaron Messages postés 19 Statut Membre
 
merci j'ai trouvé et j'ai modifié ma question ;)
0
Raymond PENTIER Messages postés 71823 Statut Contributeur 17 376
 
Tu fais plusieurs envois ; un pour chaque feuille !
0
CarolineCaron Messages postés 19 Statut Membre
 
Merci, mais je me demandais s'il y avait moyen de le faire dans un seul envoie :)
Voir s'il y a avait un truc pour séparer le nom des feuilles dans la même cellule pour qu'excel envoie chacune d'elle que je sélectionne dans un même courriel.
Bonne soirée :)
0
yg_be Messages postés 24281 Statut Contributeur Ambassadeur 1 584
 
Mon Excel n'apprécie pas ton fichier: peux-tu partager uniquement le code VBA?
0
CarolineCaron Messages postés 19 Statut Membre
 
Oh la la... je ne sais pas trop comment faire... mais en cliquant sur l'onglet de la feuille avec le bouton droit de ma souris, puis ensuite sur Visualiser le code j'obtient ceci:


Sous (Général):

Private Sub RDB_Outlook_Click()

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Sous RBD_Outlook:

Private Sub RDB_Outlook_Click()

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Sous Worksheet:

Private Sub RDB_Outlook_Click()

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Mais voici à nouveau le lien pour mon fichier au cas où ça irait mieux maintenant. Merci :)
https://www.cjoint.com/c/HIhmgOBjhWN
0
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
Bonjour,

Il faut suivre le conseil de Raymond que je salue:

Tu fais plusieurs envois ; un pour chaque feuille !

Par contre moi il n' y a qu'un seul envoi avec 2 pièces jointes.

Je t'ai donc fait cela en vba, les nouveaux classeurs sont enregistrés dans le même dossier que ton classeur au nom de la feuille. il te suffira de les mettre en pièce jointe:

https://www.cjoint.com/c/HIhlf7AkymQ

avec cette méthode tu peux mettre autant de feuilles que tu veux!

voilà

0
CarolineCaron Messages postés 19 Statut Membre
 
Merci, je viens d'essayer votre méthode. J'apprécie beaucoup mais je crois que je n'aurai d'autre choix que de m'en tenir à envoyer mes feuilles en plusieurs courriels. Ça ne fonctionne pas à merveille pour moi.
Bonne journée à vous tous.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
yg_be Messages postés 24281 Statut Contributeur Ambassadeur 1 584
 
as-tu essayé de mettre plusieurs noms de feuilles en B7, en les séparant par un passage à la ligne (alt-enter)?
il me semble que le code VBA existant est prévu pour envoyer plusieurs feuilles.
0
CarolineCaron Messages postés 19 Statut Membre
 
EURÉKA!!!
C'est ça!! Ça fonctionne merci beaucoup!! C'est justement le truc que je cherchais, merci beaucoup! :)
0
CarolineCaron Messages postés 19 Statut Membre
 
En plus, j'avais tout essayé: point virgule, barre oblique, etc.... wow!
0
yg_be Messages postés 24281 Statut Contributeur 1 584 > CarolineCaron Messages postés 19 Statut Membre
 
il semble que tu puisses faire de même avec les adresses email to, cc et bcc, en colonnes D, E et F.
ainsi qu'envoyer plusieurs emails d'un coup, en remplissant plusieurs lignes.
0
CarolineCaron Messages postés 19 Statut Membre
 
Super! J'essayerai. Merci :)
0