Access, lister contenu d'un dossier + cliquable
Résolu/Fermé
Brandysve
Messages postés
55
Date d'inscription
lundi 7 octobre 2013
Statut
Membre
Dernière intervention
16 février 2017
-
31 janv. 2014 à 14:29
Brandysve Messages postés 55 Date d'inscription lundi 7 octobre 2013 Statut Membre Dernière intervention 16 février 2017 - 31 janv. 2014 à 15:52
Brandysve Messages postés 55 Date d'inscription lundi 7 octobre 2013 Statut Membre Dernière intervention 16 février 2017 - 31 janv. 2014 à 15:52
A voir également:
- Access, lister contenu d'un dossier + cliquable
- Mettre un mot de passe sur un dossier - Guide
- Dossier appdata - Guide
- Word a trouvé du contenu illisible - Guide
- Dossier rar - Guide
- Impossible de supprimer un dossier - Guide
3 réponses
eljojo_e
Messages postés
1155
Date d'inscription
lundi 10 mai 2010
Statut
Membre
Dernière intervention
14 octobre 2022
152
31 janv. 2014 à 15:34
31 janv. 2014 à 15:34
Bonjour,
Regarde ce code (a adapter) :
Tu peux déjà lister tout les fichier d'un dossier (pas que excel)
Si ca peu t'aider,
Regarde ce code (a adapter) :
Private Sub Form_Current()
Dim strDossier As String
Dim strFichier As String
strDossier = "D:\Modèle\2 et 3\"
' Vérifier que le dossier existe bien
If Dir(strDossier, vbDirectory) = "" Then
MsgBox "Dossier introuvable !", vbExclamation
Exit Sub
End If
' Lister tous les fichiers du dossier
strFichier = Dir(strDossier, vbNormal)
While strFichier <> ""
' Afficher le nom du fichier
Me.ModeleG.AddItem strFichier 'me.ModeleG est une liste déroulante
' Lire le fichier suivant
strFichier = Dir
Wend
End Sub
Tu peux déjà lister tout les fichier d'un dossier (pas que excel)
Si ca peu t'aider,
Brandysve
Messages postés
55
Date d'inscription
lundi 7 octobre 2013
Statut
Membre
Dernière intervention
16 février 2017
5
Modifié par Brandysve le 31/01/2014 à 15:41
Modifié par Brandysve le 31/01/2014 à 15:41
Merci eljojo_e, j'ai presque résolu mon souci.
Voilà ce que j'ai trouvé via l'aide access
Seulement maintenant je voudrais que lorsque je double_click sur le nom d'un fichier, il s'ouvre
Voilà ce que j'ai trouvé via l'aide access
Private Sub ListBox2_Click()
MsgBox ListBox2.Value
End Sub
Private Sub Form_Open(Cancel As Integer)
Me.ListBox2.RowSourceType = "Liste valeurs"
Me.ListBox2.RowSource = ShowFolderList("C:\Users\***\Desktop\En attente")
End Sub
Function ShowFolderList(folderspec) As String
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.Files
For Each f1 In fc
s = s & f1.Name
s = s & ";"
Next
ShowFolderList = s
End Function
Seulement maintenant je voudrais que lorsque je double_click sur le nom d'un fichier, il s'ouvre
eljojo_e
Messages postés
1155
Date d'inscription
lundi 10 mai 2010
Statut
Membre
Dernière intervention
14 octobre 2022
152
31 janv. 2014 à 15:45
31 janv. 2014 à 15:45
Avec mon code qui alimente une liste déroulante, tu met un code sur l'évènement sur après_maj, qui ouvre le fichier avec le nom que tu as sélectionné :
Private Sub xxxx_afterupdate()
Dim xls As Excel.Application
On Error GoTo errHnd
Set xls = CreateObject("Excel.Application")
xls.Workbooks.Open "D:\tartanpion\" & me.Listedéroulante.value ' et si il n'y a pas les extension, rajoute & ".xls"
xls.Visible = True
Exit Sub
errHnd:
MsgBox "Erreur N° " & Err.Number & vbLf & Err.Description, , Err.Source
End Sub
Brandysve
Messages postés
55
Date d'inscription
lundi 7 octobre 2013
Statut
Membre
Dernière intervention
16 février 2017
5
31 janv. 2014 à 15:52
31 janv. 2014 à 15:52
Merci beaucoup eljojo_e, c'est niquel o/
A bientôt
A bientôt
