Discussion :

[AidezMoiSvp]

Bonsoir,

Soit 2 classeurs.
Depuis le 1 j'ouvre le 2.
A l'ouverture de 2, 1 se ferme.
Problème : Mon USF dans le fichier 2 ne s'affiche pas.


Code utilisé pour fermer 1 :

Code :

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

1
2
3
4
5
6
Dim fichier As String
Dim Wb As Workbook
UserForm5.Hide
fichier = Mypath & "\" & Selection.Offset(0, 2).Value & "\" & Selection.Offset(0, 2).Value & ".xls"
Set Wb = Workbooks.Open(Filename:=fichier)
End If

Mon code d'ouverture de 2 :

Code :

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

1
2
Call FermetureNavigSiOuvert
UserForm15.Show

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub FermetureNavigSiOuvert()
Dim Wb As Workbook
 
On Error Resume Next
Set Wb = Workbooks("00_Navigation.xls")
On Error GoTo 0
 
'True spécifie que les modifs sont sauvegardées
If Not Wb Is Nothing Then Wb.Close True
End Sub

Merci

[jfontaine]

Bonjour,

Pour que ca fonctionne, il te faut ouvrir ta Userform en non modal

Code :

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

UserForm15.Show 0

[AidezMoiSvp]

ça ne change rien.
Je pense que le problème vient du fait que le fichier qui s'ouvre perd le focus en fermant le fichier ouvert...
Mais je ne vois pas comment empêcher cette perte de focus.
Si quelqu'un a une idée.

[AidezMoiSvp]

Résolu !