Bonjour Mathieu,
En fait dans ce cas, la ligne (ThisDrawing.ActiveLayer = BonCalque) va
toujours créer une erreur vu que la variable BonClaque n'est pas instanciée.
Je ne crois pas que le problème vient du code en lui même, je l'ai fait avec
toute sorte de possibilités en gérant les erreurs.
Mais je viens de découvrir que sur ce poste TOUS les codes qui ont une
gestion d'erreur ne gèrent plus les erreurs et m'envoient un message Key not
Found, attention
cela concerne uniquement Autocad par exemple sur Excel la gestion fonctionne
?????
Alors a votre avis, sur ce poste est ce le Framework ou l'applicatif
Autodesk VBA qui déconne ou autre choses??
De toute façon j'ai effectué une boucle de test Objet avant de créer ou de
l'utiliser, ce qui est long car j'ai du le faire aussi pour les types de
ligne, styles de cotes, type de texte, et cela fonctionne normalement sur le
poste.
Encore merci pour vos idées et soluces.
Sacha
"Matthieu" wrote in message
news:6359043@discussion.autodesk.com...
Bonjour,
Dans le code, il est plus judicieux de traité l'erreur comme ceci
On Error Resume Next
ThisDrawing.ActiveLayer = BonCalque
If Err <> 0 Then
MsgBox ("Le Calque Axes-Cotes n'existe pas" & VBA.Chr(13) & "Les
cotes seront dessinées sur le calque courant")
Err.Clear
Else
Set BonCalque = ThisDrawing.Layers("LSK-AXES-COTES")
End If
en effet il y a 2 lignes qui peuvent généré une erreur.
quel est la valeur de ThisDrawing ActiveLayer après ThisDrawing.ActiveLayer
= BonCalque si le calque LSK-AXES-COTES
n'est pas présent dans le plan ?
Faire une boucle de controle de présence du calque est judicieux.
On peu essayer de mettre un Application.DisplayAlerts=False pour supprimer
le message et le réactiver dans la gestion
d'erreur !!!!!
Matthieu
