XL 2016 supprimer 1 ou tous les modules vba

[Usine à gaz]

Bonjour à toutes et à tous,

Élucubrations du dimanche matin et encore besoin de vos lumières

Je reprends tous mes classeurs qui contiennent bcp de codes tous venus du forum
et adaptés selon mes petites connaissances.
Un grand à vous toutes et tous car sans vous, je n'aurais pas pu travailler dans de bonne conditions.

J'ai besoin pour tout reprendre et nettoyer plus vite d'un code supprimant d'un coup tous les modules du classeur ouvert.
Ne sachant pas faire cela, j'ai beaucoup cherché cette nuit sur le net.
Tout ce que j'ai pu essayer et/ou tenter d'adapter n'a pas pas réussi.

Les codes qui me semblent les plus proches sont ceux du site : https://silkyroad.developpez.com/VBA/VisualBasicEditor/#LIV-D
Mais les 2 codes que j'ai récupéré 'coincent" chez moi et je n'arrive pas à modifier pour que ça fonctionne :

Sub supprimerUnModule()
    With ThisWorkbook.VBProject.VBComponents
        .Remove .Item("Module2")
    End With
End Sub

Sub SupprimeTout()
    'supprime la totalité des procédures
    Dim VbComp As VBComponent

    For Each VbComp In ThisWorkbook.VBProject.VBComponents
        Select Case VbComp.Type
            Case 1 To 3
                ThisWorkbook.VBProject.VBComponents.Remove VbComp
            Case Else
                With VbComp.CodeModule
                .DeleteLines 1, .CountOfLines
                End With
        End Select
    Next VbComp
End Sub

Si vous aviez la solution, ça me ferait gagner beaucoup de temps.
Je joins un fichier test.
Avec mes remerciements,
Je vous souhaite à toutes et à tous un beau dimanche,
Amicalement,
lionel,

 

[Staple1600]

Re

Ça finit par devenir presque pénible à la longue...
Relis le code!
Notamment cette ligne
If Right(fFile.Name, 5) = ".xlsm" Or Right(fFile.Name, 5) = ".xlsb" Then

 

[Usine à gaz]

j'ai modifié comme suit :
If Right(fFile.Name, 5) = ".xlsm" Or Right(fFile.Name, 5) = ".xlsb" Or Right(fFile.Name, 5) = ".xls" Then
mais ça ne marche pas.

 

[Staple1600]

Re

Réfléchis un peu, que diable!
Il y a combien de caractères dans le string .xls ?


NB: Si tu possèdes une version supérieur à Excel 2003, aucun intérêt à enregistrer tes classeurs en *.xls

 

[Usine à gaz]

ah bon c'est pas un string ? LOL

LOL, je viens de comprendre merci pour la formation )
évidement il faut mettre 4

cette fois-ci c'est bon ça marche LOL
Merci pour ta patience

 

[Usine à gaz]

LOL il est plus fort que fort ton code :
Dans le dossier j'avais 2 classeurs avec le même nom (l'un en xlsm et l'autre en xls)
Il supprime les 2 et laisse un seul classeur en xlsx.

 

[Staple1600]

Re

arthour973
La prochaine fois, merci d'être plus attentif.
(Tu n'es plus un débutant!)
C'est pas franchement motivant d'essayer d'aider des demandeurs qui sont en mode "dilettante"
Et pour aujourd'hui, tu es le roi de cette catégorie!

PS: Evidemment, message écrit en mode ironie amicale
(oui j'en fait même les jours fériés de l'ironie)

 

[Usine à gaz]

Effectivement, tu as raison pour l'attention
Mais pas pour le mode "dilettante" car je travaille et c'est vrai que ça "distrait" LOL
Bonne fin de 1er mai.
lionel,

 

[Staple1600]

Re

Je parlais de consulter, lire les posts sur XLD en mode dilettante.
Quand tu es sur XLD, tu es sur XLD
Quand tu travailles, tu travailles

 

[Usine à gaz]