Bonjour,

Je veux utiliser ce code :
http://access.developpez.com/faq/?pa...EnregistrerVBA
J'utilise VB2008 et Access 2007

Function EnregistrerFichier(strNomFichier As String, inteleve As Integer, strNomDestination) As Boolean
On Error GoTo err
Dim oRst As DAO.Recordset
    'Ouvre un recordset sur les fichiers de l'éleve passé en paramètre
Set oRst = CurrentDb.OpenRecordset("SELECT Fichiers.FileData FROM tbl_eleve WHERE [N°]=" & _
            inteleve & " AND Fichiers.FileName=" & Chr(34) & strNomFichier & Chr(34))
    If Not oRst.EOF Then
    
        oRst.Fields(0).SaveToFile strNomDestination
        EnregistrerFichier = True
    End If    
fin:
Set oRst = Nothing
Exit Function
    
err:
    Select Case err.Number
    Case 3839:
        MsgBox "Impossible d'écraser le fichier", vbCritical
    Case Else
        MsgBox "Erreur inconnue", vbCritical
    End Select
    Resume fin
End Function

Le problème c'est que que currentDB n'est pas défini (d'ailleur j'ai pas compris à quoi ça sert), et que Set n'est plus valide en en VB 2008.

Je vous remercie d'avance.