Suppression des userforms

Version imprimable

20/07/2007, 10h28
spoyet

Suppression des userforms

Bonjour;

J’ai réalisé une macro avec des userforms. Elle crée un fichier et le sauvegarde sous un autre nom pour le classer et réaliser d’autre manipulation.
Le pb est que je sauvegarde le fichier avec les macros et userform, j’ai trouver pour supprimer les macros mais pas les userfomr.
Si quelqu’un pouvais m’aider.
D’avance merci
20/07/2007, 10h33
ouskel'n'or

Regarde ici
Les userforms sont des modules dont l'index est seulement différents des autres modules ;)

Merci pour ta réponse, mais voila ce que j'ai essayé et qui ne marche pas

j’ai mis ce code que vous aviez mis sur le forum, et il ne veut pas fonctionner
Voici les 2 remarques que j’ai
CL2.VBProject.VBComponents =< l’accès au programme visual basic n’est …
La méthode ‘VBProject’ de l’objet ‘_Workbook’ à échoué

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub ListerLesModulesAeffacer()
Dim CL1 As Workbook
Dim CL2 As Workbook
Dim VBComp
    Set CL1 = ThisWorkbook 'Le fichier contenant ces macros
    Set CL2 = Workbooks("FichierDontLesModulesDoiventEtreEffacés.xls")
    Set VBComp = CL2.VBProject.VBComponents
    With VBComp
        For Each VBComp In CL2.VBProject.VBComponents
            If VBComp.Type = 1 or VBComp.Type = 3 Then _
               SupprimerLeModule CL2, VBComp.Name
        Next VBComp
    End With
    Set CL2 = Nothing
    Set VBComp = Nothing
    CL1.close false 'Fermeture sans enregistrer du fichier contenant ces macros
End Sub
 
Sub SupprimerLeModule(CL2, NomModule)
    With CL2.VBProject
        .VBComponents.Remove .VBComponents(NomModule)
    End With
End Sub

J’ai essayé aussi celui-ci, mais il bloc sur VBcomponents
Voila le blocage (type défini par l’utilisateur non défini)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub supprimerToususerform()
'Supprimer tous les modules vides
    Dim VBComp As VBComponents
    Dim i As Integer, j As Integer
 
    For Each VBComp In ActiveWorkbook.VBProject.VBComponents
        If VBComp.Type = 3 Then
            i = VBComp.CodeModule.CountOfDeclarationLines + 1
            j = VBComp.CodeModule.CountOfLines
            If j < i Then ActiveWorkbook.VBProject.VBComponents.Remove VBComp
        End If
    Next
End Sub

Si vous pouviez me donner un coup de main

D’avance merci

20/07/2007, 12h36
SilkyRoad

bonjour

Citation:

CL2.VBProject.VBComponents =< l’accès au programme visual basic n’est …
La méthode ‘VBProject’ de l’objet ‘_Workbook’ à échoué

Dans le menu Outils
Macro
Sécurité
Onglet "Source fiable"
Assure toi que les deux options sont cochées
Clique sur le bouton OK pour valider

Citation:

J’ai essayé aussi celui-ci, mais il bloc sur VBcomponents
Voila le blocage (type défini par l’utilisateur non défini)

Tu as un S en trop

remplace

Code:

Dim VBComp As VBComponents

par

Code:

Dim VBComp As VBComponent

ps

attention ,il ne suffit pas de fair des copier/coller de codes trouvés sur internet .....
est ce normal que tu aies une procedure nommée supprimerToususerform et une annotation juste en dessous "supprimer tous les modules vides" ... ?

Citation:

Sub supprimerToususerform()
'Supprimer tous les modules vides

michel
20/07/2007, 12h38
ouskel'n'or

Pour que ça fonctionne, tu dois valider la référence "Microsoft Visual Basic for Applications Extensibility" dans l'éditeur VBA -> Outils -> Références
(enfin, il semble me souvenir...)