Salut,
Impossible de faire tourner les deux dernières versions.
Blocage sur :
Req = "SELECT Id, Ndf FROM Liste_Fichiers WHERE NDF='" & Ndf & "'"
Rst.Open Req, Cnx, 3
If Rst.RecordCount = 0 Then ' le fichier n'est pas encore traité
Rst.Close
Req = "SELECT MAX(Id) FROM Liste_Fichiers"
Rst.Open Req, Cnx, 3
R = Rst.GetRows
If IsNull(R(0, 0)) Then Num = 0 Else Num = R(0, 0)
Req = "INSERT INTO Liste_Fichiers (Id, Ndf) VALUES (" & Num + 1 & ",'" & Ndf & "')"
Cnx.Execute Req