Discussion :

[November-Oscar]

Bonjour
Dans un modèle du menu STARTUP, j'ai une macro me permettant de supprimer le code d'un fichier existant du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveDocument.VBProject.VBComponents.Remove .Item("xxxxx")
ActiveDocument.VBProject.VBComponents.Remove .Item("yyyyy")
...

Ces suppressions semblent être effectives dans le panneau latéral de Microsoft Visual Basic puisqu'il semble ne plus rien y avoir... Mais il arrive que lorsque je fais un tour de ce qui reste effectivement, il y ait toujours présence aléatoire de certains composants.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For I = 1 To ActiveDocument.VBProject.VBComponents.count
       MsgBox I & "    " & ActiveDocument.VBProject.VBComponents.Item(I).Name
Next I

La commande ci-dessus peut me renvoyer la présence de "xxxxx" ou de "yyyyy" ou des deux.
Pourriez-vous orienter mes recherches car lorsque je veux coller mon code de remplacement, ça plante ?
Merci

[Invité]

Bonjour,

Je n'ai pas tout compris entre ce que vous voulez remplacer ou supprimer, mais pour supprimer il faut commencer par la fin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
For I = ActiveDocument.VBProject.VBComponents.count To 1 Step -1
       '... Suite du programme
Next I

[November-Oscar]

Merci pour ton intérêt sur cette problématique.
Je viens juste de faire la boucle dont tu parles... Mais aucun changement : je m'en doutais un peu.
Après cette boucle, soit certains modules ne sont pas supprimés soit ils ne sont plus apparents dans la fenêtre Projet de MS Visual Basic (donc supprimés en théorie) bien que toujours présents car je constate qu'en faisant la seconde boucle de mon précédent message qui permet de lister les modules..et bien certains ressortent... là où je ne devrais avoir que "ThisDocument" qui devrait ressortir.
Bizarre...
Y a-t-il des prérequis dans la rédaction d'un module pour que l'instruction "remove" fonctione ?
Cdlt

[Invité]

Le mieux serait de mettre en ligne un fichier avec le code permettant de supprimer vos lignes de code (ziper le fichier) et en expliquant ce qu'il faut supprimer.