Discussion :

[fredf19]

Bonjour

J'ai une petite application excel composée du USF. Afin d'effectuer une mise à jour de cette appli (déployée sur une dizaine de poste) j'aimerai supprimer un USF pour le réimporter par macro. A savoir que les postes utilisent excel 2007 et 2010.

j'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub Supprimer_UserForm()
Dim USF As String
 
USF = "UserForm1"
 
ActiveWorkbook.VBProject.VBComponents.Remove _
    ActiveWorkbook.VBProject.VBComponents(USF)
 
End Sub

qui me donne une erreur 1004 méthode 'VBProject' de l'objet'_Worbook' a échoué
Une idée?
Merci

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public USF As Object
Sub Supprimer_UserForm()
If TypeName(USF) = "UserForm1" Then Unload USF: Set USF = Nothing
Set USF = UserForm1
USF.Show
End Sub

mais tu peux rappeler une méthode de réinitialisation:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

me.init

je pense avoir pas bien compris je reprend ma copie!

j'ai trouvé ça :
http://www.developpez.net/forums/d38...s/#post2321333

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 Supprimer_UserForm()
Set CL1 = ThisWorkbook 'Le fichier contenant ces macros
    Set CL2 = ActiveWorkbook
    Set VBComp = CL2.VBProject.VBComponents
    With VBComp
        For Each VBComp In CL2.VBProject.VBComponents
        Debug.Print VBComp.Name
            If VBComp.Name = "UserForm1" Then _
               SupprimerLeModule CL2, VBComp.Name
        Next VBComp
    End With
    AjoutterLeModule CL2, "C:\Users\rdurupt\Desktop\UserForm1.frm"
End Sub
 
Sub SupprimerLeModule(CL2, NomModule)
    With CL2.VBProject
        .VBComponents.Remove .VBComponents(NomModule)
    End With
End Sub
Sub AjoutterLeModule(CL2, NomModule)
    With CL2.VBProject
        .VBComponents.Import NomModule
    End With
End Sub