Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

netparty

XLDnaute Occasionnel
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
 

Pièces jointes

  • Calques autocad.xlsm
    23 KB · Affichages: 14

fanch55

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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
 

netparty

XLDnaute Occasionnel

laurent950

XLDnaute Barbatruc
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"
VB:
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…