copier selection de feuille et envoyer par mail

pralo

XLDnaute Junior
bonsoir le forum
j'ai de nouveau besoin de vous
j'ai essayer avec l'enregistreur de macro mais pas concluant
je voudrais envoyer tel ou tel feuilles a des collègue en tant que classeur simple au format .xlsx ( sans macro)
1- sélectionner un ou plusieurs onglets différents
2- envoyer par mail mais sans macro
pour le mail, ca fonctionne mais je ne peut pas choisir les feuilles
si quelqu'un peut m'aider
merci par avance
 

Fichiers joints

pralo

XLDnaute Junior
bonsoir le forum
en cherchant un peut (en fait, beaucoup)
j'ai combiné deux code que j'ai trouvé
je selctionne toute les feuille sauf les 4 premieres
et ensuite j'envoie par mail
mais le nombre de feuilles varie
For i = 5 To 7 (comment faire pour qu'il sélectionne toute les feuilles sauf les 4 premières)
merci pour votre aide

Code:
Sub SelectionFeuilles()
Dim WB1 As Workbook
Dim MyArray() As String
Dim i As Integer, X As Byte
Set WB1 = ThisWorkbook
    For i = 5 To 7
        ReDim Preserve MyArray(X)
        MyArray(X) = Sheets(i).Name
           X = X + 1
    Next
            WB1.Worksheets(MyArray).Copy
           
'envoie mail
           
            ActiveWorkbook.SendMail Recipients:="" 'envoi Mail
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
End Sub
 

Haut Bas