XL 2019 Problème de format de cellule lors d'un import

[netparty]

Bonjour à tous

J'essaye de développer une petite application qui récupère la liste des calques dans Autocad.
Jusque la tout va bien j'arrive à lister les calques et leurs info dans excel le seul soucis que je rencontre c'est pour la valeur des épaisseurs, lors de l'import je perd les décimales.
Exemple : dans autocad j'ai 0.15 et je me retrouve dans excel avec 15 ou bien 0.05 devient 5.
Si quelqu'un aurais une piste pour moi.

Merci d'avance

Bonne journée

 

[pierrejean]

bonjour netparty
A tester

 

[netparty]

bonjour netparty
A tester

Bonjour @pierrejean

Merci pour ton aide

J'ai remplacé le *10 par /100 maintenant j'ai le bon résultat.

Encore merci à toi

Passe une bonne journée

 

[fanch55]

Bonjour,
Dans Autocad la valeur des épaisseurs en interne est représentée en centième de millimètre.
Pour retrouver une valeur plus conforme dans Excel lors d'un import :
AcadDoc.Layers.Item(i).LineWeight / 100
en cas d'export, ne pas oublier de faire l'inverse ...

 

[netparty]

Bonjour,
Dans Autocad la valeur des épaisseurs en interne est représentée en centième de millimètre.
Pour retrouver une valeur plus conforme dans Excel lors d'un import :
AcadDoc.Layers.Item(i).LineWeight / 100
en cas d'export, ne pas oublier de faire l'inverse ...

Merci

 

[netparty]

Bonjour,
Dans Autocad la valeur des épaisseurs en interne est représentée en centième de millimètre.
Pour retrouver une valeur plus conforme dans Excel lors d'un import :
AcadDoc.Layers.Item(i).LineWeight / 100
en cas d'export, ne pas oublier de faire l'inverse ...

Bonjour @fanch55

Je ne sais pas si tu as de l’expérience avec la communication entre Excel et Autocad, si c'est le cas je suis preneur de toutes bonnes informations à ce sujet.

Le fichier que j'ai créé fonction très bien sur Autocad version full par contre la communication avec une version LT ne fonctionne pas.

Bonne journée

 

[fanch55]

Re,
La version LT n'offre pas d'interface avec VB .
La seule chose qui peut être faite est de faire un Copier/Coller manuel :

 

[netparty]

Re,
La version LT n'offre pas d'interface avec VB .
La seule chose qui peut être faite est de faire un Copier/Coller manuel :
Regarde la pièce jointe 1116534
Regarde la pièce jointe 1116533

Merci
Tant que j'y suis est-il possible depuis excel d'activer une fenêtre de présentation.
J(ai un autre fichier excel qui liste les présentation du dessin et se serait sympa de pouvoir les controler depuis excel

 

[fanch55]

Qu'est-ce que vous pensez en disant contrôler ?

 

[netparty]

Qu'est-ce que vous pensez en disant contrôler ?

Savoir se déplacer d'une présentation à l'autre directement via excel

 

[fanch55]

La présentation est assuré par un autre logiciel ?

 

[netparty]

La présentation est assuré par un autre logiciel ?

Re fanch55

J'ai commencé un début de fichier, mais encore quelque soucis avec.

Je joint le fichier si cela s’intéresse.

 

[laurent950]

Bonsoir @netparty, @fanch55 , @pierrejean

Une solution : "Savoir se déplacer d'une présentation à l'autre "AutoCad" directement via excel"

Ci-Dessous : Correction de votre Module en Poste #12 "Private Sub ListBox1_DblClick"

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim AcadApp As Object
    Dim AcadDoc As Object
TextBox1.Text = ListBox1
 
 'Check if AutoCAD application is open. If is not opened create a new instance and make it visible.
    Set AcadApp = GetObject(, "AutoCAD.Application")
    Set AcadDoc = AcadApp.ActiveDocument
        AcadDoc.ActiveLayout = AcadDoc.Layouts.Item(CStr(ListBox1))
End Sub

 

[fanch55]

Désolé, je vous ai abandonné mais ma version gratuite d'autocad est arrivé à terme et je n'ai pas votre fichier autocad .
Je remercie @laurent950 de reprendre la continuité ...

 

[netparty]

Désolé, je vous ai abandonné mais ma version gratuite d'autocad est arrivé à terme et je n'ai pas votre fichier autocad .
Je remercie @laurent950 de reprendre la continuité ...

Bonjour @fanch55

Merci quand même pour ton aide

Bonne journée