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



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
Merci par avance de votre aide
John