none
Attacher des pièces jointes depuis Access 2007 en VBA RRS feed

  • Question

  • Bonjour,

    J'essaye d'attacher des pièces jointes depuis Access 2007 en VBA dans une liste Sharepoint.

    J'arrive à créer l'item dans la liste mais ensuite impossible de créer les attachments.

    J'utilise Loadfromfile et j'ai le message d'erreur 3001 (Argument non valide)

    Si j'ouvre la table DOCUMENTS dans Access (qui correspond à ma liste Sharepoint), je peux ajouter des pièces jointes.

    Merci par avance de votre aide.

    Voici mon code :

    Private Sub try4()

    Dim db As Database
    Dim rstDoc As Recordset
    Dim rstAtt As Recordset2
    Dim fld As Field2

    Set db = CurrentDb
    Set rstDoc = db.OpenRecordset("DOCUMENTS")

    Do While Not rstDoc.EOF
        If rstDoc("ID") = 179 Then
            Set rstAtt = rstDoc.Fields("Attachments").Value
            Set fld = rstAtt("FileData")
            rstDoc.Edit
            rstAtt.AddNew
            fld.LoadFromFile "C:\Users\bancaud\Documents\ASL\ADVE\KSA\TelCisco_ModeEmploi.pdf"
            rstAtt.Update
            rstDoc.Update
            rstAtt.Close
        End If
        rstDoc.MoveNext
    Loop
    rstDoc.Close
    End Sub


    mercredi 11 octobre 2017 13:49