Sub En_Attendant_L_Ami_Ricoré()
Dim m$, vNu
With Application
m = "Version: " & .Version & vbCrLf
m = m & "Build: " & .Build & vbCrLf
m = m & "Code Produit: " & .ProductCode & vbCrLf
m = m & "Chemin Librairies: " & vbCrLf & .LibraryPath & vbCrLf
End With
MsgBox m, 64, "Infos"
vNu = Split(Split(Application.LibraryPath, "\")(2))(2)
MsgBox "Excel, c'est quoi ton numéro?" & vbCrLf & "C'est le: " & vNu, 48, ";-)"
End Sub