Private Sub Importer_Click()
Application.ScreenUpdating = False
'-----------------------------------------------------------------------
' Les trois truc qui suivent servent a ouvrir s'il n'est pas déja ouvert.
'Part1
Dim Chemin$, Wbk As Workbook
Chemin = "C:\Program Files\CrypteInc\Joueur V25.xls"
If Not DejaOuvert(Chemin) Then Workbooks.Open Chemin
Set Wbk = Workbooks(Dir$(Chemin))
'etc.
'-----------------------------------------------------------------------
ThisWorkbook.Activate
Unload Me
UserForm3.Show
Application.ScreenUpdating = True
End Sub
Function DejaOuvert(CheminComplet$) As Boolean
'Part2
Dim Wbk As Workbook
On Error Resume Next
Set Wbk = Workbooks(Dir$(CheminComplet))
DejaOuvert = Err = 0
Err.Clear
End Function
Sub zaza2()
'Part3
Dim Chemin$, Wbk As Workbook
Chemin = "C:\Program Files\CrypteInc\Joueur V25.xls"
On Error Resume Next
Workbooks(Dir$(Chemin)).Activate
If Err <> 0 Then
Err.Clear
Workbooks.Open Chemin
End If
Set Wbk = Workbooks(Dir$(Chemin))
'etc.
End Sub