FileDialog

Le
azerty
Bonjour,


Je recherche à créer et ouvrir une FileDialog.

Et plus particulièrement, faire en sorte que quand celle-ci s'ouvre, en
sélectionnant un fichier ce dernier se trouve dans le champ de la
FileDialog "Nom de fichier" (juste au dessus du champ "Type de fichier".
Je n'arrive pas à coder cette partie pour le "Nom de fichier".

Voici une partie de mon code

Merci bcp





Dim oFD As FileDialog

Set oFD = Application.FileDialog(msoFileDialogOpen)

With oFD

'.Title = "Sélectionnez un répertoire"

.InitialFileName = Txt_FichierEnregistre.Value



If .Show Then MsgBox (.SelectedItems(1))


'Afficher le nom des fichiers sélectionnés


End With
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
3stone
Le #18143331
Salut,

Tu cherches à sélectionner un fichier ?

Regarde ceci :
http://www.3stone.be/access/articles.php?lng=fr&pg3

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)



"azerty"
| Je recherche à créer et ouvrir une FileDialog.
|
| Et plus particulièrement, faire en sorte que quand celle-ci s'ouvre, en
| sélectionnant un fichier ce dernier se trouve dans le champ de la
| FileDialog "Nom de fichier" (juste au dessus du champ "Type de fichier".
| Je n'arrive pas à coder cette partie pour le "Nom de fichier".
|
| Voici une partie de mon code
|
| Merci bcp
|
|
|
|
|
| Dim oFD As FileDialog
|
| Set oFD = Application.FileDialog(msoFileDialogOpen)
|
| With oFD
|
| '.Title = "Sélectionnez un répertoire"
|
| .InitialFileName = Txt_FichierEnregistre.Value
|
|
|
| If .Show Then MsgBox (.SelectedItems(1))
|
|
| 'Afficher le nom des fichiers sélectionnés
|
|
| End With
Publicité
Poster une réponse
Anonyme