Utiliser un fichier externe contenant le code VBA

Salut!
j'ai peut-être une solution mais je suis pas sur qu'elle marche.
On va supposer que le fichier qui contient ton code est dans c:\moncode.txt.

Dim Fichier,Textligne as String

MonFichier = "c:\moncode.txt"

Open Fichier For Input As #1

Do While Not EOF(1)

Line Input #1, Textline
Dim Trouve, TrouveExt As Integer
Trouve = InStr(Textline, "=")
TrouveExt = InStr(Textline, ".")
Dim Fcache, Fdef, Fext As String

If Textline = "[Cache]" Then GoTo AllezLoop
If Textline = "" Then GoTo Fermer:
Fcache = Left$(Textline, Trouve - 1)
Fdef = Mid$(Textline, Trouve + 1)

Fext = Mid$(Textline, TrouveExt + 1)

debug.print=(Fex)
debug.print=(Fcache)
debug.print=(Fdef)

NbFichier = NbFichier + 1

AllezLoop:
Loop
Fermer:
Close #1


Ca va printer ds le débug les trucs de ton file. Oubli jamais cette adresse: http://vbfrance.fr (ou .com) - y'a plein 2 sources dessus.

@++