Fermer un userform d'un autre classeur pour le supprimer
Fermé
titdebutant
Messages postés1Date d'inscriptionvendredi 17 avril 2015StatutMembreDernière intervention17 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"