XL 2021 Controle de la qualité de l’eau

[Roro40]

Bonjour,

J'ai trouvé sur un site un petit fichier Excel qui normalement permet de visualiser toutes les analyses de l’eau distribuée commune par commune en récupérant un jeu de données.
Malheureusement, j’obtiens un message d’erreur au moment du 2ème tri (après avoir cliqué sur le bouton "phase 2")
Message obtenu :
Erreur d’exécution ‘1004’:
La méthode AutoFill de la classe Range a échoué.

Ne connaissant pas VBA, je n'arrive pas à corriger cette erreur. Est-ce que quelqu'un pourrait m'aider à résoudre ce problème?

Merci d'avance pour votre aide.

 

[Oneida]

Bonjour,
Sans fichier txt departement, pas facile

 

[Roro40]

Bonjour,
Voici les fichiers avec les données pour que les macros puissent s’exécuter.
Un grand merci pour votre aide.

 

[AtTheOne]

Bonjour à toutes & à tous, bonjour @Roro40

Il manque les fichier "DIS_COM_UDI.txt"
Si tu pouvais le joindre ...
À bientôt

 

[Cousinhub]

Bonjour,
Pour info, l'origine des sources est dans l'onglet "Mode d'emploi", dans la cellule B5

Résultats du contrôle sanitaire de l'eau distribuée commune par commune - data.gouv.fr

Résultats du contrôle sanitaire de l'eau distribuée…

www.data.gouv.fr

 

[AtTheOne]

Re, je télécharge, mais là où je suis ça prend des plombes !

 

[Oneida]

Re a tous,
Dans le Zip, pas "DIS_COM_UDI.txt" mais "DIS_COM_UDI_"annee choisie".txt

 

[Cousinhub]

Re a tous,
Dans le Zip, pas "DIS_COM_UDI.txt" mais "DIS_COM_UDI_"annee choisie".txt

Dans l'onglet "Mode d'emploi"

 

[Oneida]

Ok

 

[Cousinhub]

@Roro40
Dans le fichier joint, une autre méthode.
Tout comme dans l'exemple que tu avais fourni, il faut dézipper les fichiers txt dans un répertoire.
(les fichiers les plus récents seront traités, inutile de les renommer)
1 - Tu mets le chemin de ce répertoire dans la cellule A2
2 - Tu mets le numéro de département, sous format "00" dans la cellule C2. La liste des villes concernées va se créer automatiquement.
3 - Tu sélectionnes ta ville dans la cellule E2.
Les résultats vont s'inscrire dans l'onglet "Résult"...
Et tu obtiens les résultats des contrôles de l'eau de ta ville...
(un peu moins de 10 secondes pour obtenir les résultats)
Pour ce faire, j'utilise Power Query, nativement installé dans ta version d'Excel. Et il faut configurer, une bonne fois pour toute, Excel pour que ce programme fonctionne. Regarde sous ce lien
Bonne apm

PS, afin de rendre ce post plus visible, il faudrait que tu modifies le titre (Problème VBA ne veut rien dire).
A partir du premier post, clique sur le bouton "modifier", et change le titre en "Contrôle de la qualité de l'eau", par exemple

 

[Roro40]

@Roro40
Dans le fichier joint, une autre méthode.
Tout comme dans l'exemple que tu avais fourni, il faut dézipper les fichiers txt dans un répertoire.
(les fichiers les plus récents seront traités, inutile de les renommer)
1 - Tu mets le chemin de ce répertoire dans la cellule A2
2 - Tu mets le numéro de département, sous format "00" dans la cellule C2. La liste des villes concernées va se créer automatiquement.
3 - Tu sélectionnes ta ville dans la cellule E2.
Les résultats vont s'inscrire dans l'onglet "Résult"...
Et tu obtiens les résultats des contrôles de l'eau de ta ville...
(un peu moins de 10 secondes pour obtenir les résultats)
Pour ce faire, j'utilise Power Query, nativement installé dans ta version d'Excel. Et il faut configurer, une bonne fois pour toute, Excel pour que ce programme fonctionne. Regarde sous ce lien
Bonne apm

PS, afin de rendre ce post plus visible, il faudrait que tu modifies le titre (Problème VBA ne veut rien dire).
A partir du premier post, clique sur le bouton "modifier", et change le titre en "Contrôle de la qualité de l'eau", par exemple

Bonjour à tous,
Un grand merci pour votre aide. Je vais faire quelques essais pour m’assurer que tout fonctionne normalement.
Votre aide si précieuse va me faire gagner du temps dans mon suivi de qualité de l’eau.
PS: j’ai modifié le titre de ce post pour qu’effectivement il soit plus parlant.
Bonne fin de journée

 

[AtTheOne]

Bonsoir à toutes & à tous, bonsoir @Roro40
J'ai donc téléchargé l'année 2024 avec des fichiers assez conséquents en taille

• DIS_UDI_COM 3850 ko
• DIS_PLV 140461 ko
• DIS_RESULT 1 910 270 ko

Avec cette taille de fichier sur le poste que j'utilise ici (je ne suis pas chez moi) ça rame.
Les fichiers non renommés sont à placer dans le même répertoire que le classeur :

Je suis passé par Power Query comme @Cousinhub en m'inspirant de ce qu'il a proposé (mais je n'ai pas réussi à faire fonctionner son fichier)

Je fais le chemin inverse de ce qui est présenté dans la doc du site :

D'une commune d'un département je collecte les réseaux associés, à partir de ces réseaux je détermine les prélèvements effectués, et à partir de ces prélèvements je cherche les résultats.
Je génère un tableau structuré et un fiche de présentation des résultats d'un prélèvement

La feuille d'accueil permet de choisir l'année, puis le département, puis la commune :

Un extrait du TS :

Une image de la fiche :

On peut exploiter le TS, mais c'est lourd
Sur la fiche choisir une date et un prélèvement effectué à cette date cette date pour en afficher les résultats

Voilà pour la présentation.

Je ne suis pas certain qu'il n'y ait pas de bogue, j'avoue que vu le temps d'actualisation lorsque l'on change de commune, j'ai limité les tests !
Là pour actualiser avec la ville de BOURG-EN-BRESSE ça vient de me prendre 1'52''

Une fois l'actualisation terminée on est dirigé vers la fiche (dernière date et premier prélèvement de la liste sélectionnés)
Je ne suis pas bien rompu à la pratique de PowerQuery, si quelqu'un a des idées pour améliorer ce processus je suis preneur.

Voir le fichier joint

À bientôt

 

[Roro40]

Bonsoir à toutes & à tous, bonsoir @Roro40
J'ai donc téléchargé l'année 2024 avec des fichiers assez conséquents en taille

• DIS_UDI_COM 3850 ko
• DIS_PLV 140461 ko
• DIS_RESULT 1 910 270 ko

Avec cette taille de fichier sur le poste que j'utilise ici (je ne suis pas chez moi) ça rame.
Les fichiers non renommés sont à placer dans le même répertoire que le classeur :

Regarde la pièce jointe 1218349

Je suis passé par Power Query comme @Cousinhub en m'inspirant de ce qu'il a proposé (mais je n'ai pas réussi à faire fonctionner son fichier)

Je fais le chemin inverse de ce qui est présenté dans la doc du site :
Regarde la pièce jointe 1218347D'une commune d'un département je collecte les réseaux associés, à partir de ces réseaux je détermine les prélèvements effectués, et à partir de ces prélèvements je cherche les résultats.
Je génère un tableau structuré et un fiche de présentation des résultats d'un prélèvement

La feuille d'accueil permet de choisir l'année, puis le département, puis la commune :
Regarde la pièce jointe 1218351

Un extrait du TS :
Regarde la pièce jointe 1218350

Une image de la fiche :
Regarde la pièce jointe 1218348

On peut exploiter le TS, mais c'est lourd
Sur la fiche choisir une date et un prélèvement effectué à cette date cette date pour en afficher les résultats

Voilà pour la présentation.

Je ne suis pas certain qu'il n'y ait pas de bogue, j'avoue que vu le temps d'actualisation lorsque l'on change de commune, j'ai limité les tests !
Là pour actualiser avec la ville de BOURG-EN-BRESSE ça vient de me prendre 1'52''

Une fois l'actualisation terminée on est dirigé vers la fiche (dernière date et premier prélèvement de la liste sélectionnés)
Je ne suis pas bien rompu à la pratique de PowerQuery, si quelqu'un a des idées pour améliorer ce processus je suis preneur.

Voir le fichier joint

À bientôt

Bonjour,
Un grand merci pour ce travail de qualité. Je vais faire quelques tests mais pour l'instant RAS.
A bientôt