ecrire dans un module

[Robby]

Bonjour,
J'essaye de faire quelque chose mais je ne sais pas comment.
Pour un classeur entierement utilise que par Macro, j ai besoin de lui mettre une configuration.
Pour le moment, j ai un module setting avec un programme Sub config(motdepasse1,motdepasse2,chemin1,chemin2)
Dans ce programme nous n'y trouvons que: motdepasse1='123' etc.
Seuleument, comme les gens utilisent ce fichier sur differents postes et n'ont jamais le meme chemin pour ranger les dossier et n'ont pas le meme motdepasse,
J aimerais que de maniere plus simple (que l edition du module) ils puissent modifier les config par l'intermediaire d'une textbox qui ecrirait le resultat dans le programme Sub config(...)
Premiere grosse question, es ce possible ?
Seconde question, comment fait-on ?

D'avance Merci pour vos reponses.
Salutations
Robby
🙂

 

[Ashaar]

Bonjour,

ci-dessous un exemple de code qui modifie la code de la macro : MacroAModifier

En lançant TestModif, cela supprime la ligne 3 ( a =a +1 ) , insère une ligne et place à nouveau la formule.

Cela devrait t'aider un peu.

'A placer dans un module (MacroAModifier dans Module1)

'Pour tester, lancer la procédure testModif

Sub MacroAModifier()
Dim a%
For i = 1 To 100
a = a + 1
Next
MsgBox a
End Sub


Sub testModif()
Dim Wbk As Workbook, NomProc$, NomModule$, LiModif&, TxtModif$

Set Wbk = ThisWorkbook
NomProc = 'MacroAModifier'
NomModule = 'Module1'
LiModif = 3
TxtModif = ' a=a+1'
'modifie la ligne 3 de la macro 'MacroAModifier'
ModifMacro Wbk, NomProc, NomModule, LiModif, TxtModif

End Sub

Sub ModifMacro(Classeur As Workbook, NomMacro$, Module$, Ligne&, Modif$)
Dim LiDeb&

With Classeur.VBProject.VBComponents(Module).CodeModule
LiDeb = .ProcBodyLine(NomMacro, 0)
.DeleteLines LiDeb + Ligne, 1
.InsertLines LiDeb + Ligne, Modif
End With

End Sub

 

[robby]

GENIAL.
:woohoo:
c est exactement ce qu'il me fallait.
MERCI.

 

[Robby]

Bonjour.
Encore moi...
😉
J'ai un petit problème avec cette application.

Quand je protège mon module, alors il ne parvient plus à écrire dans le programme.

Le problème est qu'il est indispensable que je protège le Module car le fichier excel est utilisé par beaucoup de personnes, et certains s'amusent a effacer le contenu du module. (ha ha ha marrant)

Savez vous comment écrire dans un module protégé.

Ou une autre sollution que j'envisageais, été de lever la protection du module, lancer l'écriture dans le module. remettre la protection ou sauvegarder puis fermer le classeur. Alors à la ré-ouverture il sera configuré et protégé.

pour résumé mes questions sont.
- Comment utiliser le programme avec un module protégé ?
ou
- Comment lever temporairement la protection d'un module ?

D'avance Merci.
Salutations Robby.