É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.
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,
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,
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
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.
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!)
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...
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.