Bonjour
J'ai créé ce code pour pouvoir afficher des photos selon un critère donné par une liste déroulante
J'obtiens une erreur 13 incompatibilité de type sur la 7ème ligne
Set orst = CurrentDb.QueryDefs("NationActeur")
NationActeur est le nom de ma requete
Photo est le champ de la requete ou se trouve le nom de fichier
voici le code

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
Private Sub Nationalité_AfterUpdate()
Dim fic As String
Dim oFSO As Scripting.FileSystemObject
Set oFSO = New Scripting.FileSystemObject
Dim oDb As DAO.QueryDef
Dim orst As DAO.Recordset
Set orst = CurrentDb.QueryDefs("NationActeur")
With orst
    Do Until .EOF
fic = orst("Photo")
oFSO.CopyFile "C:\PhotoActeur\" & fic, "C:\NatioActeur\" & fic
.MoveNext
 Loop
 End With
orst.Close
EDossier = "C:\NatioActeur"
RepaintPhotos
End Sub
Je ne vois pourtant pas d'erreur
Si quelqu'un peut me guider ....
Merci