Extraction de données

Ben oui, très juste! J'avais oublié de prendre en compte les divers répertoires et sous-rep, je suis trop bête!

Voici une version qui devrait être plus mieux

(Pour cette nouvelle version, il serait mieux d'effacer le fichier Pizza.accdb avant, sinon il risquerait d'y avoir des info en double)

Pierre

Ben oui, très juste! J'avais oublié de prendre en compte les divers répertoires et sous-rep, je suis trop bête!

L’antiphrase (substantif féminin), du grec antiphrasis, de anti (« contre ») et phrasis (« action d'exprimer par la parole »), est une figure de style qui consiste à employer, par ironie ou par euphémisme, un mot, une locution ou une phrase, dans un sens contraire.

Bonjour à tous,

Encore une erreur potentielle pouvant survenir dans certains cas (je n'avais pas alloué suffisamment de place pour un champ de la base du .accdb).

Réparée ici dans la version du jour (à utiliser après avoir effacer le fichier Pizza.accdb)

+ amélioration dans l'identification des fichiers à importer (chemin absolu au lieu du chemin relatif)

Pierre

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

C'est curieux!?

Essaye cette nouvelle version (avec qq modif)

Pierre

9pizza.xlsm (80.47 Ko)

Voila,

Celle-ci fonctionne parfaitement.

J'avoue que je n'arrive plus à suivre le code

Rechercher des sujets similaires à "extraction donnees"