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

netparty · 26 Septembre 2021

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 · 26 Septembre 2021

bonjour netparty
A tester

netparty · 2 Octobre 2021

laurent950 à dit:
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

Bonjour @laurent950

Merci pour votre code

Bonne journée

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

netparty

XLDnaute Occasionnel

Pièces jointes

pierrejean

netparty

XLDnaute Occasionnel

Discussions similaires