Set Plg = Range sur 2 feuilles

Bonjour,

J'ai besoin de modifier un code pour avoir une sélection sur 2 feuilles

actuellement ma macro selectionne : Set Plg = Range("$A$15:$J$21")

je souhaite récupéré recuperer les informations de la " feuille 1 de A15 à J21" et sur la feuille 2 de "A2 à B14"

Comment puis je modifier ma macro pour integre ces 2 selections?

Sub EnvoyerPlagePDF()
  Dim sPath As String, sFileName As String
  Dim OutObj As Object, eMail As Object
  Dim Plg As Range
  ' Initiamiser les variables

   sPath = ThisWorkbook.Path & "\"
  sFileName = "Plage-A15_J21.pdf"
  ' Définir la plage à imprimer
  Set Plg = Range("$A$15:$J$21")

  With ActiveSheet
    ' Définir la zone d'impression
    .PageSetup.PrintArea = Plg.Address
    ' Exporter au format PDF
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPath & sFileName, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    ' Supprimer la zone d'impression
    .PageSetup.PrintArea = ""

  End With

  ' Envoyer le PDF par mail
  ' Création d'une instance Outlook pour envoyer un mail
  Set OutObj = CreateObject("Outlook.Application")
  Set eMail = OutObj.CreateItem(0)
  ' Avec mon objet Email
  With eMail
    .Display  ' Afficher le mail pour afficher la signature
    ' Destinataire(s) du mail
    .To = "emaildestinataire@fai.fr"
    ' Copie du mail
    .CC = "emaildestinataire@fai.fr"
    ' Sujet de l'eMail
    .Subject = "Ceci est le sujet de mon mail"
    ' Corps du mail avec signature à la fin
    .HtmlBody = "Bonjour," & "<BR><BR>" _
    & "Vous trouverez ci-joint le fichier " & sFileName & "<BR><BR>" & .HtmlBody
    ' Joindre le fichier précédemment créé
    .Attachments.Add sPath & sFileName
    ' Envoyer l'email
    '.Send
  End With
  ' Effacer les variable objet
  Set eMail = Nothing: Set OutObj = Nothing
  ' [OPTIONEL] Supprimer le fichier du répertoire
  Kill sPath & sFileName

End Sub

Bonjour,

un range ne peut être que sur une feuille.
Rassemble tes données sur une feuille temporaire.
eric

Il n'y a donc pas de solution pour utilise ce script sur recuperer les informations de la " feuille 1 de A15 à J21" et sur la feuille 2 de "A2 à B14" ?

Personne à une idée pour m'aider?

j'en ai besoin pour lundi, merci d'avance.

Bonjour,

A tester et adapter.

Cdlt.

merci