Ouverture d'un classeur depuis un autre - Userform
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:
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:
1
2
| Call FermetureNavigSiOuvert
UserForm15.Show |
Code:
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
