Sub CommandButton4_Click() 'bouton "Lancer l'explorateur"
NAO = Application.GetOpenFilename
For i = Len(NAO) To 1 Step -1
If Mid(NAO, i, 1) = "\" Then LenDossier = i: GoTo suite
Next
suite:
TextBox1.Value = Mid(NAO, 1, LenDossier - 1)
TextBox2.Value = Mid(NAO, LenDossier + 1, (Len(NAO) + 1) - LenDossier)
NomFichier = TextBox2.Value
Workbooks.Open NomFichier
'***************************************
'affichage des onglet du classeur ouvert
'***************************************
Me.ListBox1.Clear
For Each WS In ActiveWorkbook.Worksheets
If WS.Name <> ("Formulaire") Then
Me.ListBox1.AddItem WS.Name
End If
Next
End Sub