Envoi par mail d'une feuille sélectionnée à partir

[Jean-Pierre]

Bonjour à tous, bonjour le forum,

La macro suivante me permet d'envoyer rapidement une ou plusieurs feuilles sélectionnées par mail. Elle fonctionne à merveille. Le problème c'est que je l'ai enregistrée dans mon classeur personnel et quand je l' éxecute c'est la feuille active du classeur personnel qui est sélectionnée et pas la feuille que je souhaite envoyer. Qui peux me dire comment modifier cette macro pour obtenir l'envoi de la feuille désirée et non la feuille du classeur perso.


Sub MacroMail()

ThisWorkbook.Windows(1).SelectedSheets.Copy
AccuseReception = True
Sujet = 'Titre au choix'
ActiveWorkbook.SendMail (''), Sujet, AccuseReception
ActiveWorkbook.Close False

End Sub

Merci à tous

 

[myDearFriend!]

Bonsoir Jean-Pierre,

Tu peux essayer comme ça :

Sub MacroMail()
'Autant prendre de bonnes habitudes : en VBA, on déclare toujours les variables utilisées !
Dim AccuseReception As Boolean
Dim Sujet As String
      '
      ActiveWorkbook.Windows(1).SelectedSheets.Copy
      AccuseReception = True
      Sujet = 'Titre au choix'
      ActiveWorkbook.SendMail '', Sujet, AccuseReception
      ActiveWorkbook.Close False
End Sub

Cordialement.