Prb Ouverture Usf

homere

XLDnaute Nouveau
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.
 

homere

XLDnaute Nouveau
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
 

Discussions similaires

Réponses
18
Affichages
1 K

Statistiques des forums

Discussions
314 450
Messages
2 109 729
Membres
110 553
dernier inscrit
loic55