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,

 

[Usine à gaz]

Bjr Staple1600, le forum,

J'ai tenté de tester dans je n'arrive pas à trouver comment sélectionner le dossier à traiter.
J'ai beaucoup de travail aujourd'hui et je reprendrai mes recherches ce soir
Bonne journée à toutes et à tous,
lionel,

 

[Staple1600]

Bonjour,

arthour973
La macro s'en charge de la sélection du dossier, il suffit de le sélectionner (le dossier) plus de cliquer sur OK
Ensuite la macro traite les *.xlsm et *.xlsb présents dans ce dossier.

PS: Pour tester :
crées un dossier de test, avec seulement 3, 4 ou 5 classeurs
Comme dit dans mon précédent message, c'est ce que j'ai fait lors de mes tests et cela prends moins de 5 minutes

 

[Usine à gaz]

Bjr Staple1600,

Je dois être "bouché" LOL.
quand je clic sur le dossier pour le sélectionner j'ai un message dans la fenêtre : "aucun élément ne correspond à votre recherche.

 

[Victor21]

Bonjour, les bavards, et joyeuse fête du travail

Bah! encore une quarantaine d'échanges, et le problème sera résolu...(ou pas)
A moins d'enregistrer sous XLSX, mais pourquoi faire simple ?

 

[Staple1600]

Re

C'est pourtant simple et limpide non?

EDITION: Bonjour Victor21
J'ai suggéré cela dès le message#4

 

[Usine à gaz]

Bjr Patrick
Evidemment pkoi faire simple.
Bavardages "exigés" LOL.

Bon 1er mai à tous et bouquet pour les dames :

Amicalement,
Lionel,

 

[Staple1600]

Re

Arthour973
Relis mon précédent message, j'ai ajouté une copie d'écran.

 

[Staple1600]

Bonjour, les bavards, et joyeuse fête du travail

Bah! encore une quarantaine d'échanges, et le problème sera résolu...(ou pas)
A moins d'enregistrer sous XLSX, mais pourquoi faire simple ?

On est bien d'accord

Re
Pour supprimer rapidement tout le vba, d'un classeur, c'est très simple
Il suffit de l'enregistrer en *.xlsx

 

[Usine à gaz]

Re-,
je n'y comprends rien
Voir photo jointe :

 

[Staple1600]

Re

Fais simple, reproduis l'arborescence de mon test en créant exactement le même dossier dans ton répertoire Mes Documents.
Je ne peux pas faire plus et en plus et il est l'heure pour moi de déjeuner

NB: Il faut simplement sélectionner le dossier
(et ne pas chercher à sélectionner les classeurs!)

 

[Usine à gaz]

Bon appétit
Mais je fais exactement que sélectionner le dossier en cliquant dessus
je regarderai encore plus tard
lionel

 

[Staple1600]

Re

Règle tes options d'affichage de Windows pour afficher les extensions de fichier
(voir ici)
J'espère que tes fichiers ont bien comme extension *.xlsm ou *.xlsb...

 

[Usine à gaz]

LOL, j'avais pas fait attention :
Ce sont des xls mais je viens d'en créer 2 en .xlsm et ça ne marche pas non plus

 

[Staple1600]

Re

Cela fonctionne sur mon PC.
Donc relis à tête reposée mes dernières "instructions"
Si tu suis correctement le déroulé des opérations explicitées, cela doit fonctionner sur ton PC.

 

[Usine à gaz]

OUI, je sais maintenant pourquoi ça ne marche pas.

Je viens de tester à nouveau et :
classeurs en xlsm : ça marche,
classeurs en xls : ça ne fonctionne pas

Y'a un moyen de faire fonctionner quelque soit l'extension ? (xlsm ou xls)