Bonjour,
Comment lire les propriétés d'un fichier Accdb en VBA ?
Merci pour votre aide
Bonjour,
Comment lire les propriétés d'un fichier Accdb en VBA ?
Merci pour votre aide
Hello
de quel type de propriété parles-tu ici ?
Cycle de vie d'un bon programme :
1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise
Pas de question technique par MP, je ne réponds pas
Mes ouvrages :
Apprendre à programmer avec Access 2016, Access 2019 et 2021
Apprendre à programmer avec VBA Excel
Prise en main de Dynamics 365 Business Central
Pensez à consulter la FAQ Excel et la FAQ Access
Derniers tutos
Excel et les paramètres régionaux
Les fichiers Excel binaires : xlsb,
Autres tutos
Les propriétés du fichier lui-même (Catégorie, auteur, titre, mots clés, etc..)
Celles que l'on obtient sous Excel avec
par exemple
Code : Sélectionner tout - Visualiser dans une fenêtre à part ThisWorkbook.BuiltinDocumentProperties("Category").Value
Bonsoir,
Ce code marche avec un mdb, c'est probablement compatible avec un accdb :
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 Public Sub DBproperties() Dim FSO As New Scripting.FileSystemObject Dim FileText As Scripting.TextStream Dim prp 100 Set FileText = FSO.OpenTextFile( "properties.txt", ForWriting, True) 102 On Error GoTo suite: 104 For Each prp In CurrentDb.Properties 106 FileText.WriteLine prp.Name & " : " & prp.Value 108 suite: Next prp 110 FileText.Close: Set FileText = Nothing 112 Set FSO = Nothing 114 Shell "notepad.exe "properties.txt" End Sub
Utilisez Planet, gestion d'entreprise gratuite pour TPE / PME
je n'arrive pas à faire fonctionner ton code qui bute sur
(Type non défini)
Code : Sélectionner tout - Visualiser dans une fenêtre à part Dim FSO As New Scripting.FileSystemObject
mais j'ai ce code qui est j'ai bien l'impression équivalent
mais si je liste (avec debug.print) le contenu des propriétés du fichier accdb , il laisse à blanc les propriétés "catégorie" , "Titre" ou "Société", par exemple, ou les propriétés personnalisées.
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
22
23
24
25
26
27
28
29
30
31
32
33
34
35 Function Get_Propriete(Fichier As String, Propriete As Integer) 'http://www.microsoft.com/resources/documentation/windows/2000/server/scriptguide/en-us/sas_fil_lunl.mspx ' Nécessite d'activer la référence Microsoft Shell Controls and Automation Dim FSO As Object, oFichier As Object Dim objShell As Shell32.Shell Dim objFolder As Shell32.Folder Dim strFileName As Shell32.FolderItem Dim Chemin As String, NomFich As String, Resultat As String Dim i As Integer '----- Set FSO = CreateObject("Scripting.FileSystemObject") Set oFichier = FSO.GetFile(Fichier) Chemin = FSO.GetParentFolderName(oFichier) NomFich = FSO.GetFileName(oFichier) '----- Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.NameSpace(Chemin) Set strFileName = objFolder.Items.Item(NomFich) For i = 0 To 200 'Cet exemple n'affiche pas les propriétés vides If objFolder.GetDetailsOf(strFileName, i) <> "" Then _ Resultat = Resultat & objFolder.GetDetailsOf(objFolder.Items, i) _ & ": " & objFolder.GetDetailsOf(strFileName, i) & vbLf Debug.Print i & " : " & objFolder.GetDetailsOf(objFolder.Items, i) & ": " & objFolder.GetDetailsOf(strFileName, i) Next Get_Propriete = objFolder.GetDetailsOf(strFileName, Propriete) 'Debug.Print objFolder.GetDetailsOf(strFileName, Propriete) End Function
Il faut jeter un oeil à la référence Microsoft Scripting Runtime
Cycle de vie d'un bon programme :
1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise
Pas de question technique par MP, je ne réponds pas
Mes ouvrages :
Apprendre à programmer avec Access 2016, Access 2019 et 2021
Apprendre à programmer avec VBA Excel
Prise en main de Dynamics 365 Business Central
Pensez à consulter la FAQ Excel et la FAQ Access
Derniers tutos
Excel et les paramètres régionaux
Les fichiers Excel binaires : xlsb,
Autres tutos
Ok mais ce ne sont pas les propriétés affichées dans l'onglet backstage. et il n'y a pas par exemple les propriétés "catégorie" , "Auteur" ou "Société" ou les propriétés personnalisées.
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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 Name : C:\Users\.........\......\......accdb Connect : Transactions : Vrai Updatable : Vrai CollatingOrder : 1036 QueryTimeout : 60 Version : 14.0 RecordsAffected : 0 ReplicaID : DesignMasterID : AccessVersion : 09.50 Build : 24 Track Name AutoCorrect Info : 0 Perform Name AutoCorrect : 0 ProjVer : 119 CpgConversion : 1252 AppTitle : blabla Auto Compact : 1 Show Values Limit : 1000 Show Values in Indexed : 1 Show Values in Non-Indexed : 1 Show Values in Remote : 0 Show Values in Snapshot : 1 Show Values in Server : 0 Use Default Page Folder : 0 Use Default Connection File : 0 Row Limit : 10000 ANSI Query Mode : 0 NavPane Closed : 0 NavPane Width : 320 NavPane Category : 0 NavPane View By : 0 NavPane Sort By : 1 StartUpShowDBWindow : Faux StartUpShowStatusBar : Vrai AllowShortcutMenus : Vrai AllowFullMenus : Vrai AllowBuiltInToolbars : Vrai AllowToolbarChanges : Vrai AllowSpecialKeys : Vrai UseAppIconForFrmRpt : Faux Show Navigation Pane Search Bar : 1 UseMDIMode : 0 ShowDocumentTabs : Vrai AllowDatasheetSchema : Faux WebDesignMode : 0 DesignWithData : Vrai Picture Property Storage Format : 0 Theme Resource Name : Thème Office HasOfflineLists : 70 CustomRibbonID : Général
Bonjour,
On dirait qu'on les trouve dansC'est ce que j'ai constaté sur un fichier mdb.
Code : Sélectionner tout - Visualiser dans une fenêtre à part CurrentDb.Containers("DataBases").Documents("SummaryInfo").Properties
A+
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager