Copier plusieurs feuilles et les modules

bonjour,

comment adapter cette ligne pour intégrer les modules ?

Sheets(Array("Chantier", "Brassage", "Synoptique")).Copy

Je comprends pas très bien la finalité copié pour envoyer dans un nouveau fichier ?

ou copie pour envoyer vers un fichier existant ? ( et dans ce cas le fichier existant a-t-il déjà des macros ) ?

Si c'est uniquement pour faire un nouveau fichier ; le plus simple à coder et de partir du principe inverse :

Enregistrer copie et supprimer les onglets en trop.

Ainsi tu gardes les modules avec.

il n'y a pas une fonction simple, ? le classeur est assez lourd et beaucoup de feuille avec des noms différent chaque mois.

philippou_84 a écrit :

il n'y a pas une fonction simple, ? le classeur est assez lourd et beaucoup de feuille avec des noms différent chaque mois.

Tu étais prêt à faire une fonction pour copier trois onglet, donc je ne vois pas la différence ?

Tu fais une fonction pour enregistrer une copie ; puis dans la foulée la macro qui supprime :

Toutes les feuilles sauf Sheets(Array("Chantier", "Brassage", "Synoptique").

Ainsi peu importe que le mois suivant il y a d'autres feuilles ou non

je suis nul en code , peux-tu m'aider à faire cela ?

sinon pour contourner cette histoire est-il possible de déclarer public const dans une feuille au lieu d'un module ?

Option Explicit

Public Type L93
    x As Double
    y As Double
End Type

Public Type Wgs84
    lng As Double
    lat As Double
End Type

Public Const PI = 3.14159265358979
Public Const a = 6378137            ' demi grand axe de l'ellipsoide (m)
Public Const e = 0.08181919106      ' première excentricité de l'ellipsoide

Public Const x0 = 700000            ' coordonnées à l'origine
Public Const y0 = 6600000           ' coordonnées à l'origine