Copier un code en passant par VBA

[stef]

Bonjour,

oooooohlala la galere... pas de recherche

Bon ! j'en appel a votre memoire SVP, il y a eu un fil hyper complet sur la facon d'ecrire , copier, effacer du code avec du code. Je veux dire qu'un code est capable de generer lui même un autre code dans un autre classeur par exemple.... vous suivez ?

he bien pas moyen d'le retrouver.... si j'avais su à l'epoque j'aurai tout copier coller.....

pouvez vous m'orienter ou me fournir un indice SVP ?


Merci

Stef

 

[sylsyl]

Salut steph,

figures-toi que j'etais dans la meme galere que toi pas plus tard qu'hier (on s'est peut-etre croise ?)

Je n'ai pas trouver mieux que "Action sur le code VBA" chez http://xlbysteph.free.fr/.

Si qq'un a de la memoire, qu'il se fasse connaitre...

A++, Sylsyl.

 

[stef]

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

 

[sylsyl]

Good morning stef,

j'ai utilise la meme methode que toi pour resoudre mon pb, juste une petite precision:
lorsque tu fais le meme pour exporter des USF, excel te cree un USF1.frm mais aussi un USF1.frx qu'il faut aussi Killer.

A++, sylsyl.