RÉCUPÉRATION DE LA VALEUR D'UNE VARIABLE DANS UN CLASSEUR EXCEL, SANS SAVOIR SA FEUILLE ORIGINE

'Fonction permettant d'utiliser au sein d'un programme en VBA,
'la valeur d'une cellule définie par son nom dans un fichier Excel (cClasseur)
'sans savoir dans quelle feuille du classeur est défini ce nom (cnomvar)
'(Nom défini en global dans le classeur)
'
Public Function ValeurNom(cClasseur As String, cnomvar As String)
Dim nNewVal As Variant, nPosi As Integer, cCC1 As String, cCV1 As String
On Error GoTo VersInconnu
nNewVal = Workbooks(cClasseur).Names(cnomvar).RefersTo
nPosi = InStr(1, nNewVal, "!", 0)
If Mid$(nNewVal, 2, 1) <> "'" Then
    cCC1 = Mid$(nNewVal, 2, nPosi - 2)
Else
    cCC1 = Mid$(nNewVal, 3, nPosi - 4)
End If
cCV1 = Mid$(nNewVal, nPosi + 1)
ValeurNom = Workbooks(cClasseur).Sheets(cCC1).Range(cCV1).Value
VVEnd:
Exit Function
VersInconnu:
ValeurNom = 0
Resume VVEnd
End Function