VB dans calc Libre office
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:
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
