Re bonjour !
J'ai récupéré un code sur un vieux forum ... L'envoie se fait bien quand je clic sur le bouton envoyer, par contre j'aimerai envoyer une feuille précise et non tout le classeur, pourtant dans le code je mets bien la feuille "planning" que je souhaite envoyer ...
Voici le code:
Sub Envoi()
Dim Dest As String, Sujet As String
Sheets("Planning").Select 'Saisir le nom exact la feuille
ActiveSheet.Copy 'crée une copie de la feuille active
Dest = Range("A1").Value 'Saisir l'adresse mail
Sujet = "Planning"
ActiveWorkbook.SendMail Dest, Sujet, True
Application.DisplayAlerts = False
ActiveWorkbook.Close 'ferme la copie de la feuille active
Application.DisplayAlerts = True
End Sub