Utilisation winCmd - ouverture de fichier [Résolu]

CATDEV 8 Messages postés samedi 28 octobre 2006Date d'inscription 4 février 2007 Dernière intervention - 6 déc. 2006 à 14:42 - Dernière réponse : drikce06 2247 Messages postés lundi 29 mai 2006Date d'inscription 29 mai 2008 Dernière intervention
- 6 déc. 2006 à 15:41
Bonjour,

j'utilise le common dialog pour sélectionner un fichier à ouvrir mais je ne sais plus comment rajouter des filtres.

Voici mon code :


<hr />
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 = "CATIA Part File (.CATPart)|*.CATPart; CATIA Product File (.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 SubErrorFile: MsgBox "Please select a CATIA component (Part or Product)", vbCritical, "!STOP!"

End Sub

<hr />Ce que j'ai fait ici ne fonctionne pas correctement

Si vous avez une idée.

Cordialement,
Paloma
Afficher la suite 

Votre réponse

7 réponses

Meilleure réponse
CATDEV 8 Messages postés samedi 28 octobre 2006Date d'inscription 4 février 2007 Dernière intervention - 6 déc. 2006 à 15:37
3
Merci
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

Merci CATDEV 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 97 internautes ce mois-ci

Commenter la réponse de CATDEV
Meilleure réponse
drikce06 2247 Messages postés lundi 29 mai 2006Date d'inscription 29 mai 2008 Dernière intervention - 6 déc. 2006 à 15:41
3
Merci
Ha! J'arrive trop tard! C'est cool! Mets réponse acceptée sur ta réponse (j'adore ça reponse acceptée sur ta réponse à ta question)! Ca prouve que tu cherches au moins en attendant qu'on réponde à ta question! C'est sympa!
@+, et bonne prog!

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

Merci drikce06 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 97 internautes ce mois-ci

Commenter la réponse de drikce06
drikce06 2247 Messages postés lundi 29 mai 2006Date d'inscription 29 mai 2008 Dernière intervention - 6 déc. 2006 à 14:52
0
Merci
Salut! exemple:
"Bitmap Windows (*.bmp)| *.bmp,Format d'échange de fichiers GIF (*.gif)|*.gif,Format d'échange de fichiers JPG (*.jpg)| *.jpg"

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Commenter la réponse de drikce06
drikce06 2247 Messages postés lundi 29 mai 2006Date d'inscription 29 mai 2008 Dernière intervention - 6 déc. 2006 à 14:53
0
Merci
Donc apparement ce serai une , à la place de ;

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Commenter la réponse de drikce06
CATDEV 8 Messages postés samedi 28 octobre 2006Date d'inscription 4 février 2007 Dernière intervention - 6 déc. 2006 à 15:31
0
Merci
Merci Drikce 06

Encore une fois c'est toi qui répond aux questions

Dans mon cas, :

winCmd.Filter ="CATIA Part File (.CATPart)|*.CATPart, CATIA Product File (.CATProduct)|*.CATProduct"

Il m'affiche dans les filtres:
CATIA Part File (.CATPart)
*.CATProduct

comprend pas ?
Commenter la réponse de CATDEV
drikce06 2247 Messages postés lundi 29 mai 2006Date d'inscription 29 mai 2008 Dernière intervention - 6 déc. 2006 à 15:35
0
Merci
Et avec le ; ça fait quoi?

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Commenter la réponse de drikce06
drikce06 2247 Messages postés lundi 29 mai 2006Date d'inscription 29 mai 2008 Dernière intervention - 6 déc. 2006 à 15:39
0
Merci
Re:

"TopSolid'Draft - Mise en plan (*.dft)|*.dft|TopSolid'Design - Conception (*.top)|*.top"







 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Commenter la réponse de drikce06

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.