XL 2013 Suppression userform & module

[verdo28]

Bonjour,
je suis a mon compte et ayant des exigence un peu spécial, j'ai créé un classeur pour mes devis.
Dance ce classeur, il y a 5 userform et 1 module.
Vu que je stock mes fichiers sur le net, je cherche a supprimer tous mes userform ainsi que mon module quand je cliquerai sur un bouton.
donc j'ai fouillé et j'ai trouvé des code mes cela ne fonctionne pas?
J'ai bien mis Microsoft Visual Basic for Applications Extensibility 5.3
voici quelques code que j'ai essayer :

Sub Click() ' MonUserForm
Dim VBComps As VBIDE.VBComponents
Dim VBComp As VBIDE.VBComponent
Set VBComps = Workbooks("A_Devis - Copie.xls").VBProject.VBComponents
Set VBComp = VBComp("")
VBComps.Remove VBComp
End Sub

et 1 autre

Sub DeleteForm()
With ThisWorkbook.VBProject.VBComponents.Remove
.Item (“MonUserForm”)
End With
End Sub

Pour le module

Sub Supprimermodule()
On Error Resume Next
With ActiveWorkbook.VBProject
.VBComponents.Remove .VBComponents("Module2")
End With
End Sub

rien ne fonctionne, quelqu'un saurait pourquoi et surtout m'aider.
Merci d'avance de votre aide

 

[chris]

Bonjour

Il suffit d'enregistrer en xlsx et fermer : tout devrait disparaitre

 

[verdo28]

Bonjour

Il suffit d'enregistrer en xlsx et fermer : tout devrait disparaitre

Bonjour, non cela ne fonctionne pas

 

[verdo28]

je viens d'essayer cela, pareil cela ne fonctionne pas

Sub DelTousLesUserForm()
' SUPPRESSION DE TOUS LES USERFORM
Dim USF
For Each USF In ActiveWorkbook.VBProject.VBComponents
If USF.Type = 3 Then
With ActiveWorkbook.VBProject.VBComponents
.Remove .Item(USF.Name)
End With
End If
Next USF
End Sub

Cela bloque sur cette ligne la
For Each USF In ActiveWorkbook.VBProject.VBComponents

 

[verdo28]

Non j'ai dis une bêtise, enregistrer en xlsx, c'est nickel cela fonctionne, plus aucuns userform et plus de module non plus, génial. merci encore