Macro pour envoyer onglet par messagerie

Bonjour,

Est ce que quelqu'un connait la formule macro pour envoyer :

• un onglet dans un fichier execl (cette formule me permettrait d'integrer une macro par onglet et d'ainsi envoyer chaque onglet independament,
• un fichier excel (cette formule me permetrait d'envoyer un fichier complet).

Bonne journée

G38

Bonjour et bienvenue

Plutôt que de créer une macro pour chaque onglet, ce code te permet d'envoyer la feuille active avec l'adresse mail du destinataire saisie en A1 :

Sub EnvoiMailFeuilleActive()

' Copie de la feuille active
    ActiveSheet.Copy

'Envoi Mail
    ActiveWorkbook.SendMail Recipients:=Range("A1").Value

    Application.DisplayAlerts = False

' Ferme le classeur créé après l'envoi
    ActiveWorkbook.Close
    Application.DisplayAlerts = True

    End Sub

Et pour envoyer le classeur :

Sub EnvoiMailClasseur()
ActiveWorkbook.SendMail Recipients:=Range("A1").Value
End Sub

Amicalement

Nad

Bonjour Nad !

Super sympa merci !!