Microsoft 365 MAcro VBA - Recherche dans un groupe de fichier

[jey31]

Bonjour à tous
Je suis en cours de développement d'une macro afin de faire un fichier de collecte

je m'explique, j'ai des données des puissances de 66 Turbines qui sont stockées individuellement dans une fichier .xls soit 66 fichiers.. La je dois donc collecter les données des la dernières lignes de chaque fichiers sur une range définies par exemple ("AI:AO").

Le problème c'est que j'arrive pas a aller chercher chacune de ses lignes sans avoir à rentrer manuellement

auriez vous une idées ? .. je sèche

 

[jey31]

Voici le Doc je précise que les -- sont normaux

On constate bien que la feuille DATA ne se remplit pas mais le LOG oui

 

[jey31]

pour info j'ai juste modifier le nom de la feuil de recherche car j'ai vu qu'elle etait nommée "Template" et le .xslsm que j'ai remplacé en .xlsx

 

[sylvanu]

Si vous regardez la colonne J du LOG qui est l'index d'écriture, il va de 1 à 30 puis de 1 à 30 .....
Donc on écrit et ré écrit que les 30 premières lignes.

Il va falloir que je trouve pourquoi. BUG chez moi. Je regarde.

 

[jey31]

Si vous regardez la colonne J du LOG qui est l'index d'écriture, il va de 1 à 30 puis de 1 à 30 .....
Donc on écrit et ré écrit que les 30 premières lignes.

Il va falloir que je trouve pourquoi. BUG chez moi. Je regarde.

a quoi correspond le Ligne W ?

 

[jey31]

a quoi correspond le Ligne W ?

qu'entendez vous par l'index d'ecriture ?

 

[sylvanu]

LigneW est le N° de la ligne où je vais écrire dans la feuille Datas.
En clair j'écris de la ligne 1 à 30 puis je reviens à 1.

Je pense savoir de où ça vient. Dans le calcul de la ligne qui est :

Ligne=(3*NoTurbine+1)+(CVTx-1)

Je pense savoir: si je ne traite que le dernier caractère de No Turbine alors je fais 0 9, 0, 9 ....
Je vais revoir ma formule.

 

[jey31]

j'ai également changé les colonne d'inspection qui était 12/13/15/16/17 par 37/38/40/41/42

 

[jey31]

LigneW est le N° de la ligne où je vais écrire dans la feuille Datas.
En clair j'écris de la ligne 1 à 30 puis je reviens à 1.

A ok je vais également chercher de mon côté

 

[sylvanu]

Je me suis fait piégé ... par une sécurité.
Essayez cela, cela devrait marcher.

 

[jey31]

Je me suis fait piégé ... par une sécurité.
Essayez cela, cela devrait marcher.

je pourrais avoir l'explication ? aha ca me permettre de comprendre et d'apprendre

 

[jey31]

Si jamais je dois inversé la lecture ? car j'ai l'impression que la dernière donné est la premièr eligne coment dois je fair e?

 

[sylvanu]

1- Déjà ça veux dire que ça marche ????

2- J'avais émis l'hypothèse que le N° turbine pouvais être MO01 ou MO1 pour les 9 premières.
J'isolais les 2 derniers caractères et si ce n'était pas numérique je ne prenais que le dernier. Et ça c'était buggé. Je prenais toujours que le dernier d'où les 30 lignes : turbines de 1 à 9 en permanence.

3- Dans le module LireCellules je trouve la dernière ligne avec : DerLig = .Range("K65500").End(xlUp).Row
Si c'est la première, il suffit de faire : DerLig=3 ( en conservant la variable DerLig ça évite de tout changer ) Pour moi la première ligne de données est en ligne 3.

4- Si tout baigne, je vous referais une version "propre" sans la feuille LOG sauf si vous voulez la conserver.

 

[jey31]

1- Déjà ça veux dire que ça marche ????

2- J'avais émis l'hypothèse que le N° turbine pouvais être MO01 ou MO1 pour les 9 premières.
J'isolais les 2 derniers caractères et si ce n'était pas numérique je ne prenais que le dernier. Et ça c'était buggé. Je prenais toujours que le dernier d'où les 30 lignes : turbines de 1 à 9 en permanence.

3- Dans le module LireCellules je trouve la dernière ligne avec : DerLig = .Range("K65500").End(xlUp).Row
Si c'est la première, il suffit de faire : DerLig=3 ( en conservant la variable DerLig ça évite de tout changer ) Pour moi la première ligne de données est en ligne 3.

4- Si tout baigne, je vous referais une version "propre" sans la feuille LOG sauf si vous voulez la conserver.

Oui ca fonctionne pour l'instant

J'ai juste a éclairer avec mes collègues certains points sur les dates des collectes mais ca je pourrai le gérer et au pire je reviendrai vers vous

Mais oui ca fonctionne

 

[sylvanu]

Voici la V6 sans la feuille LOG.

 

[jey31]

Merci
Par contre question est-ce normal que la barre de progression reste active une fois le chargement finit ?