Bonjour,
l'intitulé de la discussion n'est pas très claire, veuillez m'en excuser.
Voilà,j'ai un script écrit en SQL (oracle sql)
Code SQL : 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
create or replace PROCEDURE DEVIATION AS
DRILL_NAME VARCHAR(24);
DRILL_DEPTH NUMBER;
DRILL_MAX_DEPTH NUMBER;
DRILL_AZIMUT NUMBER;
DRILL_PENDAGE NUMBER;
DRILL_INC NUMBER;
DRILL_EASTING NUMBER;
DRILL_NORTHING NUMBER;
DRILL_TVD NUMBER;
SER_ID VARCHAR(16);
DRILL_AZIMUT_RAD NUMBER;
INSERT INTO temp_dev_d
  SELECT HOLE_ID,
  DEV_DEPTH,
  AZIM,
  PEN,
  INC,
  'S' || RPAD(PREFIXE,4,'_') || LPAD(TO_CHAR(NUMERO),4,'0') || NUMERO_BIS || 'DEVI+D' AS SERMINE_ID,
  0
  FROM
  (select MaxDev.NOM_SONDAGE as HOLE_ID,DEV.zc + MaxDev.SHIFT_M AS DEV_DEPTH,
dev.AZIMUT AS AZIM,dev.pendage AS PEN,dev.pendage+90 AS INC,MaxDev.prefixe,MaxDev.numero,MaxDev.numero_bis
from geode.tbl_deviation DEV,
et je dois le ré-écrire (ou le convertir) en VBA.
Comment faire?
ps: je suis débutante en VBA
Merci déjà