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

N

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
Trier par date Trier par votes

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 ...
 
Vote positif 0 Vote négatif
N

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
 
Vote positif 0 Vote négatif
N

netparty

XLDnaute Occasionnel
Vote positif 0 Vote négatif

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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question Question
Pb de modification du contenu de cellule lors d'une ouverture d'un fichier .txt en VBA
Réponses
8
Affichages
978
jeff1494
T
  • Question Question
imposer un format de cellule lors d'un import excel vers excel
Réponses
2
Affichages
1 K
DoubleZero
S
  • Question Question
Problème de reprise du format
Réponses
0
Affichages
851
SUM
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…