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