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'208
Appréciations reçues : 198
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 : 15'095
Appréciations reçues : 902
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'208
Appréciations reçues : 198
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'208
Appréciations reçues : 198
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 données
    par hpietraterra » 2 mars 2020, 14:38 » dans Excel - VBA
    6 Réponses
    56 Vues
    Dernier message par hpietraterra
    2 mars 2020, 15:56
  • extraction de données
    par nickal » 18 janvier 2018, 10:38 » dans Excel - VBA
    2 Réponses
    114 Vues
    Dernier message par nickal
    18 janvier 2018, 11:08
  • Extraction Donnees
    par Dehbi » 27 janvier 2019, 22:33 » dans Excel - VBA
    4 Réponses
    167 Vues
    Dernier message par Steelson
    28 janvier 2019, 06:36
  • extraction de donnees
    par lamineyassine » 11 avril 2016, 18:46 » dans Excel - VBA
    4 Réponses
    163 Vues
    Dernier message par fred2406
    14 avril 2016, 11:36
  • Extraction de données
    par grbzh » 15 novembre 2016, 18:11 » dans Excel - VBA
    5 Réponses
    165 Vues
    Dernier message par grbzh
    16 novembre 2016, 09:01
  • Extraction de données
    par balby64 » 26 avril 2017, 22:53 » dans Excel - VBA
    3 Réponses
    135 Vues
    Dernier message par i20100
    27 avril 2017, 00:41