Evolution CustomProperties SW2014 à SW2016

vos questions concernant les API SolidWorks

Evolution CustomProperties SW2014 à SW2016

Messagepar Agadoudou » Lun 19 Fév 2018, 20:50

Bonjour,

Voilà quelques années que j'avais fait un code pour m'aider a renommer des propriétés sans trop de galère en me servant d'Excel. Ça faisait un peu longtemps que je ne m'en était pas servi et là, la remontée de propriété ne fonctionne plus !

Les propriétés ne sont pas remontés dès lors que le fichier a été créé avec un SW supérieur à 2014.

Voici le code :

Code: Tout sélectionner
For Ligne1 = Ligne1 To Dernligne3
       
        Dim DSO As DSOFile.OleDocumentProperties
        Dim File1, OldDes, k, PropName, Compteur
       
        File1 = Cells(Ligne1, 1).Value
       
        Set DSO = New DSOFile.OleDocumentProperties
        DSO.Open sfilename:=Chemin & File1
       
        Compteur = DSO.CustomProperties.Count
       
        If Compteur <> 0 Then
       
            For k = 1 To Compteur - 1
           
                PropName = DSO.CustomProperties.Item(k).Name
           
                If PropName = "Designation-1" Then
               
                    OldDes = DSO.CustomProperties.Item("Designation-1").Value
                    Cells(Ligne1, 2) = OldDes
               
                End If
               
            Next k

        End If
           
        DSO.Save
        DSO.Close
 
Next


En fait, ça ne plante pas, juste les propriétés ne sont pas comptées. du coup, mon compteur reste à 0 et rien ne se passe...

Je pense avoir vu que la méthode n'est plus la même depuis 2015 mais je comprends pas trop... quelqu'un a une idée ?

Merci et A+

AgaDouDou
Merci à TOUS !!!!!
Agadoudou
Padawan SolidWorks
 
Messages: 84
Inscription: Ven 13 Avr 2012, 7:19
Localisation: Clermont Fd

Retourner vers Questions générales sur les API

 


  • Articles en relation
    Réponses
    Vus
    Dernier message

Qui est en ligne

Utilisateurs parcourant ce forum: Google [Bot] et 3 invités

banniere