Utiliser un fichier externe contenant le code VBA

[Julien Bellec]

Bonjour à tous,

Voilà,

je suis en train créer un programme dans excel.
Mon problème est que lorsque j'enregistre le fichier, il met trois plombes à enregistrer.
Je pense que c'est parce que mon code est trop important. J'aimerais donc le mettre dans un fichier externe que je pourrais appeller lorsque j'en ai besoin. Mais je ne sais pas comment le faire :-(
Donc, si quelqu'un connaît une astuce pour le faire, ce serait cool de me prévenir.

Merci d'avance.

 

[RPG3000]

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.

@++