Discussion :

[kopofb]

Bonjour,
existe-t-il une commande VB qui permet (a la suite d'un clic sur un bouton par ex) l'ouverture d'une fenetre d'explorer pour sélectionner un fichier sur son dsque dur.
merci

[Theocourant]

Salut,

Cela marche avec CommonDialog et sa méthode ShowOpen

Je n'ai pas d'exemple tout fait sous la main

Pour plus de détails, fais une recherche dans l'aide contextuelle de VB ou sur le forum ...

+

Théo

[Xo]

Oui, via un Common Dialog.

Voici un exemple de code se basant sur une zone de texte nommée txtPJ et un bouton nommé cmdCheminPJ

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
Private Sub cmdCheminPJ_Click()
    Dim Chem As String
 
    On Error GoTo errImage
 
    If Len(Trim(txtPJ.Text)) > 0 Then
        cdgCheminImage.FileName = txtPJ1.Text
    Else
        cdgCheminImage.FileName = gsPathAnex & "*.*"
    End If
 
    cdgCheminImage.Filter = "*.*|*.*"
 
    cdgCheminImage.ShowOpen
    txtPJ1.Text = cdgCheminImage.FileName
 
    Exit Sub
 
errImage:
    If Err.Number = 32755 Then Exit Sub 'btn Annuler
    msg = tradFMessage("Erreur n° ") & Err.Number & vbLf & _
           Err.Description
    MsgBox msg, vbOKOnly + vbCritical, "Localisation Pièce Jointe"
End Sub

[kopofb]

ok merci beaucoup je test ca de suite

[kopofb]

ca fonctione tres bien
j'ai juste rajouter:

Code :

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

1
2
Dim cdgCheminImage
Set cdgCheminImage = CreateObject("MSComDlg.CommonDialog")

encore merci!

[Xo]

ca fonctione tres bien
j'ai juste rajouter:

Code :

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

1
2
Dim cdgCheminImage
Set cdgCheminImage = CreateObject("MSComDlg.CommonDialog")

encore merci!

Oui, j'avais oublié de rajouter mon contrôle CD, le plus simple étant de l'ajouter manuellement sur ton formulaire

[leroissejp]

Bonjour,
Si tu veux lire le fichier, le modifier et l'enregistrer, tu peux faire ceci
Sur ta Form tu places deux CommandButton(cmdOuvrir, cmdEnregisrter), un TextBox (propriété Multiligne à True) et le CommonDialog.

Code pour ouvrir et lire le fichier choisi.

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
 
Private Sub cmdOuvrir_Click()
With CommonDialog1
     .DialogTitle = "Rechercher un fichire"
     .CancelError = True
     .InitDir = "C:\"
     .Filter = "Fichier texte (*.txt)|*.txt|Tous (*.*)|*.*"
     .FilterIndex = 1
On Error GoTo Annuler:
     .ShowOpen
End With
MsgBox "Le fichier " & CommonDialog1.FileName & "a été sélectionné."
GoTo Suite:
Annuler: MsgBox "Vous n'avez sélectionné aucun fichier", vbInformation, "Annler"
Suite:
On Error Resume Next
Dim tout, texte, crft, nFich
crft = Chr(13) + Chr(10)
nFich = CommonDialog1.FileName
 Open nFich For Input As #1
Line Input #1, texte
tout = texte
If Len(tout) <> 0 Then
  While Not EOF(1)
    Line Input #1, texte
tout = tout + crft + texte
Wend
End If
Text1.Text = tout
Close #1
End Sub

Code pour Enregistrer les modifications.

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub cmdEnregistrer_Click()
Dim nFich
nFich = CommonDialog1.FileName
Open nFich For Output As #1
Print #1, Text1.Text
Close #1
Text1.Text = ""
End Sub

jpleroisse