Ah ben c'est déja ça...MERCI
pour l'instant je souhaitais juste copier un module d'un classeur vers un autre. La reponse se trouvais là à qque adaptation pres.
la voilà si ca interesse qq'un :
ca exporte 6 modules du classeur courant vers le classeur perso.xls
gaffe à l'erreur si le module exporté existe déjà :-(
Sub ExportVersPerso()
Dim Liste(5, 0) As String
Liste(0, 0) = "Module1"
Liste(1, 0) = "Module2"
Liste(2, 0) = "Module3"
Liste(3, 0) = "Module4"
Liste(4, 0) = "Module5"
Liste(5, 0) = "Module6"
For i = 0 To 5
ThisWorkbook.VBProject.VBComponents(Liste(i, 0)).Export "Test.bas"
Set wkb = Workbooks("perso.xls")
wkb.VBProject.VBComponents.Import("Test.bas").Name = Liste(i, 0)
Kill "Test.bas"
Next i
End Sub
@+
stef