Envoyer un partie de feuille en PJ

Bonjour à vous,

J'ai un fichier qui contient 52 onglets sur lequel je rempli mes arrivages et qui me sert de liaison avec mes clients....

Ma problématique est la suivante :

via un bouton :

• envoyer juste une sélection d'une feuille de la semaine concerné par mail en pièce jointe,
• prendre en compte l'adresse mail de l'expéditeur dans une cellule qui se trouve dans cette feuille

un autre bouton

- pour imprimer cette fameuse sélection

Etant une buse niveau royal en VBA , je vous joins un fichier avec juste une feuille.....

je vous remercie par avance

bonjour,

Je me permets de relancer ma demande, comment créer un bouton pour que la feuille (et non le classeur) soit générée en pièce jointe d'un mail ??

Bonjour gaelc56000, le forum,

Pour l'impression:...... macro à associer au bouton

Sub impression()
 With ActiveSheet
  .PageSetup.PrintArea = "A1: K49"  'zone à imprimer
 ' .PrintPreview                    'aperçu avant impression
  .PrintOut copies:=1               'impression (x 1)
 End With
End Sub

Cordialement,

Re,

Pour l'envoi par mail, un essai....

Source:........https://forum.excel-pratique.com/viewtopic.php?t=21321

Sub EnvoiPage()

Dim Destinataires As String, Sujet As String
Dim AccuseReception As Boolean

  Destinataires = ActiveSheet.Range("E5")
          Sujet = ActiveSheet.Range("A1") & ActiveSheet.Range("I1") & " " & ActiveSheet.Range("J1")
AccuseReception = True

ActiveSheet.Range("A1:K49").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False

End Sub

Cordialement,

Super !!!!!!!! vraiment un énorme merci

par contre j'essaye de comprendre mais là c'est pas gagné gagné