Discussion :

[chrnoe]

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

[fred65200]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[radinor]

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