OVH Cloud OVH Cloud

Suppression modules

1 réponse
Avatar
tip.tiptop
Ma question revue est corrigée:
>Est-il possible en VB dans Excel d'ouvrir un fichier de vérifier si dans ce
> fichier un module VB « Toto » existe et de le supprimer.

J'ai trouvé ces quelques lignes sur le Web, mais hélas pour moi ça ne
marche pas.
J'ai bien crée un fichier Test.xls que j'ai rangé sous "C:\Temp
le fichier s'ouvre mais le module Toto n'est pas supprimé.
Avez vous une idée

Workbooks.Open "C:\Temp\Test.xls"
On Error Resume Next
With ActiveWorkbook.VBProject.VBComponents
.Remove .Item("Toto")
End With
On Error GoTo 0

1 réponse

Avatar
lSteph
Bonjour,
n'oublie pas selon version dans les paramêtres de sécurité des macros de
faire
confiance au projet, sinon pour aller plus loin moyennant que dans outils
références tu coches Microsoft VBA extensibility, va voir là:

http://www.cpearson.com/excel/vbe.htm


Cordialement.

lSteph
"tip.tiptop" a écrit dans le message de news:
4419f7cc$0$18276$
Ma question revue est corrigée:
Est-il possible en VB dans Excel d'ouvrir un fichier de vérifier si dans
ce
fichier un module VB « Toto » existe et de le supprimer.


J'ai trouvé ces quelques lignes sur le Web, mais hélas pour moi ça ne
marche pas.
J'ai bien crée un fichier Test.xls que j'ai rangé sous "C:Temp
le fichier s'ouvre mais le module Toto n'est pas supprimé.
Avez vous une idée

Workbooks.Open "C:TempTest.xls"
On Error Resume Next
With ActiveWorkbook.VBProject.VBComponents
.Remove .Item("Toto")
End With
On Error GoTo 0