Discussion :

[nawax88]

Bonjour,

Je suis actuellement sur un projet en vb5/6 et je dois afficher une boite de dialog, la fameuse fenêtre parcourir. Comment faire??

La seule alternative que j'ai trouvé est d'utilisé commonDialog mais le fichier n'est pas reconnu donc je susi dans l'impasse.

Merci d'avance

[ThierryAIM]

Si c'est pour sélectionner un répertoire c'est là :
http://vb.developpez.com/faq/?page=Fichiers#select_rep

Pour un Fichier, c'est bien avec le Commondialog, alors montre nous comment tu as écrit le code

[nawax88]

Oui c'est bien un fichier que je veux récupérer et pas un répertoire mais merci déja.
Pour commonDialog il faut ajouter un fichier .dll je crois et je ne sais pas comment faire. La commonDialog n' y est pas de base.

[nawax88]

J'ai finalement trouvé donc pour ceux que sa intéresse voila le code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
'Utilisation de la fonction :
'mettre une commande de type : Call OuvrirAvecCD("xls", "c:\", "TOTO fait du ski")
'Puis ont peux récupérer le chemin du fichier sélectionné par l'utilisateur
'dans la variable "FichierSélectionné"
'c'est tout !
 
Public FichierSélectionné As String
 
Public Function OuvrirAvecCD(Extension As String, DOSSIER As String, TITRE As String)
    FichierSélectionné = ""
    Set CD = CreateObject("MSComDlg.CommonDialog")
    On Error Resume Next
Debut:
    With CD
        .MaxFileSize = 260
        .InitDir = DOSSIER
        .CancelError = True
        .DialogTitle = TITRE
        .Filter = "Fichiers " & Extension & "(*." & Extension & ")|*." & Extension & "|"
        .FilterIndex = 1
        Err.Clear
        .ShowOpen
        If Err.Number <> 0 Then
            If MsgBox("Vous n'avez pas sélectionné de fichier." & Chr(10) & "Voulez-vous annuler la sélection ?", vbYesNo, TITRE) = vbYes Then
                Exit Function
            Else
                GoTo Debut
            End If
        End If
    End With
    FichierSélectionné = CD.FileName
    Set CD = Nothing
End Function

On peut ne pas utiliser le "FichierSelectionné" et utilisé le nom de la fonction pour renvoyer le chemin du fichier. Ainsi que la gestion de la non sélection de fichier qui n'est pas habituelle

Merci