Utilisation winCmd - ouverture de fichier

Cool j'ai trouvé :)

' ***** PART or ASSEMBLY Selection ************************************************************************************
Private Sub cmdBrowseEntry_Click()
' Pacourir les répertoires pour accéder au fichier .csv
    On Error GoTo ErrorFile
    winCmd.CancelError = True
    winCmd.InitDir = "c:\"
    winCmd.Filter = "Part (.CATPart)|*.CATPart|Product (.CATProduct)|*.CATProduct"
    winCmd.FilterIndex = 1
    winCmd.Action = 1
    winCmd.ShowOpen
       
        strFileEntry = winCmd.FileName
   
    If winCmd.FileName <> "Null" Then
       
        ' Permet de modifier la valeur Text du champ de texte.
            txtFullNAme.Text = strFileEntry 'indique le chemin complet
            'txtFullNAme.BackColor = &H80000005  'change la couleur du label
   
            'affichage du bouton Start
                cmdStart.Visible = True
            ' récupération du nom de fichier ------------------------------

            Call funStringMixer(strFileEntry, False, "\")
           
        Else
       
    End If
   
    Exit Sub

ErrorFile: MsgBox "Please select a CATIA component (Part or Product)", vbCritical, "!STOP!"

End Sub

Il faillait mettre un | et non , ni ;

Merci c'est résolu.

Cordialement,
Paloma