copie macro vba

Bonjour,

pour copier des feuilles d'un classeur source vers un classeur
destination, utilises l'enregistreur de macros p.e pour comprendre les
1eres instructions.
Ensuite il faudra faire une boucle sur le fichier source si tu veux
récupérer toutes les feuilles ( du style for I=1 to sheets.count ou si
tu préfères utiliser la méthode groupe de travail
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Copy
Before:=Workbooks("Classeur2").Sheets(1)
Tu fais ton choix.
Pour ce qui est de l'insertion sur chaque feuille du classeur
destination de la procédure Private Sub worksheet_BeforeDoubleClick , à
mon humble avis, il faut mieux inclure cette possibilité dans le module
Thisworkbook et écrire dans celui-ci la procédure Private Sub
Workbook_SheetBeforeDoubleClick qui aura le mérite d'être valide quelle
soit la feuille de ton classeur et t'évite ainsi de répéter auntant de
fois qu'il y a de feuilles la procédure Private Sub
worksheet_BeforeDoubleClick
POur inclure par porgrammation une macro dans un projet VBE, va sur le
site de Frédéric Sigonneau ou Excellabo . Il y a des exemples tous faits
et bien faits.
Voilà. Si tu n'arrives pas à te dépatouiller de tout ça, revien sur le
forum.
A+


End Sub

Bonjour

Mon projet copier toutes les feuilles du classeur "source" vers le classeur
"destination" avec VBA
Je voudrais inclure,avec VBA, sur chaque feuille du classeur "destination"
seulement la macro suivante :

Private Sub worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Worksheets("Interface").Select
Module1: Afficher_Visu
End Sub

Je vous remercie d'avance
Silvan