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