G
Gi²
Guest
Un grand bonjour au forum,
Je cherche un moyen de modifier du code VBA à partir de code VBA.
Hum, en me relisant, cela ne me semble pas super clair!...
Un exemple concrêt: à la première ouverture de l'appli (mono utilisateur), il est demandé à l'utilisateur de s'identifier, le but étant de personnaliser les différents userforms avec le nom de l'utilisateur lors de toutes les utilisations ultérieures (evidemment, il ne lui sera plus demandé de le faire ensuite).
Les utilisations potentielles sont nombreuses: mots de passe, chemins de sauvegarde, ...etc
Je n'ai trouvé jusque là que du code pour SUPPRIMER du code.
Par exemple chez XLbySteph à http://xlbysteph.free.fr, pour supprimer la procédure "deleteMe" du module "Module1":
Sub supprimer_procédure
dim LineStart As long
dim Linecount As long
with thisworkbook.VBProject.VBComponents("Module1").CodeModule
LineStart = .ProcStartLine("deleteMe", vbext_pk_Proc)
Linecount = .ProccountLines("deleteMe", vbext_pk_Proc)
.deleteLines LineStart, Linecount
end with
end sub
Quelqu'un connaît-il les instructions majeures pour en ajouter, ou un endroit sympa où c'est un poil expliqué? ;-)
Merci d'avance!
P.S.: Salut Lolo! Tu vois, même en vacances, le VBA me turlupine!!!
Je cherche un moyen de modifier du code VBA à partir de code VBA.
Hum, en me relisant, cela ne me semble pas super clair!...
Un exemple concrêt: à la première ouverture de l'appli (mono utilisateur), il est demandé à l'utilisateur de s'identifier, le but étant de personnaliser les différents userforms avec le nom de l'utilisateur lors de toutes les utilisations ultérieures (evidemment, il ne lui sera plus demandé de le faire ensuite).
Les utilisations potentielles sont nombreuses: mots de passe, chemins de sauvegarde, ...etc
Je n'ai trouvé jusque là que du code pour SUPPRIMER du code.
Par exemple chez XLbySteph à http://xlbysteph.free.fr, pour supprimer la procédure "deleteMe" du module "Module1":
Sub supprimer_procédure
dim LineStart As long
dim Linecount As long
with thisworkbook.VBProject.VBComponents("Module1").CodeModule
LineStart = .ProcStartLine("deleteMe", vbext_pk_Proc)
Linecount = .ProccountLines("deleteMe", vbext_pk_Proc)
.deleteLines LineStart, Linecount
end with
end sub
Quelqu'un connaît-il les instructions majeures pour en ajouter, ou un endroit sympa où c'est un poil expliqué? ;-)
Merci d'avance!
P.S.: Salut Lolo! Tu vois, même en vacances, le VBA me turlupine!!!