Effacer une macro par une macro

[L1u_Kang]

Hello,

J'ai un fichier qui contient certaine macro qui ne sont plus utiles lorsque le dossier ce clôture, vu que j'archive tout mes fichiers, j'aimerais savoir si il est possible de faire une macro qui efface toute les macros qui ne sont plus utilisées, ou carrement effacer un module ou des userforms.
Tout ceci pour optimiser la place des fichiers une fois archivé.

Merci d'avance

 

[michel_m]

Re : Effacer une macro par une macro

bonjour,

tu trouveras des réponses à ton problème dans le WIKI de ce forum au wiki page6 de MichelXLD
https://www.excel-downloads.com/thr...iltres-variables-fichiers-fermes-acces.92374/

bonne recherche

un peu + tard...

milles excuses, c'est le wiki page 8
https://www.excel-downloads.com/threads/ref-wiki-page-8-de-michelxld.92376/

 

[L1u_Kang]

Re : Effacer une macro par une macro

Lol je me disais bien que je trouvais pas le rapport mais y a pas de problème.

Merci de ton aide

 

[L1u_Kang]

Re : Effacer une macro par une macro

J'ai trouvé la partie qui concernait mon problème.

Merci encore pour ton aide.

 

[xavier44]

Re : Effacer une macro par une macro

Bonsoir,
J'ai le même pb et grace à ce fils J'ai trouvé:

Sub supprimeToutVBA()
'copie le classeur en supprimant la totalité des procedures
Dim vbComp As VBComponent
ThisWorkbook.SaveAs "C:\test.xls"
For Each vbComp In ActiveWorkbook.VBProject.VBComponents
Select Case vbComp.Type
Case 1 To 3
ActiveWorkbook.VBProject.VBComponents.Remove vbComp
Case Else
With vbComp.codeModule
.deleteLines 1, .countOfLines
End With
End Select
Next vbComp
ActiveWorkbook.Save
End Sub

Le pb est que VBComponent n'est pas un type défini selon l'éditeur!
Ce code est qq peu opaque pour moi.
Ou placer cette routine ?
L1u_Kang comment as-tu solutionné le pb
Merci pour votre aide

 

[MichelXld]

Re : Effacer une macro par une macro

bonjour L1u_Kang, Xavier et cher ami Michel

Le pb est que VBComponent n'est pas un type défini selon l'éditeur!

Tu dois activer la référence "Microsoft Visual Basic for Applications Extensibility 5.3 "
Dans L'éditeur de macros (Alt+F11 ):
Menu Outils
Références
Coche la ligne "Microsoft Visual Basic for Applications Extensibility 5.3"
Clique sur "OK" pour valider

Ou placer cette routine ?

Dans un module du classeur à sauvegarder:
Dans L'éditeur de macros / Insertion / Module
La macro va sauvegarder le classeur ("C:\test.xls") et supprimer toutes les procédures


Bonne journée
MichelXld

 

[xavier44]

Re : Effacer une macro par une macro

Bonsoir le forum et merci à Michel pour la réponse.

La référence indiquée activée ne donne pas de résultat.
en ligne 5 au debogage j'ai
Vbcomp =nothing
et la méthode VBProjet de l'objet workbook à échouée..

Une idée sur ce qu'il faut faire ?
Merci

 

[MichelXld]

Re : Effacer une macro par une macro

bonsoir

La référence indiquée activée ne donne pas de résultat.
en ligne 5 au debogage j'ai
Vbcomp =nothing

Tu as testé quelle macro?
Il n'y a pas de Vbcomp =Nothing dans ton précédent message....

Lien supprimé


Tu as bien indiqué Set devant Vbcomp =Nothing?

set Vbcomp =Nothing

Bonne soirée
MichelXld

 

[xavier44]

Re : Effacer une macro par une macro

Je me suis mal exprimé.
La variable VBComp à la valeur "Nothing" dans le debogueur quand je passe la souris dessus!
Il me semble que cette var de type VBComponenta un pb. Ce qui fait q'en ligne 5 la boucle "For Each vbComp .." bloque. et moi aussi.
Encore merci de pour ton aide.

 

[MichelXld]

Re : Effacer une macro par une macro

bonjour

Je ne sais pas s'il 'y a un probleme avec la variable VBComp : cela fonctionne parfaitement chez moi

La variable VBComp à la valeur "Nothing" dans le debogueur

tu es sur qu'il y a des macros dans le classeur actif?


Bonne journée
MichelXld