Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

copier selection de feuille et envoyer par mail

  • Initiateur de la discussion Initiateur de la discussion pralo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 

Pièces jointes

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…