Macro Catia/Excel

[groli]

Bonjour,

 

je cherche à réaliser une macro qui ouvrirait un browser de manière à ouvrir un fichier excel.

 

L'idée est de lancer une macro se trouvant dans un fichier excel qui change d'endroit (d'où l'intérêt du browser) à partir de catia.

 

J'ai essayé la commande

 

catia.FileSelectionBox("titre", "*.extension", CatFileSelectionModeopen)

 

mais ca ne marche pas avec les fichiers qui en sont pas natifs de catia (.catdrawing, .catpart ...).

 

Si quelqu'un a la solution merci de bien vouloir me la donner.

 

 

Pour info si ca intéresse quelqu'un voila comment ouvrir un fichie excel fixe puis d'éxécuter une macro se trouvant dans le classeur excel ouvert :

 

'Ouverture du fichier excel

Set objExcel = CreateObject("Excel.Application" )

Set objWorkbook = objExcel.Workbooks.Open("chemin d'accès\nom de fichier.xls")

objExcel.Visible = True

 

' Exécuter une macro du classeur ouvert

objExcel.run "nom de la macro"

 

 

Olivier

 

[CATIADEV]

Bonjour,

 

Voilà un truc qui peu t'intérésser : :D

 

Private Sub CmdBrowseXLSFile_Click()

 

' Pacourir les répertoires pour accéder au fichier .XLS

On Error GoTo ErrorFile

winCmd.CancelError = True

winCmd.InitDir = "c:\"

winCmd.Filter = "Csv File (.XLS)|*.XLS"

winCmd.FilterIndex = 1

winCmd.Action = 1

winCmd.ShowOpen

 

strPathCsv = winCmd.FileName

 

If winCmd.FileName <> "Null" Then

 

' Permet de modifier la valeur Text du champ de texte.

txtPathExcelFile.Text = strPathCsv 'indique le chemin complet

txtPathExcelFile.BackColor = &H80000005 'change la couleur du label

 

'affichage du bouton Start

cmdStart.Visible = True

 

Else

'txtPathExcelFile.Text = "Please select an .XLS reference file"

End If

 

Exit Sub

 

ErrorFile: MsgBox "Please select an .XLS reference file", vbCritical, "!STOP!"

 

End Sub

 

Ya des trucs en plus mais tu fait un peu de trie et c'est ok :P

 

@ plus

CATIADEV