[AC-2010] Comment lire les propriétés d'un fichier Accdb en VBA ? [Résolu]

[Daejung]

Bonjour,

Comment lire les propriétés d'un fichier Accdb en VBA ?

Merci pour votre aide

[jpcheck]

Hello
de quel type de propriété parles-tu ici ?

[Daejung]

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

Code :

ThisWorkbook.BuiltinDocumentProperties("Category").Value

par exemple

[nico84]

Bonsoir,

Ce code marche avec un mdb, c'est probablement compatible avec un accdb :

Code :

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

[Daejung]

je n'arrive pas à faire fonctionner ton code qui bute sur

Code :

Dim FSO As New Scripting.FileSystemObject

(Type non défini)

mais j'ai ce code qui est j'ai bien l'impression équivalent

Code :

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

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.

[jpcheck]

Il faut jeter un oeil à la référence Microsoft Scripting Runtime

[Daejung]

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 :

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

[LedZeppII]

Bonjour,

On dirait qu'on les trouve dans

Code :

CurrentDb.Containers("DataBases").Documents("SummaryInfo").Properties

C'est ce que j'ai constaté sur un fichier mdb.

A+

[Daejung]

Merci !!