Gelés tous les calques sauf 2 en macro VBA

[Guest fabdu91630]

Bonjour,

 

Je suis novice dans la programmation VBA et j'ai besoin d'aide :

 

J'ai besoin de créer une macro en VBA qui me permettrai de geler tous les calques sauf 2.

J'aifais cette petite macro mais ne fonctionne pas :

Sub test()

 

Dim i As Integer

 

 

For i = 0 To ThisDrawing.layers.Count - 1

 

If ThisDrawing.layers.objetName = "Y-EQP-SI" Then

 

ThisDrawing.layers(i).Freeze = False

Else

ThisDrawing.layers(i).Freeze = True

End If

Next i

End Sub

 

Quelqu'un aurait-t-il une idée ?

 

Cordialement,

 

Fabdu91630