copie module

[eduraiss]

Bonjour le forum,
le code ci-dessous me permet de créer une feuille et de l'envoyer par mail je voudrais que les modules de la feuille souche soit tranferer dans la nouvelle feuille avant l'envoi.
J'ai regardé sur le forum mais je ne trouve pas

Sub envoiMailEtFeuilleActivetoto()
Range("e3:e600").Formula = "=IF(A3="""","""",VLOOKUP(A3,$L$3:$M$6000,2,FALSE))"
ActiveSheet.Copy ' créée une copie de la feuille active
ActiveWorkbook.SendMail Recipients:="contact@toto.fr", Subject:="titi " 'envoi Mail
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True

End Sub

Merci de votre aide

 

[Pierrot93]

Re : copie module

Bonjour,

une solution serait de faire une copie de ton classeur, supprimer les feuilles en trop et envoyer ce nouveau classeur, tu aurais tout le code... sans doute plus facile...

bon après midi
@+

 

[MJ13]

Re : copie module

Bonjour Eduraiss, Re Pierrot


Tu peux aller voir cette discussion intéressante.

https://www.excel-downloads.com/threads/faire-une-maj-de-macro-dun-classeur-a-autre.165338/

 

[eduraiss]

Re : copie module

Bonjour le forum, MJ13,pierrot

Merci a vous deux pour vos réponses, je vais faire comme pierrot me dit, cela ma l'air plus simple

Cordialement