Bonjour à tous
Je suis nouveau sur ce forum
j'avais une macro sous excel qui me permettait de piloter un logiciel autocad (logiciel de dessin assisté par ordinateur)
je voudrais faire la macro sous calc de libre office
j'ai un fichier de points colonnés en Numéro X Y Z sous calc
le but final étant de pouvoir écrire sous Autocad un texte (numéro de point) aux coordonnées du point XYZ de la cellule active sous calc libre office
J'ai fait une petite ébauche de programme de vb, macro dans calc de libre office mais je dois mal utiliser certaines fonctions ou méthodes
le principe étant de récupérer la position de la cellule active dans la feuille active et visible dans le fichier ouvert
récupérer le numéro de ligne de cette cellule active
récupérer la valeur dans les colonnes A, B, C et D de cette ligne et c'est la que je bug
j'ai programmer un peu en VBA il y a fort longtemps sous Excel mais là en VB je n'y suis plus du tout
Merci par avance de votre aide
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
23
24
25
26
27
28
29
30
31
32 Option Explicit Sub Zoom Dim acad as Application Dim fichier as Object Dim feuil as Object Dim cell as Object Dim row as Integer Dim num as String Dim ptx as Single Dim pty as Single Dim ptz as Single acad = Application.Autodesk fichier = ThisComponent feuil = ThisComponent.CurrentController.ActiveSheet cell = ThisComponent.CurrentSelection row = feuil.getCellAdress num = feuil.getCellRangeByName("A;"row) ptx = feuil.getCellRangeByName("B;"row) pty = feuil.getCellRangeByName("C;"row) ptz = feuil.getCellRangeByName("D;"row) (command "_texte" (ptx, pty, ptz) num) End Sub
John
Partager