[E-03] Lien entre excel et autocad

Version imprimable

03/01/2009, 13h11
chrnoe

[E-03] Lien entre excel et autocad

Bonjour à tous,

Logiciel utilisé: excel 2003

Je voudrais savoir si il est possible d'ouvrir un plan Autocad (logiciel de dessin) et ensuite l'imprimer, tout cela à travers un bouton excel et le chemin d'accès au fichier dans une cellule.

Merci d'avance:P

bonsoir,
un premier jet pour te lancer sur des piste. Je n'ai plus Autocad à portée de main depuis longtemps.
N'oublie pas d'ajouter la référence correspondante à ton projet.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub ImpressionAutocad()
  Dim AcadApp As AutoCAD.AcadApplication
 
  ' Ouverture d'AutoCAD
  Set AcadApp = New AutoCAD.AcadApplication
 
  ' Excel au premier plan
  Application.Visible = True
 
  ' Ouverture du fichier dans AutoCAD, le chemin est ici en A1
  AcadApp.Documents.Open (Cells(1, "A").Text)
 
  ' Impression du document
  AcadApp.ActiveDocument.Plot.PlotToDevice
 
  ' Fermeture d'AutoCAD
  AcadApp.Quit
  Set AcadApp = Nothing
 
  MsgBox "ok ?"
End Sub

Cordialement

16/03/2009, 11h24
Ancestro-placed

Même Problème

Slt, j'aimerais bien savoir si l'un de vous deux a réussi à mettre en place ce code. J'en aurais également besoin, malheureusement il ne fonctionne pas dans son état actuel et je n'ai pas les connaissances nécessaire pour le corriger.
Merci d'avance
20/05/2009, 12h07
radinor

Citation:

Envoyé par Ancestro-placed

Slt, j'aimerais bien savoir si l'un de vous deux a réussi à mettre en place ce code. J'en aurais également besoin, malheureusement il ne fonctionne pas dans son état actuel et je n'ai pas les connaissances nécessaire pour le corriger.
Merci d'avance

je passais par hasard, la procédure fonctionne très bien chez moi (débutant aussi). As-tu coché la "bibliothèque de types Eutocad 200X" dans Visual basic > outils > références et indiqué le chemin complet dans la cellule A1.

salutations