Coucou,
Mon site, comme vous pouvez le voir, est en pleine restructuration !
Ravalement de façade et un peu de lubrification dans la mécanique !
Ma dernière sauvegarde étant du mois de septembre, je remets à jour les derniers articles, mais rien n’est perdu...
En cas de besoin urgent : webmaster@patcatnats.fr
@ bientôt

PatCatNat’s
Faire de son négatif un positif !

Site personnel de Patrice MOREL.

Boîte de sélection de chemins et ou de fichier(s)
Article mis en ligne le 17 novembre 2006
dernière modification le 12 décembre 2006

par Patrice MOREL

Les fonctions OpenFile et SaveFile Permettent d’ouvrir une boîte de dialogue pour récupérer le chemin complet d’un ou plusieurs fichiers à ouvrir sélectionnés par l’opérateur.

Access 2003

Access 2003 | Chapitre haut de page |

Access 97

Access 97 | Chapitre bas de page |

Avec Access 2003

Version utilisée dans ma Médiathèque.
Trouvé sur le site de Raymond.

Appel de la fonction

Répertoire_Initial indique le nom du répertoire qui sera affiché dans la boite de dialogue.
Type_Sélection indique le type de sélection des fichiers, mono sélection (1 seul fichier) ou multi sélection (plusieurs fichiers). La boîte SaveFile sera toujours en mone-sélection.
Type de fenêtre indique par True ou False si la boîte de sélection sera une fenêtre modale ou non. La boîte SaveFile sera toujours affichée en mode modal.
Type de fichier indique le type de fichiers à pré-sélectionner à l’ouverture de la boîte.
La valeur sera sélectionnée entre : AllFiles, Image, MSOffice, MultiMedia et Sound.
KbBufferLength, valeur par défaut = 4, indique la taille maximum en Ko des données retournées par la fonction. Valeur de 4 à 63 Ko. En mono sélection, la taille sera fixe à 254 caractères.
WithPath indique par True ou False (True par défaut) si le chemin du ou des fichiers doit être indiqué dans la donnée retournée. Si vous indiquez False, les noms de fichiers seulement sont retournés par la fonction.

Valeurs retournées par l’api

l ’api retournera le nom du fichier ou le chemin de tous les fichiers suivi des noms de fichiers, chaque élément étant séparé par ;.
 En mono-sélection, si le nombre de caractères retournés est > 254, la valeur retournée sera "" .
 En multi-sélection, si le nombre de caractères retournés est > 4094, la valeur retournée sera "" .

l ’api met à votre disposition deux valeurs, pour la fonction OpenFile :

La variable public nOpenFile qui contient le nombre de fichiers sélectionnés. Si le bouton Annuler a été cliqué la valeur retourné sera 0.
Le tableau public tOpenFile de base 0, contenant le chemin et les noms des fichiers si le nombre de fichiers est supérieur à 1.
l ’élément tOpenFile(0) contient le chemin complet de tous les fichiers sélectionnés.
les éléments tOpenFile(1) à tOpenFile(n) contiennent les noms de fichiers (uniquement les noms).
pour travailler avec le tableau tOpenFile vous pouvez utiliser les fonctions LBound et UBound.

Exemple d ’appel de fonction

Code à insérer dans un module standard

La taille maximum des valeurs retournées sera de 12 Ko et le chemin sera indiqué dans la valeur retournée.
Le contrôle Lememo contiendra le chemin complet du fichier à ouvrir en mono-sélection ou le chemin de tous les fichiers suivi de la liste des fichiers sélectionnés en multi-sélection.
En multi-sélection tous les noms seront séparés par un ; .
La fenêtre , ici, sera ouverte en modal. Aucune autre fenêtre ne pourra être activée tant que la fenêtre openfile ne sera pas fermée.

La taille maximum des valeurs retournées sera de 12 Ko et le chemin ne sera pas indiqué dans la valeur retournée.
Le contrôle Lememo contiendra seulement le nom du fichier à ouvrir en mono-sélection ou seulement les noms de tous les fichiers en multi-sélection.
En multi-sélection tous les noms seront séparés par un ; .
La fenêtre , ici, sera ouverte en modal. Aucune autre fenêtre ne pourra être activée tant que la fenêtre openfile ne sera pas fermée.

Fonction à insérer dans un module standard :

Avec Access 97

Version moins édulcorée, mais qui fonctionne (utilisée dans la base Cantor à VFE).
Trouvé sur le site de Jessy Sempere à la rubrique Fichiers/Sélectionner un fichier.

Ce code permet d’ouvrir une boîte de dialogue afin de pouvoir sélectionner un fichier.

Vous devez copier tout le code qui suit dans un module que vous pouvez appeler "modApiOpenFile".
Ensuite vous n’avez plus qu’à appeler la fonction "OpenFile()".

L’argument "strInitialDir" représente le chemin par défaut lors de l’ouverture de la boîte de dialogue.

Fonction à insérer dans un module standard :

Exemple d’appel de la fonction :
[BtnSelectChemin] est le bouton sur lequel l’évènement s’effectue.
[CheminBase] est le contrôle du formulaire qui doit contenir le chemin de la base de donnée sur laquelle travailler.