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]

ci joint:

1 bouton pour ouvrir autocad LT (verifiez le chemin dans le code vba)

1 bouton pour recupérer en batch le nom des fichiers et de leurs
presentations respectives
(apres une multiselection des fichiers dwg)

[Anonymous]

Bravo Michel, notre ami(e) Autocadiste a de quoi se mettre sous la dent.
Je crois qu'il doit être en train de cogiter tout ce qu'on lui a proposé.
A+
--
Bernard Flavignard
www.guidonchalettois.fr
"sigecom" a écrit dans le message de news:
[email protected]...
ci joint:

1 bouton pour ouvrir autocad LT (verifiez le chemin dans le code vba)

1 bouton pour recupérer en batch le nom des fichiers et de leurs
presentations respectives
(apres une multiselection des fichiers dwg)

[Anonymous]

je m'appelle laurent 😉

[Anonymous]

Acceptes mes excuses, j'ai confondu.
Désolé.
Tu peux mettre une signature avec ton prénom dans tes messages ...
--
Bernard Flavignard
www.guidonchalettois.fr
"sigecom" a écrit dans le message de news:
[email protected]...
je m'appelle laurent 😉

[Anonymous]

Bonsoir Laurent

j'ai essayé ton dernier fichier excel avec autocad 2007, rien à faire il ne fonctionne pas, comment savoir quel référence de la bibliothèque manquante pour le faire tourner ???

Michel a

[Anonymous]

il n'y a pas de référence à changer je pense. voici les modifs pour acad2007

#####################
1-

dans la Sub CommandButton2_Click()
changer le chemin d'autocad

MyAppID = Shell("C:\Program Files\AutoCAD LT 2006\aclt.exe", 1)


#####################
2-
dans la sub recuperepresentation()

remplacer
'initialisation DDE Autocad LT
chan = DDEInitiate(App:="AutoCAD LT.DDE", Topic:="System")
par
'initialisation DDE Autocad LT
'chan = DDEInitiate(App:="AutoCAD LT.DDE", Topic:="System")


et remplacer

'initialisation DDE Autocad 2007, 2008 ou MAP
'chan = DDEInitiate(App:="AutoCAD.R17.DDE", topic:="System")
par
'initialisation DDE Autocad 2007, 2008 ou MAP
chan = DDEInitiate(App:="AutoCAD.R17.DDE", topic:="System")
#####################

[Anonymous]

Bonjour Laurent

j'ai toujours une erreur aprés lancement, comment faire pour avoir les boutons de la macro directement sur la feuile d'excel ??

bcoll.Add Replace(ccoll(m), "\\", "\")

voici le fichier peux tu l'essayer et voir si tu as la même erreur
http://cjoint.com/?idhBxHnncO

@+
Michel a

[Anonymous]

tu as quelle version d'excel?

chez moi le programme fonction (Excel 2000)

[Anonymous]

>comment faire pour avoir les boutons de la macro directement sur la feuile
>d'excel ??
Comme ceci ?
Chez moi, excel 2002 tout fonctionne bien
--
Bernard Flavignard
www.guidonchalettois.fr
a écrit dans le message de news: [email protected]...
Bonjour Laurent

j'ai toujours une erreur aprés lancement, comment faire pour avoir les boutons
de la macro directement sur la feuile d'excel ??

bcoll.Add Replace(ccoll(m), "\\", "\")

voici le fichier peux tu l'essayer et voir si tu as la même erreur
http://cjoint.com/?idhBxHnncO

@+
Michel a

[Anonymous]

J'ai excel 97 sr2, peut être pour ça que j'ai cette erreur à cette ligne
par contre mes routines fonctionnent avec cette excel mais là quelle est la différence dans ce code ???

@+

Michel a

[Anonymous]

J'ai trouvé pourquoi ..............
-----------------------------------------------------------------
'' Excel 97 ne reconnaît pas certaines fonctions d'Excel 2000. il y a
Split(), join(), Trim(), Round().''
Excel 2000 permet de travailler directement avec des UserForms non modaux.
(Excel 97 a besoin d'une bidouille qui passe par l'API)
dans Excel 97.
La façon de travailler avec ADO est (très) différente.''
-----------------------------------------------------------------
@+

Michel a

[Anonymous]

Pour la userform, on peut s'en passer donc ça rédout ce problème
Pour le reste on doit pouvoir adapter le code.
Nous sommes partris un peu dans tous les sens, il faudrait bien reformuler le
cdc.
Et nous avons perdu en route notre ami(e) Autocadiste.
A+
--
Bernard Flavignard
www.guidonchalettois.fr
a écrit dans le message de news: [email protected]...
J'ai trouvé pourquoi ..............
-----------------------------------------------------------------
'' Excel 97 ne reconnaît pas certaines fonctions d'Excel 2000. il y a
Split(), join(), Trim(), Round().''
Excel 2000 permet de travailler directement avec des UserForms non modaux.
(Excel 97 a besoin d'une bidouille qui passe par l'API)
dans Excel 97.
La façon de travailler avec ADO est (très) différente.''
-----------------------------------------------------------------
@+

Michel a

[Anonymous]

Bonjour,

Je viens de voir la nouvelle version, elle marche sauf que faut pas ouvrir beaucoup de fichier en m^me temps çà rame

pour userform
dans un commandbutton

Commandbutton1._click()
Userform1.show
End sub

[Anonymous]

Bonjour,
>faut pas ouvrir beaucoup de fichier en m^me temps çà rame

De toute façon c'est plus rapide que si tu devais ouvrir tes fichiers à la main
et noter, toujours à la main, tes présentations....
Ton problème est résolu ?
A+
--
Bernard Flavignard
www.guidonchalettois.fr
a écrit dans le message de news:
[email protected]...
Bonjour,

Je viens de voir la nouvelle version, elle marche sauf que faut pas ouvrir
beaucoup de fichier en m^me temps çà rame

pour userform
dans un commandbutton

Commandbutton1._click()
Userform1.show
End sub

[Anonymous]

Re bonjour,

J'ai quelques messages d'erreur, pour des fichier qui sont sur le réseau,

Par contre sur le bureau çà marche presque au poil, sur 11 fichier sélectionner il m'en a sortis que 9.

Le temps est d'environ est 1mn pour si je faisais la manip à la main dans le meme temps au moins une dizaine de minutes

MERCCCCCCCI

[Anonymous]

quelques précisions:
- c'est normal que ça ne marche pas sur le réseau, il y a un bug que je n'ai
pas bien traité (je remplace \\ par \ à un moment donné, ce qui est
incompatible avec le reseau)
- pour split et replace, charger le module ci-joint (importer module
splitreplace.bas dans excel97)

je suis étonné que ça ne fonctionne pas pour tous les fichiers, sont ils
ouverts dans autocad?

[Anonymous]

>je suis étonné que ça ne fonctionne pas pour tous les fichiers, sont ils
ouverts dans autocad?

Tout à fait d'accord avec toi.
Autocadiste : pourrais tu nous dire quels sont les noms des présentations qui
figurent dans les dwg qui ne fonctionnent pas, merci
Peut-être des caractères "spéciaux" ....
A suivre
--
Bernard Flavignard
www.guidonchalettois.fr
"sigecom" a écrit dans le message de news:
[email protected]...
quelques précisions:
- c'est normal que ça ne marche pas sur le réseau, il y a un bug que je n'ai
pas bien traité (je remplace \\ par \ à un moment donné, ce qui est
incompatible avec le reseau)
- pour split et replace, charger le module ci-joint (importer module
splitreplace.bas dans excel97)

je suis étonné que ça ne fonctionne pas pour tous les fichiers, sont ils
ouverts dans autocad?

[Anonymous]

Bonsoir,

je vous dis çà demain

[Anonymous]

Bonjour,

Après un reboot çà marche bien pour les fichiers qui sont sur le bureau.

J'ai regardé le programme nécessaire pour effectuer la manipulation, il est légèrement compliqué^^, j'ai du prendre un efferalgan.

[Anonymous]

nouvelle version :

-debug des presentations aux noms longs
-debug fichiers sur server
-debug differentes versions Autocad 2000 à 2008 (LT ou Non)

-Ajout commentaires