Insertion de pièces jointes dans une base .Accdb
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:
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.