Bonjour,

J'extrait des infos de documents Word que je range dans une base de données .mdb, cela se fait en vba Word. (Je ne suis pas bien placé mais je n'ai pas trouvé )

Parfois ces documents Word contiennent des pièces jointes. Elles sont récupérées et stockées dans un répertoire à part mais j'aurais voulu les mettre dans ma base de données. J'ai cru comprendre que le format ACCDB permettait cela.
Mais malgré mes recherches, je n'arrive pas à trouver comment définir le champ qui contiendrait ces pièces jointes, ni comment ensuite les gérer.
J'ai trouvé ce code pour créer une table dans une base .accdb mais je cale pour le champ pièce jointe.

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
 
Sub ADO_Conn()
 
Dim oCatalog As Object
Set oCatalog = CreateObject("ADOX.Catalog")
oCatalog.Create "provider='Microsoft.ACE.OLEDB.12.0';" & _
                "Data Source=D:\TestDB.accdb"
 
End Sub
 
Sub Create_Table()
'!!!!!! Add Reference to Microsoft ActiveX Data Objects 2.x Library !!!!!!
 
Dim strConnectString        As String
Dim objConnection           As ADODB.Connection
Dim strDbPath               As String
Dim strTblName              As String
Dim wCL                     As Worksheet
Dim wCD                     As Worksheet
 
'Set database name and DB connection string--------
strDbPath = "D:\TestDB.accdb"
'==================================================
strConnectString = "Provider = Microsoft.ACE.OLEDB.12.0; data source=" & strDbPath & ";"
 
'Connect Database; insert a new table
Set objConnection = New ADODB.Connection
'On Error Resume Next
With objConnection
    .Open strConnectString
    .Execute "CREATE TABLE " & "TEST" & " (" & _
            "ID text(20), " & _
            "Libelle text(30)," & _
            "piecej ????," & _
            "Lat int)"
End With
 
Set objConnection = Nothing
 
End Sub
Merci de l'aide que vous pouvez m'apporter.