Fermer un userform d'un autre classeur pour le supprimer

Fermé
titdebutant Messages postés 1 Date d'inscription vendredi 17 avril 2015 Statut Membre Dernière intervention 17 avril 2015 - Modifié par Whismeril le 17/04/2015 à 15:54
Bonjour à tous,

Je cherche le moyen de supprimer un userform dans un autre classeur pour le remplacer par l'userform de mon classeur sachant que les deux classeurs sont ouvert et que l'userform de l'autre classeur est actif.

Je m'explique plus précisément:

classeur A = classeur source classeur ouvert en premier, userform1 affiché

classeur B = classeur cible, classeur ouvert en deuxième grace à GetOpenFilename, userform2 affiché

j'aimerais que depuis le classeur A je puisse fermer l'userform2 du classeur B pour pouvoir le supprimer et le remplacer par l'userform2 de mon classeur A

Bonne chance si vous arrivez déja a comprendre mon problème lol

voici mon bout de code, mais il me renvoie une erreur

Dim VBComps As Object
Set VBComps = ActiveWorkbook.VBProject.VBComponents
With VBComps("Vacances")
Select Case .Type
Case 100
With .CodeModule
.DeleteLines 1, .CountOfLines
End With
Case Else
VBComps.Remove VBComps("Vacances")

End Select
End With


ThisWorkbook.VBProject.VBComponents("Vacances").Export _
ThisWorkbook.Path & "\UserForm1.frm"


ActiveWorkbook.VBProject.VBComponents.Import ActiveWorkbook.Path & "\" & "UserForm1.frm"


office 2003

Edit: Précision du langage dans la coloration syntaxique.
A voir également: