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

 

[netparty]

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

Bonjour @laurent950

Merci pour votre code

Bonne journée