Bonjour,
J'ai une macro qui ajoute une propriété "Nom_Modificateur" dans une part, Le problème est que lorsque j'ouvre ma mise en plan (toujours dans la macro) le fond de plan de se modifie pas, je suis obligé d'éditer le fond de plan puis de éclater le bloc et la mes donné apparaisse. A savoir si dès le début j'éclate le bloc, la macro marche parfaitement. Mais je ne veux pas éclater le bloc pacque j'ai une autre macro qui écrit aussi des propretés qui sont dans le cartouche et qui fonctionne alors que le code est identique.
voici le code:
Set Part = swApp.OpenDoc6(Fichier, 1, 0, "", longstatus, longwarnings)
Set swApp = Application.SldWorks
'on récupére le document actif
Set swModel = swApp.ActiveDoc
swCustPropMgr.Add3 "Type_Validation", swCustomInfoText, "", 2
swCustPropMgr.Add3 "Date_Validation", swCustomInfoText, "", 2
swCustPropMgr.Add3 "Indice", swCustomInfoText, chaine, 2
If chaine = "02" Then
swCustPropMgr.Add3 "Raison_Modification_A02", swCustomInfoText, Raison, 2
swCustPropMgr.Add3 "Nom_Modificateur_A02", swCustomInfoText, Nom_Modif, 2
ElseIf chaine = "03" Then
swCustPropMgr.Add3 "Raison_Modification_A03", swCustomInfoText, Raison, 2
swCustPropMgr.Add3 "Nom_Modificateur_A03", swCustomInfoText, Nom_Modif, 2
ElseIf chaine = "04" Then
swCustPropMgr.Add3 "Raison_Modification_A04", swCustomInfoText, Raison, 2
swCustPropMgr.Add3 "Nom_Modificateur_A04", swCustomInfoText, Nom_Modif, 2
End If
swApp.CloseDoc FileName
Merci