Effacement d une macro...

[Thibaut]

Bonjour à tous... j ai une dernière petite question...
J ouvre un fichier et une macro s exécute automatiquement... les procédures se déroulent sans problèmes et le fichier se sauvegarde sous un nom bien défini.
Mais mon problème est que lors d une prochaine ouverture du fichier sauvegardé, la macro s exécute à nouveau alors que justement elle ne devrait plus.
Y a t il moyen d effacer le contenu de la macro sous VB, je veux dire par là, effacer les procèdures à accomplir???

Un grand merci à quiconque pourra me répondre.

Thibaut

 

[pelerin65]

bonjour le forum

MODULE = "feuil1"
MACRO = "notesvierge"
With ThisWorkbook.VBProject.VBComponents(MODULE).CodeModule
DEP = .ProcStartLine(MACRO, 0)
LIGN = .ProcCountLines(MACRO, 0)
.DeleteLines DEP, LIGN
End With

J'utilise ce code lors d'un enregistrement d'un fichier qui se nomme avec la valeur d'une cellule.
ce code fonctionne parfaitement,
mais le problème c'est qu'il efface aussi la macro dans le fichier d'origine.
il n'y aurait pas la possibilité de ne pas supprimer la macro dans le fichier d'origine

cordialement

 

[Staple1600]

Bonjour le fil

@pelerin65
[Pour infos]
L'usage c'est de créer sa propre discussion poser sa question
Pas de ressortir de la poussière la discussion d'un tiers (qui ici date de 2003!)

Sinon on s'embrouille les pinceaux et on ne sait plus à qui on réponds.

PS: un indice néanmoins
ThisWorkbook. versus ActiveWorkbook , non ?

 

[pelerin65]

Bonjour Staple 1600

Désolé, je cherche une solution pour effacer une macro lors d'un enregistrement
Je suis tombé sur ce fil, et vu pas vu qu'il datait de 2003

ThisWorkbook. versus ActiveWorkbook , non ?​

ca change rien lors de la sauvegarde, ça l'efface aussi sur ce fichier d'origine la macro

 

[Staple1600]

Re

@pelerin65
C'était un indice en forme de question
Il fallait comprendre ceci

MODULE = "feuil1"
MACRO = "notesvierge"
With ActiveWorkbook.VBProject.VBComponents(MODULE).CodeModule
DEP = .ProcStartLine(MACRO, 0)
LIGN = .ProcCountLines(MACRO, 0)
.DeleteLines DEP, LIGN
End With

Est-ce que cette modif change quelque chose ?

 

[kiki29]

Salut, à titre documentaire pour de la lecture si curieux : ici