Merci d'avoir répondu aussi vite ! Malheureusement ce n'est pas ça marc54 : ( Pour être plus précis pendant le cours on devait juste faire un copier coller d'une macro enregistré dans CATIA vers l'éditeur VB d'excel. Mais lorsque je réessaye maintenant, en faisant un copier coller du code, j'obtiens une erreur de compilation: Instruction incorrecte à l'extérieur d'une procédure. Le code que j'utilise comme test si ça peut aidé:
Language="VBSCRIPT"
Sub CATMain()
Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
Set bodies1 = part1.Bodies
Set body1 = bodies1.Item("Corps principal")
Set sketches1 = body1.Sketches
Set originElements1 = part1.OriginElements
Set reference1 = originElements1.PlaneYZ
Set sketch1 = sketches1.Add(reference1)
Dim arrayOfVariantOfDouble1(8)
arrayOfVariantOfDouble1(0) = 0.000000
arrayOfVariantOfDouble1(1) = 0.000000
arrayOfVariantOfDouble1(2) = 0.000000
arrayOfVariantOfDouble1(3) = 0.000000
arrayOfVariantOfDouble1(4) = 1.000000
arrayOfVariantOfDouble1(5) = 0.000000
arrayOfVariantOfDouble1(6) = 0.000000
arrayOfVariantOfDouble1(7) = 0.000000
arrayOfVariantOfDouble1(8) = 1.000000
sketch1.SetAbsoluteAxisData arrayOfVariantOfDouble1
part1.InWorkObject = sketch1
Set factory2D1 = sketch1.OpenEdition()
Set geometricElements1 = sketch1.GeometricElements
Set axis2D1 = geometricElements1.Item("Repère")
Set line2D1 = axis2D1.GetItem("Axe horizontal")
line2D1.ReportName = 1
Set line2D2 = axis2D1.GetItem("Axe vertical")
line2D2.ReportName = 2
Set point2D1 = factory2D1.CreatePoint(23.577805, -27.199257)
point2D1.ReportName = 3
Set point2D2 = factory2D1.CreatePoint(69.282471, 29.375193)
point2D2.ReportName = 4
Set line2D3 = factory2D1.CreateLine(23.577805, -27.199257, 69.282471, 29.375193)
line2D3.ReportName = 5
line2D3.StartPoint = point2D1
line2D3.EndPoint = point2D2
sketch1.CloseEdition
part1.InWorkObject = sketch1
part1.Update
End Sub
