OVH Cloud OVH Cloud

Boite de dialogue "Ouvrir" et question bonus

1 réponse
Avatar
Vero
Bonjour à tous,

Sur Google on trouve beaucoup de msg MPFA à propos de l'utilisation de la
Boite de dialogue windows "Ouvrir fichier". Avec Active X, sans Active X...
je m'y perd un peu.

Mon besoin :
Je suis sous Access XP.
Je voudrais pouvoir choisir un fichier dans une boite de dialogue, cliquer
sur "Ouvrir" et faire 2 opérations :
- récupérer le nom et le dossier du fichier (comme tout le monde)
- renommer ce fichier automatiquement (sans intervention de l'utilisateur)

Si la question a déjà été posée, pouvez vous m'orienter vers la doc la + à
jour (Access XP) ?

Question BONUS :
Est-ce possible de fonctionner par un glisser-déposer ?
--> L'utilisateur saisit un fichier avec la souris, le glisse et le dépose
sur une zone de formulaire Access XP, qui effectue les 2 opérations citées
ci-dessus.

Merci !!
Fabien

1 réponse

Avatar
Raymond [mvp]
Bonjour.

tu peux utiliser l'api openfile que tu trouveras sur :
http://officesystem.access.free.fr/apiopenfile.htm à placer dans un module
standard.
dans ton formulaire tu peux faire:
Dim Monfichier As String ' pour récupérer le nom du fichier
Dim fs As New FileSystemObject
Monfichier = OpenFile(, Mono_Sélection, True, MSOffice, , True)
MsgBox Monfichier 'pour vérifier ta fonction
fs.MoveFile Monfichier, "c:nouveau.mdb"
Set fs = Nothing

cocher la référence de librairie microsoft scripting runtime.
monfichier contiendra le nom complet du fichier sélectionné
le movefile permet en même temp de renommer et déplacer le fichier
sélectionné.
le drag and drop n'est pas géré dans l'api openfile et dans ce cas précis il
n'apporterait pas d'amélioration utilisateur.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Vero" a écrit dans le message de news:
41e8f165$0$12920$
Bonjour à tous,

Sur Google on trouve beaucoup de msg MPFA à propos de l'utilisation de la
Boite de dialogue windows "Ouvrir fichier". Avec Active X, sans Active
X...
je m'y perd un peu.

Mon besoin :
Je suis sous Access XP.
Je voudrais pouvoir choisir un fichier dans une boite de dialogue, cliquer
sur "Ouvrir" et faire 2 opérations :
- récupérer le nom et le dossier du fichier (comme tout le monde)
- renommer ce fichier automatiquement (sans intervention de l'utilisateur)

Si la question a déjà été posée, pouvez vous m'orienter vers la doc la + à
jour (Access XP) ?

Question BONUS :
Est-ce possible de fonctionner par un glisser-déposer ?
--> L'utilisateur saisit un fichier avec la souris, le glisse et le dépose
sur une zone de formulaire Access XP, qui effectue les 2 opérations citées
ci-dessus.

Merci !!
Fabien