Inventaire de bibliothèque (faut tout refaire)

[papapaul]

🙁 Bonjour le forum,
Je dois revoir le système de comtage d'une bibliothèque.
Les catégories sont réparties comme ca
Inventaire\A - Histoire Générale\AA - Instruments de travail etc,etc...
Ce classement à été réalisé depuis très longtemps,

Je cherche à automatiser le comptage des ouvrages.
J'ai retrouvé un peu par hasard cette prodigieuse (comme d'hab)
démo de mDF.

Lien supprimé

Je n'arrive pas à l"'arranger" pour que en colonne C
s'affiche la Value de B2 des Feuil1 de chaque fichier.
Tous ces fichiers ont une feuille unique avec en B2
une formule NBVAL qui compte le Nbre d'ouvrages.
comme dans la Feuil1 que j'ai mis ici.
Une fois vu le résultat, serait-il possible
qu'en cliquant sur un nom de fichier de la colonne B
je puisse retourner directement sur cette feuille pour
mettre à jour ??
Ce n'est que le début de mon idée et je suis déja paumé.😕
Merci à tous ceux qui ont des approches similaires
et qui pourront me dépanner.
Bonne journée à tous🙂

 

[papapaul]

Re : Inventaire de bibliothèque (faut tout refaire)

🙂 Re Kiki,
Vu comme ca, ca paraît tellement simple.
Même pas eu le temps de bien tout regarder les codes moi😛
Combien d'années de VBA derrière toi ??
J'ai pas fini d'apprendre😀
@+😉 et merci encore

 

[kiki29]

Re : Inventaire de bibliothèque (faut tout refaire)

12 ans de VBA entre autres

 

[papapaul]

Re : Inventaire de bibliothèque (faut tout refaire)

Re kiki, 🙂
J'ai testé avec mon vrai inventaire
( environ 1200 fichiers.xls dans tous les répertoires)
Ca marche formidablement bien sauf ...
Petite question subsidiaire
Ca s'arrête sur la ligne 666, donc ca semble
limité à une détection de 665 fichiers.🙄
Est-ce normal à cause d'Excel :
un peu comme le nbre d'onglet dans un fichier maxi de 255 je crois ?
Peut on contourner cette limite de 655 ?
Sinon je couperais mon inventaire en 2.
Quelqu'un à t-il l'explication ?
Merci à tous😉

 

[papapaul]

Re : Inventaire de bibliothèque (faut tout refaire)

😛 Ouf, encore moi, j'ai trouvé 😛
Ne chercher plus.
Mes fichiers commencent tous par 3 lettres
suivie d'un tiret -

Le problème qu'ils sont anciens
Certains ont été écrits XXX-YYY
D'autres XXX - YYY ou des fois XXX- YYY
J'ai donc supprimé le tiret et les espaces de chaque côté
dans le code ci dessous

Const FormatNomFichierRch = "[A-Z][A-Z][A-Z] - *"

Const FormatNomFichierRch = "[A-Z][A-Z][A-Z]*"

J'ai tout retrouvé, YOUPI,
Merci XLD