Extraction de données

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
pierrep56
Membre impliqué
Membre impliqué
Messages : 1'201
Appréciations reçues : 197
Inscrit le : 18 juin 2014
Version d'Excel : 2016

Message par pierrep56 » 2 mars 2019, 11:26

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
Modifié en dernier par pierrep56 le 3 mars 2019, 15:19, modifié 1 fois.
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 14'982
Appréciations reçues : 881
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 2 mars 2019, 11:37

pierrep56 a écrit :
2 mars 2019, 11:26
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.

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
Avatar du membre
pierrep56
Membre impliqué
Membre impliqué
Messages : 1'201
Appréciations reçues : 197
Inscrit le : 18 juin 2014
Version d'Excel : 2016

Message par pierrep56 » 3 mars 2019, 12:16

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
Modifié en dernier par pierrep56 le 3 mars 2019, 15:19, modifié 1 fois.
Avatar du membre
Delgusto
Jeune membre
Jeune membre
Messages : 12
Inscrit le : 8 février 2017
Version d'Excel : 2013 fr

Message par Delgusto » 3 mars 2019, 13:48

Salut,
Impossible de faire tourner les deux dernières versions. :cry:

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
Les forums, c'est bien quand ça fonctionne dans les deux sens...
Avatar du membre
pierrep56
Membre impliqué
Membre impliqué
Messages : 1'201
Appréciations reçues : 197
Inscrit le : 18 juin 2014
Version d'Excel : 2016

Message par pierrep56 » 3 mars 2019, 15:18

C'est curieux!?

Essaye cette nouvelle version (avec qq modif)

Pierre
Pizza.xlsm
(80.47 Kio) Téléchargé 8 fois
Avatar du membre
Delgusto
Jeune membre
Jeune membre
Messages : 12
Inscrit le : 8 février 2017
Version d'Excel : 2013 fr

Message par Delgusto » 3 mars 2019, 15:57

Voila,
Celle-ci fonctionne parfaitement. :)

J'avoue que je n'arrive plus à suivre le code :? :lol:
Les forums, c'est bien quand ça fonctionne dans les deux sens...
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • extraction de données
    par kholkhol » 20 juillet 2014, 20:21 » dans Excel - VBA
    8 Réponses
    267 Vues
    Dernier message par Banzai64
    21 juillet 2014, 11:46
  • Extraction donnees
    par miha » 4 février 2018, 22:33 » dans Excel - VBA
    1 Réponses
    110 Vues
    Dernier message par i20100
    5 février 2018, 06:23
  • Extraction de données
    par fredolilo » 13 octobre 2016, 18:20 » dans Excel - VBA
    5 Réponses
    155 Vues
    Dernier message par fredolilo
    14 octobre 2016, 09:13
  • Extraction de données
    par ACCRO » 2 juillet 2019, 10:23 » dans Excel - VBA
    14 Réponses
    169 Vues
    Dernier message par Steelson
    3 juillet 2019, 18:43
  • extraction donnèes
    par merlinfafe » 9 octobre 2018, 21:32 » dans Excel - VBA
    5 Réponses
    172 Vues
    Dernier message par Steelson
    1 novembre 2018, 00:50
  • Extraction de Données
    par KTM » 18 mars 2020, 14:26 » dans Excel - VBA
    4 Réponses
    96 Vues
    Dernier message par KTM
    18 mars 2020, 22:24