Discussion :

[toto2022]

Bonjour à tous,
voila je cherche à créer une macro permettant de transférer les coordonnées d'un point (quand je clique dessus) de Autocad à un fichier excel...
Pensez vous que c'est possible? si oui pouvez vous me donner des pistes pour la programmation?
Merci!

[Lou Pitchoun]

Salut,

Je ne connais pas Autocad mais le VBA ça va..

Tu as peut être la possibilité d'affecter du code sur le clic du point.

Je ne sais pas si tu as moyen d'ajouter une référence : si oui, coche la référence Microsoft Excel et écrit le code suivant :

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
 
    ' Déclaration Application Excel et Classeur
    Dim oExcelApp As Excel.Application
    Dim oClasseur As Excel.Workbook
 
    ' Affectation
    Set oExcelApp = CreateObject("Excel.Application")
    Set oClasseur = oExcelApp.Workbooks.Open(MonCheminetMonFichier)
 
    With oExcelApp
        .Sheets("MaFeuille").Range("A1") = "Mavaleur"
    End With
 
    ' Fermeture des objets
    oClasseur.Save
    oExcelApp.Quit
 
    ' Libération des objets
    Set oClasseur = Nothing
    Set oExcelApp = Nothing

Si tu ne peux pas déclarer de référence, modifies les 1ère lignes comme suit :

Code :

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

1
2
3
    ' Déclaration Application Excel et Classeur
    Dim oExcelApp As Object
    Dim oClasseur As Object