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

[thomasdu43]

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]

'llo,

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

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

- Inputbox pour entrer l'adresse de messagerie :

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

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

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