Function NomClasseur(nomComplet As String) As String
'Auteur: Laurent M
Dim i As Integer
For i = Len(nomComplet) To 1 Step -1
If Mid(nomComplet, i, 1) = '\\' Then Exit For
Next
NomClasseur = Mid(nomComplet, i + 1, 999)
If InStr(NomClasseur, '.') > 0 Then
NomClasseur = Left(NomClasseur, InStr(NomClasseur, '.') - 1)
End If
End Function
Sub nomc()
x = NomClasseur(ActiveWorkbook.FullName)
MsgBox x
End Sub