Prb Ouverture Usf

[homere]

Bonjour,

J'ai a nouveau un soucis d'Usf.

J'ai 2 fichiers excel A et B.
A a un Userform qui propose l'ouverture de B.
B à une Userform qui propose quant à le retour au fichier A (entre autre).
Mon problème est,lorsque je veux revenir sur A, j'appuis sur ma petite icône, mais dans ce cas, je ne retombe pas sur l'userform de A, mais sur une feuille de A.

Voilà, merci si vous avez des idée.

 

[n3Twork]

Slt

peu tu nous donnez ton code ? car ce n'est pas trés clair sans code.

 

[homere]

oui bien sûr!

Pour l'ouverture de l'USF du fichier A :

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.WindowState = xlMaximized
MENU01.Show
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.EnableSelection = xlUnlockedCells
Next Feuil
End Sub

Pour aller sur le fichier B depuis le A :

Private Sub AP_Click()
Workbooks.Open FileName:='D:\\FichierB.xls'
MENU01.Hide
End Sub


Pour l'ouverture de l'USF du fichier B :

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.WindowState = xlMaximized
Menu.Show
Dim Feuil As Worksheet
For Each Feuil In Sheets
Feuil.EnableSelection = xlUnlockedCells
Next Feuil
End Sub

Pour aller sur le fichier A depuis le B :

Public Sub cmdQuit_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
' Fermeture du fichier avec sauvegarde
ActiveWorkbook.Close savechanges:=True
Workbooks.Open FileName:='D:\\FichierA.xls'
Windows('FichierB.xls').Activate

End Sub

Merci