Discussion :

[denis76000]

Bonjour,
Je souhaite récupérer le nom et le chemin d'un fichier dans une table d'une base Access 2003.
J'ai testé la procédure "Afficher la boîte de dialogue ouvrir afin de récupérer le nom et le chemin du fichier sélectionné" sur la FAQ Access.
Cela fonctionne jusqu'à l'affichage du chamin et du nom dans la boite de dialogue.
Comment récupérer maintenant cette information (chemin+nom) dans un controle "zone de texte" associé à un champ d'une table?
Par avance, merci de votre aide.
Denis

[helas]

Code :

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

1
2
 
 Forms("NomFormulaire")!MonControle = NomDossier & NomFichier

[denis76000]

Quel est le lien entre la procédure msgbox et Forms("NomFormulaire")!MonControle = NomDossier & NomFichier ?
Comment NomDossier et NomFichier sont-ils renseignés?
Merci.
Denis

[Mahefasoa]

Bonsoir,

Je vais essayer d'être le plus clair possible. Pour cette explication, j'utilise la référence Microsoft Office 11.0 Object Library (donc Office 2003) pour la boîte de dialogue me permettant de sélectionner le fichier (ainsi que le chemin complet). Pour activer cette référence, il faut passer par le menu Outils -> Référence.
Voici le code avec le commentaire

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
 
'Déclaration des variables
'dossier sera la boîte de dialogue de sélection de fichier
'chemin sera l'un des éléments sélectionnés se trouvant dans la collection SelectedItems
'fichier sera la variable qui recevra tout!
    Dim dossier As FileDialog, chemin As Variant, fichier As String
 
'Initialisation de la bopite de dialogue. On peut utilser msoFileDialogFolderPicker pour sélectionner des dossiers.
'Ici on ne sélectionne qu'un fichier donc msoFileDialogFilePicker
    Set dossier = Application.FileDialog(msoFileDialogFilePicker)
    With dossier
 
'on affiche la boîte de dialogue
        .Show
        For Each chemin In .SelectedItems
'on prend l'élément sélectionné
            fichier = chemin
        Next
    End With
'on le met dans un contrôle du formulaire: chemin+fichier
    Me.Destination = fichier

Ce code a été tiré de la qui est . Je te conseille vivement de faire un tour là-bas de temps en temps.

Bon courage et @+

[denis76000]

Bonjour,
J'ai testé la procédure précédente depuis quelques temps. Cela fonctionne bien.
Je souhaite néanmoins améliorer son efficacité en stockant dans une table un chemin par défaut et en ne récupérant que le nom du fichier sans le chemin par la boite de dialogue.
Y a-t-il un moyen de n'avoir que le nom du fichier dans le résultat de la boite de dialogue?
Par avance, merci,
Cordialement,
Denis

[Mahefasoa]

Bonjour,

Bonjour,
J'ai testé la procédure précédente depuis quelques temps. Cela fonctionne bien.
Je souhaite néanmoins améliorer son efficacité en stockant dans une table un chemin par défaut et en ne récupérant que le nom du fichier sans le chemin par la boite de dialogue.
Y a-t-il un moyen de n'avoir que le nom du fichier dans le résultat de la boite de dialogue?
Par avance, merci,
Cordialement,
Denis

En utilisant la touche , tu peux trouver tout ce qu'il faut pour te rendre heureux. Le résultat renvoyé est un chemin complet dans le style c:\blabla\blibli\fichier.ext. Tu peux en extraire le nom de fichier en utilisant une ou deux fonctions chaînes: le nom de fichier se trouve après le dernier anti-slash!

Bon courage et @+

[denis76000]

Bonjour,
Je vais tester cela.
Afin de gagner du temps, comment faire pour ouvrir la boite de dialogue dans un répertoire précis (dont le chemin seraity stocké dans une table)? Actuellement, elle s'ouvre dans "Mes documents"
Merci,
Denis

[Mahefasoa]

Re,

Bonjour,
Je vais tester cela.
Afin de gagner du temps, comment faire pour ouvrir la boite de dialogue dans un répertoire précis (dont le chemin seraity stocké dans une table)? Actuellement, elle s'ouvre dans "Mes documents"
Merci,
Denis

Utilises la propriété InitialFileName pour définir le chemin et/ou le(s) fichier(s) à afficher initialement.

Code (syntaxe) :

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

1
2
 
.InitialFileName = "C:\blabla\blibli"

Bien entendu, à "C:\blabla\blibli" tu mets le contenu du chemin par défaut contenu dans ta table.

Bon courage et @+