Effacement d une macro...

Thibaut · 10 Mars 2003

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 · 20 Mai 2023

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 · 20 Mai 2023

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 · 20 Mai 2023

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 · 20 Mai 2023

Re

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

Enrichi (BBcode):

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 · 20 Mai 2023

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

Effacement d une macro...

Thibaut

Guest

pelerin65

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

pelerin65

XLDnaute Occasionnel

ThisWorkbook. versus ActiveWorkbook , non ?

Staple1600

XLDnaute Barbatruc

kiki29

XLDnaute Barbatruc

Discussions similaires

Effacement d une macro...

Thibaut

Guest

pelerin65

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

pelerin65

XLDnaute Occasionnel

ThisWorkbook. versus ActiveWorkbook , non ?​

Staple1600

XLDnaute Barbatruc

kiki29

XLDnaute Barbatruc

Discussions similaires

ThisWorkbook. versus ActiveWorkbook , non ?