Macro catia vers excel

[Invité Dinho]

Bonjour,

 

j'ai réalisé une macro catia, et souhaiterais enregistrer les données dans un fichier excel. Comment faire?

Merci

[marc54]

D'abord il faut se connecter à Excel :

1- Ajout à tes références de Microsoft Excel object library

2- puis ce bout de code

 

 Dim oEXCEL As Excel.Application
On Error Resume Next
Set oEXCEL = GetObject(,"Excel.Application")
If Err.Number <> 0 Then
Set oEXCEL = CreateObject("Excel.Application")
oEXCEL.Visible = True
EndIf
On Error Goto 0

 

3- Et enfin le kit de survie dans excel :

 Dim oWkBk As Excel.Workbook
oWkBk = oExcel.Workbooks.Add()            ' obligatoire sinon excel démarre pas
Dim oSheet As Excel.Worksheet
oSheet = oWkBk.ActiveSheet            ' classeur courant 
Dim oCell As Excel.Range
oCell = oSheet.Range("B3")               ' et cellule B3
oCell.Value = "Hello World"