Envoyer plus d'une feuille d'un classeur
Résolu
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.
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
-
Contributeur Ambassadeurbonjour, pour partager ton fichier: tu le mets à disposition sur internet (cjoint.com, google drive, ...) et tu partages le lien ici.
-
ContributeurTu fais plusieurs envois ; un pour chaque feuille !
-
Contributeur AmbassadeurMon Excel n'apprécie pas ton fichier: peux-tu partager uniquement le code VBA?
-
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
-
-
ContributeurBonjour,
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à
-
Contributeur Ambassadeuras-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.-
-
-
Contributeur Ambassadeur@CarolineCaronil 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. -
-
