XL 2016 supprimer 1 ou tous les modules vba

Usine à gaz · 28 Avril 2019

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 :

VB:

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 · 28 Avril 2019

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 · 28 Avril 2019

Bjr, Staple1600 et bon dimanche,

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

Staple1600 · 28 Avril 2019

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 · 28 Avril 2019

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

VB:

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 · 28 Avril 2019

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 · 28 Avril 2019

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 · 28 Avril 2019

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 :

VB:

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 · 28 Avril 2019

Bonjour,

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

VB:

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 · 28 Avril 2019

Bonjour Eriiic,
Exact, c'est un oubli

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

eriiic · 28 Avril 2019

et fn égal quoi ?

Staple1600 · 28 Avril 2019

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 · 28 Avril 2019

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 · 28 Avril 2019

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 · 28 Avril 2019

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

OUI, mais cela ne correspond pas à mon besoin

XL 2016 supprimer 1 ou tous les modules vba

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

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

Usine à gaz

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

eriiic

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

eriiic

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires