Access ouvrir un explorer Windows et récupérer le chemin
Résolu
Nintendoboy59
Messages postés
16
Date d'inscription
Statut
Membre
Dernière intervention
-
Nintendoboy59 Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
Nintendoboy59 Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
Bonjour à toutes et à tous,
Etant bloqué car je ne trouve pas de solution j'ai besoin de votre clairvoyance.
Voilà, Sur Access dans une entête j'ai ajouté un bouton qui quand j'appuie dessus, le programme doit ouvrir un explorateur de fichier et quand je choisi un fichier le programme doit me retourner dans une zone de texte le chemin du fichier choisie.
Le bouton s'appelle RACINE_AFFAIRE, et la zone de texte s'appelle CHEMIN et pour finir, voici le début de programme du bouton :
Option Compare Database
Private Sub RACINE_AFFAIRE_Click()
Shell "explorer /e,,", vbMaximizedFocus
End Sub
Je vous remercie d'avance.
Etant bloqué car je ne trouve pas de solution j'ai besoin de votre clairvoyance.
Voilà, Sur Access dans une entête j'ai ajouté un bouton qui quand j'appuie dessus, le programme doit ouvrir un explorateur de fichier et quand je choisi un fichier le programme doit me retourner dans une zone de texte le chemin du fichier choisie.
Le bouton s'appelle RACINE_AFFAIRE, et la zone de texte s'appelle CHEMIN et pour finir, voici le début de programme du bouton :
Option Compare Database
Private Sub RACINE_AFFAIRE_Click()
Shell "explorer /e,,", vbMaximizedFocus
End Sub
Je vous remercie d'avance.
A voir également:
- Access ouvrir un explorer Windows et récupérer le chemin
- Comment ouvrir un fichier bin ? - Guide
- Ouvrir internet explorer - Guide
- Comment recuperer un message supprimé sur whatsapp - Guide
- Ouvrir un fichier .dat - Guide
- Comment ouvrir un fichier docx ? - Guide
1 réponse
Bonjour ,
Pourquoi ouvrir l'exploreur de windows par une commande Shell ???
https://docs.microsoft.com/fr-fr/office/vba/api/access.application.filedialog?redirectedfrom=MSDN
seule chose a faire, remplacer
par
Pourquoi ouvrir l'exploreur de windows par une commande Shell ???
Application.FileDialog(msoFileDialogFilePicker)Ca pause moins de probleme
https://docs.microsoft.com/fr-fr/office/vba/api/access.application.filedialog?redirectedfrom=MSDN
seule chose a faire, remplacer
'Loop through each file selected and add it to our list box. For Each varFile In .SelectedItems Me.FileList.AddItem varFile Next
par
Chemin=.SelectedItems(1)
J'ai fait exactement ce que tu ma dit de faire mais pour la phrase:
Dim fDialog As Office.FileDialog Access marque "Erreur de compilation Type défini par l'utilisateur non défini" du coup j'ai essayé avec juste FileDialog mais c'est le même résultat.
Avez-vous coche cette reference
Outils, reference cocher microsoft office xx.x object library
Le code de micorsoft est un exemple, il faut l'adapter a votre besoin, ex:
Option Compare Database
'Outils, reference cocher microsoft office xx.x object library
en mettant ce code:
e Database
Private Sub RACINE_AFFAIRE_Click()
' ---
' SELECTION SIMPLE DE FICHIER
' ---
'
Dim fd As Office.FileDialog
' Créer un objet FileDialog
Set fd = Application.FileDialog(msoFileDialogOpen)
' Titre de la boîte de dialogue
fd.Title = "Sélectionnez un fichier..."
' Ne pas autoriser la sélection multiple
' (donc 1 seul fichier est sélectionnable à la fois)
fd.AllowMultiSelect = False
' Afficher la boîte de dialogue
If fd.Show() Then
CHEMIN = fd.SelectedItems(1)
End If
Merci pour ton aide ^^