j'ai un prog qui ouvre un fichier, et qui le traîte

j'aimerais que l'user puisse, définir le fichier qu'il veut traiter, et donc ouvrir une boîte qui affecterai le fichier et son chemin dans une variable
comment faire pour ouvrir la boîte de sélection?

merci, d'avance

Il s'agit d'une CommonDialog box
tu a sça dans la liste des OCX (Microsoft Common Dialog Control) pour la syntaxe, ça marche comme ça:
With CommonDialog1
.CancelError = True
.InitDir = "C:\"
.Filter = "Texte(*.txt)|*.txt"
.DialogTitle = "Fichier à importer"
.ShowOpen
End With
après, pour récupérer l'adresse, tu fais:
Ma_Variable = CommondDialog1.FileName


-------------------------------
Réponse au message :
-------------------------------

j'ai un prog qui ouvre un fichier, et qui le traîte

j'aimerais que l'user puisse, définir le fichier qu'il veut traiter, et donc ouvrir une boîte qui affecterai le fichier et son chemin dans une variable
comment faire pour ouvrir la boîte de sélection?

merci, d'avance

Tout d'abord, tu dois ajout : Microsoft Common Dialog Control

esuite du défini le code suivant qui va paramètre la boit d'ouverture et te permet de choisir le fichier à ouvrir

Si tu as besoin d'ide pour définir le code du control, il es très bien expliquer dans l'aide de vb si non sa va me faire plaisir de t'aider

Bonne Chance


-------------------------------
Réponse au message :
-------------------------------

j'ai un prog qui ouvre un fichier, et qui le traîte

j'aimerais que l'user puisse, définir le fichier qu'il veut traiter, et donc ouvrir une boîte qui affecterai le fichier et son chemin dans une variable
comment faire pour ouvrir la boîte de sélection?

merci, d'avance

Salut. C'est simple :
Tu insères un control CommonDialog dans ta feuille et tu utilises ses caractéristiques pour choisir le type de fichier à afficher dans la fenêtre.
Ci dessous un exemple qui me sert à rechercher ma base de données :
(Mon CommonDialog s'appelle ChercheDB et cette function est dans le Module d'où l'utilisation de Forme.ChercheDB)


Public Function GetDatabase() As String
' Retourne le chemin de EnvoxDoc.mdb.
' Si EnvoxDoc.mdb n'est pas à l'emplacement par défaut,
' présente à l'utilisateur un contrôle CommonDialog et
' et lui demande de localiser la base de données.
On Error GoTo Erreur

With Forme.ChercheDB
.DialogTitle = "Veuillez rechercher EnvoxDoc.mdb"
.InitDir = App.Path
.FileName = "EnvoxDoc.MDB"
.Filter = "Access (*.mdb)| *.mdb"
.CancelError = True 'Cause une erreur si l'utilisateur clique sur annuler
.ShowOpen
End With

Do While UCase(Right(Trim(Forme.ChercheDB.FileName), Len("EnvoxDoc.mdb"))) <> "ENVOXDOC.MDB"
MsgBox "Le nom du fichier est différent de ENVOXDOC.MDB", _
vbCritical Or vbOKOnly, App.Title & " - Get Database"
Forme.ChercheDB.ShowOpen
Loop

GetDatabase = Forme.ChercheDB.FileName
Exit Function

Erreur:
If Err = 32755 Then 'Annuler cause une erreur
End
End If
End Function