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]

Bonjour

arthour973
Pourquoi chercher partout sur le net, quand il y a ce qu'il faut sur XLD (dans les archives et ce depuis belle lurette) ?

 

[Usine à gaz]

Bjr, Staple1600 et bon dimanche,

LOL j'ai du mal chercher ... pas réveillé de ma nuit;

 

[Staple1600]

Re

Pour supprimer rapidement tout le vba, d'un classeur, c'est très simple
Il suffit de l'enregister en *.xlsx
Donc pour traiter N fichiers d'un répertoire, il suffit de créer une macro qui enregistre en *.xlsx
Et pour faire cela, il y a déjà tout ce qu'il faut sur XLD
1) Boucler et ouvrir les classeurs d'un répertoire
2) Ouvrir un classeur et l'enregistrer sous *.xlsx

Il suffit de définir les bons mots clés puis d'ici cliquer

EDITION: C'est déjà ce que je disais en 2014...

suppression de tout les modules, userform, et workbook etc..

Bonjour, J'ai réaliser un fichier, avec différent modules et macro . Le probleme c'est que dois supprimer toutes ces macro une par une des que j'envoie mon fichier .... Auriez vous m'aimabilité de m'aider merci ....

www.excel-downloads.com

 

[Usine à gaz]

Re-Bonjour,

Effectivement, j'ai repris le code de Gérard, qui fonctionne bien comme d'habitude
https://www.excel-downloads.com/thr...t-vba-protege-par-mdp.20019618/#post-20143469

Private Sub Workbook_Open()
If Date >= DateSerial(2017, 9, 1) Then  'Choisir la date de fin applicatif
  Dim Sh As Object, s As Shape, fn$
  For Each Sh In Me.Sheets
    If Sh.ProtectContents Then Sh.Protect "0000", UserInterfaceOnly:=True
    For Each s In Sh.Shapes
      If s.OnAction <> "" Then s.Delete
  Next s, Sh
  Application.DisplayAlerts = False
  fn = Me.FullName
  Me.SaveAs Left(fn, InStrRev(fn, ".") - 1), 51
  Kill fn
  Workbooks.Open Me.FullName
End If
Me.Sheets("Recp").Activate
End Sub

Encore merci Gérard
lionel,

 

[Staple1600]

Re

Donc tu aurais pu ne pas poser ta question du jour puisque la réponse était déjà sur XLD...
Pour info (1)
51= extension *.xlsx
Pour info (2)
J'espère pour toi qu'il n'y avait pas de Shapes sur ton classeur...

 

[Usine à gaz]

Re-Staple1600,

Tu as raison mais ce n'est peut-être pas complètement inutile car le fil date de 09/2017
et peut-être que d'autres que moi ont besoin de la solution sans avoir pu le voir

lionel,

 

[Usine à gaz]

Re-Bonjour,

Le code de Job75 fonctionne parfaitement.
Mais J'ai besoin de l'exécuter dans un simple module.

J'essaie de le modifier mais je n'y arrive pas (pas étonnant LOL)
J'ai modifié comme suit :

Sub supprime_vba()
If Date >= DateSerial(2017, 9, 1) Then  'Choisir la date de fin applicatif
  Dim Sh As Object, s As Shape, fn$
  For Each Sh In Sheets
    If Sh.ProtectContents Then Sh.Protect "0000", UserInterfaceOnly:=True
    For Each s In Sh.Shapes
      If s.OnAction <> "" Then s.Delete
  Next s, Sh
  Application.DisplayAlerts = False
  fn = FullName
  .SaveAs Left(fn, InStrRev(fn, ".") - 1), 51
  Kill fn
  Workbooks.Open FullName
End If
Sheets("Recp").Activate
End Sub

ça coince sur cette ligne : " .SaveAs Left(fn, InStrRev(fn, ".") - 1), 51"

je continue de chercher
Mais si solution, ça me ferait gagner du temps car je ne suis pas prêt de trouver
Avec mes remerciements,
lionel,

 

[eriiic]

Bonjour,

Au bout de 7 ans et 2500 posts tu n'as toujours pas compris qu'il fallait mettre le message d'erreur ???

fn = FullName

Bien entendu tu as contrôlé la valeur de fn après cette instruction. Tu as quoi ?
Tu enlèves l'extension sans en remettre, il n'aime peut-être pas.
eric

 

[Usine à gaz]

Bonjour Eriiic,
Exact, c'est un oubli

"Erreur de compilation"
"Référence incorrecte ou non qualifiée

 

[eriiic]

et fn égal quoi ?

 

[Staple1600]

Re, Bonjour eriiiic

arthour
Pas besoin de chercher longtemps pourtant...
Sub Oups()
MsgBox FullName
End Sub
alors que
Sub PasOups()
MsgBox ActiveWorkbook.FullName
End Sub

 

[Usine à gaz]

Re-Bonjour à toutes et à tous,

Je reviens sur le sujet car pour ma demande, passer par un enregistrement en xlsx "NE CONVIENT PAS" à mon besoin.
Classeur ouvert : J'ai besoin que les modules vba soient supprimés ainsi que les codes du ThisWorkbook

Comme je l'ai écrit dans mon 1er post :
Les codes qui me semblent les plus proches sont ceux du site : https://silkyroad.developpez.com/VBA/VisualBasicEditor/#LIV-D
Mais j'ai 2 erreurs que je ne parviens pas à corriger.
Je joins le fichier avec photos des 2 erreurs.

Pourriez-vous m'indiquer comment modifier les codes ?
Avec mes remerciements,
lionel

 

[Staple1600]

Re

???
Où est le souci d'enregistrer en *.xlsx puisque le premier message parle bien de supprimer le code VBA présent dans un classeur (voir dans tous les classeurs d'un répertoire donné)
Une fois cette suppression réalisée, il suffit une fois le nouveau *.xlsx ouvert, de le modifier d'y ajouter le nouveau code VBA puis de l'enregistrer cette fois-ci en *.xlsm

PS1: je ne connais pas le verbe sipprimer ni le verbe suprimer...

PS2: As-tu au moins essayé les deux macros de mon précédent message?

 

[Usine à gaz]

Dans ma procédure, l'enregistrement en xlsx ne convient pas

OUI, mais cela ne correspond pas à mon besoin