Depuis Excel récupérer nom des onglets d'un fichier

[Anonymous]

Bonsoir,

je souhaiterai récupérer depuis excel par une macro VBA le nom des onglets d'un fichier Autocad LT, est ce possible?

exemple dans une Inputbox je rentre adresse du dessin
c:\dessin1.Dwg

la macro me donne le nom des differentes présentation(layout) présente dans ce fichier.

Ca me serait très utile

Merci

[Anonymous]

Bonsoir,
Avec LT ça ne va pas être possible.
Désolé.
--
Bernard Flavignard
www.guidonchalettois.fr
a écrit dans le message de news:
[email protected]...
Bonsoir,

je souhaiterai récupérer depuis excel par une macro VBA le nom des onglets d'un
fichier Autocad LT, est ce possible?

exemple dans une Inputbox je rentre adresse du dessin
c:\dessin1.Dwg

la macro me donne le nom des differentes présentation(layout) présente dans ce
fichier.

Ca me serait très utile

Merci

[Anonymous]

Bonsoir,

Bernard aurais tu un idée de la syntaxe siqu'il faudrait si j'avais la version pleine d autocad.

Je trouve bizarrz quand meme qqu'il faille avoir la version pleine dautocad, car la macro je la lance d'excell, autocad n'est la qu'en passif, car je sais que dans la light l'interface VBA n'est pas incrémenté

[Anonymous]

Re,
Il n'y a pas que l'interface qui ne soit pas implémentée!
Depuis l'éditeur VBA excel, vas voir Outils, Références, vois-tu des références
à AutoCAD ?
Je pense que non, et donc tu ne vas pas pouvoir dialoguer avec l'application
AutoCAD.
Bon courage quand même.
--
Bernard Flavignard
www.guidonchalettois.fr
a écrit dans le message de news:
[email protected]...
Bonsoir,

Bernard aurais tu un idée de la syntaxe siqu'il faudrait si j'avais la version
pleine d autocad.

Je trouve bizarrz quand meme qqu'il faille avoir la version pleine dautocad, car
la macro je la lance d'excell, autocad n'est la qu'en passif, car je sais que
dans la light l'interface VBA n'est pas incrémenté

[Anonymous]

Bonjour,

Bernard en fait si j'ai plein de références concernant autocad
en allant dans les références de la plateforme VBA d'excell

[Anonymous]

Pourrais-tu me donner une copie d'écran avec ces références, je n'ai pas LT
A suivre
--
Bernard Flavignard
www.guidonchalettois.fr
a écrit dans le message de news:
[email protected]...
Bonjour,

Bernard en fait si j'ai plein de références concernant autocad
en allant dans les références de la plateforme VBA d'excell

[Anonymous]

Bonjour
(layoutlist)
tu récupères la liste de tes onglets..........
@+

Michel a

[Anonymous]

Michel,
La question est "Depuis Excel ....." et avec LT!
Tu as répondu un peu vite je pense.
A+
--
Bernard Flavignard
www.guidonchalettois.fr
a écrit dans le message de news: [email protected]...
Bonjour
(layoutlist)
tu récupères la liste de tes onglets..........
@+

Michel a

[Anonymous]

Tu as raison Bernard, comme il parle de version pleine et pour aller vite cette ligne suffit pour avoir la liste des onglets.
Effectivement en vba il n'y a pas de lien depuis excel (par rapport au référence de la biblio) vers autocad lt, sauf que j'ai vue certain le font comme Xanadu fournit excellink qui communique avec Autocad Lt, mais je n'ai pas compris comment ???

Par contre si tu as le code Vba pour Autocad version pleine je suis preneur.....

plus qu'un jour de vélo tu seras plus en forme lundi :-)..

Michel a

[Anonymous]

Tu veux l'adaptation de Excellink qui donnerai la liste des présentations dans
excel ?
Si je trouve le temps pourquoi pas.
Mais de toute façon ça ne sera pas pour LT.
A+
--
Bernard Flavignard
www.guidonchalettois.fr
a écrit dans le message de news: [email protected]...
Tu as raison Bernard, comme il parle de version pleine et pour aller vite cette
ligne suffit pour avoir la liste des onglets.
Effectivement en vba il n'y a pas de lien depuis excel (par rapport au référence
de la biblio) vers autocad lt, sauf que j'ai vue certain le font comme Xanadu
fournit excellink qui communique avec Autocad Lt, mais je n'ai pas compris
comment ???

Par contre si tu as le code Vba pour Autocad version pleine je suis preneur.....

plus qu'un jour de vélo tu seras plus en forme lundi :-)..

Michel a

[patrick_35]

Bonjour
Et avec les activex, cela ne fonctionnerai pas avec une LT ?

Sinon, avec une version pleine, un exemple extrait de l'aide à adapter avec excel

Sub Example_Item()
' This example shows two uses of the Item method.
' The first uses Item with an index counter to return an item in a collection.
' The second uses Item with a string to return an item in a collection.

' Iterate thru the model space collection,
' get all the items in the collection
' and store them in an array called newObjs
Dim count As Integer
count = ThisDrawing.ModelSpace.count

ReDim newObjs(count) As AcadEntity
Dim index As Integer
For index = 0 To count - 1
Set newObjs(index) = ThisDrawing.ModelSpace.Item(index)
Next

' Get a particular item, in this case a layer, based on name "0"
Dim layerObj As AcadLayer
Set layerObj = ThisDrawing.Layers.Item("0")

End Sub

@+

[Anonymous]

Bonsoir,

Je post demain(lundi)les références Bernard, je n'ai pas autocad chez moi

[Anonymous]

Bonjour,

VVoici les références que trouve excel en ayant la vversion Autocad LT 2004

Autocad2004 Type Library
Autocad LT 2000i Objetct library
Autocad/ObjetDBX Common Objetct Library

SI çà vous parle

[Anonymous]

Bonjour

jr vois par rapport aux référence vba tu as Autocad 2004 et lt2000, mais le seul lien c'est ''Autocad2004 type Library'' la communication sera entre excel et autocad 2004.

par contre pour les autres qu'en pense Bernard ???

@+

Michel a

[Anonymous]

Bonjour,

En fait on avais Autocad 2000 LT et pui on a fais la mise a jour vers autocad LT 2004

[Anonymous]

il n'y pas de lien vba <> autocad LT, car le fichier .tlb n'est pas livré
avec la LT.

[Anonymous]

Bonsoir,
Je suis étonné de voir de telles références avec LT, mais je n'ai jamais eu LT,
alors je propose à Autocadiste de tester ce petit bout de code dans excel, puis
de nous dire ce qu'il obtient.
A mon avis un message d'erreurs, mais .....

Sub lienacad()
Dim BaCadObj As Object
Dim ObjDessin As Object
On Error Resume Next
Set BaCadObj = GetObject(, "AutoCAD.Application.16")
If Err Then
Err.Clear
Set BaCadObj = CreateObject("AutoCAD.Application.16")
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If
Set ObjDessin = BaCadObj.ActiveDocument
BaCadObj.Visible = True
BaCadObj.WindowState = xlMaximized
MsgBox ObjDessin.Name
End Sub


A suivre
--
Bernard Flavignard
www.guidonchalettois.fr
a écrit dans le message de news: [email protected]...
Bonjour

jr vois par rapport aux référence vba tu as Autocad 2004 et lt2000, mais le seul
lien c'est ''Autocad2004 type Library'' la communication sera entre excel et
autocad 2004.

par contre pour les autres qu'en pense Bernard ???

@+

Michel a

[patrick_35]

Bonjour
Ne programmant pas en vba, je ne saurais être d'une grande aide, mais tu peux toujours regarder ce sujet qui parle d'utiliser ObjectDBX depuis Excel.
En regardant le programme, j'ai vu qu'il récupérait les noms des onglets. Reste à savoir s'il fonctionne avec une LT.

@+

[Anonymous]

vous allez me trouver pessimiste, mais j'ai presque envie de dire:
"je vous paie des frites si vous trouvez une solution vba pure sans passer
par du diesel"

ça se saurait si autocad LT acceptait le vba. (pourquoi payer plus cher
sinon?)

la plupart des appli qui tournent avec autocad LT sont des arx recompilés à
la limite du cracking.

[Anonymous]

Salut,
>je vous paie des frites ....
A mon avis ça mérite mieux que des frites !!
Forces toi un peu.
A+
--
Bernard Flavignard
www.guidonchalettois.fr
"sigecom" a écrit dans le message de news:
[email protected]...
vous allez me trouver pessimiste, mais j'ai presque envie de dire:
"je vous paie des frites si vous trouvez une solution vba pure sans passer
par du diesel"

ça se saurait si autocad LT acceptait le vba. (pourquoi payer plus cher
sinon?)

la plupart des appli qui tournent avec autocad LT sont des arx recompilés à
la limite du cracking.