incrementation

[jacobs33]

Bonjour et Au secours,

 

J'ai un début de routine qui me permet d'incrémenter les calques de fichiers qui ce trouve dans un répertoire mais en plus je voudrais t'il incrémente les type de lignes les style de textes , bloc style de cotes.

 

 

Sub Anonymus()
Adresse = "C:\TempAcad\"
   For Each Fichier In CreateObject("Scripting.FileSystemObject").GetFolder(Adresse).Files
       If Right(Fichier, 3) = "dwg" Then
           ThisDrawing.Application.Documents.Open (Fichier)
           On Error Resume Next
           I = 1
           For Each calque In ThisDrawing.Layers
           If calque.Name <> "0" Then
           calque.Name = I
           I = I + 1
           End If
           Next
           ActiveDocument.Save
       ActiveDocument.Close
       End If
       
   Next
End Sub

 

Merci de me Sauver.... :) :)

[sechanbask]

je veux bien aider mais je ne comprends pas :

 

' incrémente les type de lignes les style de textes , bloc style de cotes....'