bonjour je vient de commencer la programmation sous autocad (lisp & VBA) je veut faire un macro qui me permet de lister dans un fichier excel la liste des présentation et si possible de les modifier et les réexporte dans le fichier autocad pouvez vous m'aidez S-V-P et merci ---------------------------------------------------------------------------------------------------------------------- merci a tous ceux qui ont aidé et essayé de m'aider voila la solution c'est très simple : Dim a As AcadApplication Dim doc As AcadDocument Set a = AutoCAD.Application Cells(2, 2) = a.ActiveDocument.Name ' affiche le nom de fichier nb = a.ActiveDocument.Layouts.Count 'le nbres des présentation For i = 0 To nb -1 order = a.ActiveDocument.Layouts(i).TabOrder 'donne l'ordre de la présentation Cells(order + 3, 1) = a.ActiveDocument.Layouts(i).Name Next i [Edité le 16/6/2009 par idjem] [Edité le 16/6/2009 par idjem]