Calque courant

[sechanbask]

Bonjour à tous,

 

Je cherche à obtenir dans une variable le nom du calque courant pas ex:

 

Dim Calque_courant as string
Calque_courant = ...

 

Merci pour vos réponses

[winfield]

Bonsoir,

Sub CalqueCourant()

Dim StrCalqueCourant As String

StrCalqueCourant = ThisDrawing.ActiveLayer.Name

MsgBox StrCalqueCourant

End Sub