Discussion :

[Julien Dufour]

Bonjour,

Je viens de récupérer une base en access 2007 laissée en plan par un informaticien externe qui a quitté une association de manière un peu précipitée.

On me demande de reprendre les données mais malheureusement, je ne dispose que d'access 2003.

J'ai téléchargé une version d'essai pour pouvoir ouvrir la base est récupéerer les données mais je bloque sur des photos qui sont intégrées à une table sous forme de pièces attachées.

Savez-vous s'il y a un moyen d'automatiser l'emregistrement desimages attachées dans un répertoire extrene sous forme de fichier jpg ?

Merci d'avance de votre aide.

[Tofalu]

Savez-vous s'il y a un moyen d'automatiser l'emregistrement desimages attachées dans un répertoire extrene sous forme de fichier jpg ?

Salut,

Une boucle en VBA avec

http://access.developpez.com/access2...EnregistrerVBA

Y a peut être même un exemple avec la boucle sur le forum

[Tofalu]

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
Sub lance()
Const CHEMINDESTINATION = "C:\Sauvegarde\"
 
Dim oDb As DAO.Database
Dim oRst As DAO.Recordset
Dim oFld As DAO.Field2
 
Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset("SELECT ID,ChampPJ.Filedata AS DATA, champPJ.Filename as PATH FROM Essai")
While Not oRst.EOF
    Set oFld = oRst.Fields("DATA")
    oFld.SaveToFile CHEMINDESTINATION & _
            oRst.Fields("ID").Value & "_" & oRst.Fields("PATH").Value
    oRst.MoveNext
Wend
MsgBox "Fini"
End Sub

[Tofalu]

On oubliera pas d'ailleurs de placer un doevents pour éviter de perdre la main trop longtemps et de figer l'UC

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
Sub lance()
Const CHEMINDESTINATION = "C:\Sauvegarde\"

Dim oDb As DAO.Database
Dim oRst As DAO.Recordset
Dim oFld As DAO.Field2

Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset("SELECT ID,ChampPJ.Filedata AS DATA, champPJ.Filename as PATH FROM Essai")
While Not oRst.EOF
    Set oFld = oRst.Fields("DATA")
    oFld.SaveToFile CHEMINDESTINATION & _
            oRst.Fields("ID").Value & "_" & oRst.Fields("PATH").Value
    DoEvents
    oRst.MoveNext
Wend
MsgBox "Fini"
End Sub

[Julien Dufour]

Merci beaucoup, je teste ça dès que j'ai fini le boulot.

Désolé, j'avais bien vu ce code dans la FAQ, mais je pensais qu'il ne s'appliquait que pour des pièces jointes ne stockant que le chemin et non le fichier complet.