XL 2010 Créer l'envoi par mail d'un seul onglet

thomasdu43 · 18 Août 2016

Bonjour,

J'ai constitué un fichier et automatisé l'envoi de certains onglet au format pdf par mail grâce à une macro et un bouton associé.
Peut on en faire de même au format excel : envoi d'un seul onglet parmi ceux présents dans mon fichier. Je vois déjà arriver la problématique du fonctionnement des formules si elles renvoient à d'autres onglets...

Merci de votre aide.

Cdt.

don_pets · 19 Août 2016

'llo,

Si tu veux n'envoyer qu'un seul onglet, procéderai comme ceci :
- Inputbox pour choisir la feuille à envoyer

VB:

feuil = InputBox("Quelle feuille envoyons-nous ?")

- Inputbox pour entrer l'adresse de messagerie :

VB:

dest= InputBox("Quel est le mail du destinataire ?")

- Enuiste tu balances l'onglet en tant que pj du mail

VB:

Sheets(feuil).Activate
Sheets(feuil).Copy
    With ActiveWorkbook
        .SendMail Recipients:=dest
        Application.DisplayAlerts = False
        .Close
        Application.DisplayAlerts = True
    End With

Voilà au moins une solution,

pets

XL 2010 Créer l'envoi par mail d'un seul onglet

thomasdu43

XLDnaute Occasionnel

don_pets

XLDnaute Occasionnel

Discussions similaires