Pour les experts du ADO

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Byfranck

XLDnaute Occasionnel
Bonjour à tous,

un deuxième post ouvert en même temps .. c'est pas les vacances pour tout le monde 😉

Une nouvelle fonctionn alité qu'on me demande d'ajoter à aux Usf de ma base de donnée:

Il faudrait que je puisse extraire toutes les cellules des feuil1 des tous les fichiers Excel sauvegardé dans TOUS les sous répertoires à partir de:
C:\ReunionsHebdo (c'est la situation en France)

Pour une autre fonction j'arrive à lire dans le sous répertoire dans lequel je me trouve et seulement avec un niveau de sous répertoire.
Dans ce nouveau cas il faut que je puisse lancer l'apli de n'importe quel endroit du disque et que 'j'aspire' toutes les feuil1 de tous les Excel de tous les sous répertoires (on a testé sur 150 fichiers le nom est toujours Feuil1 .. en tous cas en France!).

Dans C:\Reunionhebdoj j'ai des sous répertoires avec des années, dans les années il y a 12 mois, dans chaque mois entre 1 et 5 semaines et dans chaque directory avec le num de semaine il y a 2 ou 3 fichiers Excel dont les noms ne sont jamais identiques (pour celui qui m'interesse).
le fichier Excel qui m'interesse a par contre toujours en A8 le texte: "ODJ"
Donc en plus il faut tester s'il y a bien ODJ avant de récupérer les données de la Feuil1.
Une fois aspiré, il faut vider la Feuil1 des fichiers aspirés.
Juste pour rire: parfois il y a des fichiers qui nous interessent (ceux de la semaine qui ont été enregistré sous le mois au lieu d'être plus bas sous la semaine
Beau challenge non?

Si quelqu'un sait faire ça!!! 😕
A mon avis il ne faut pas lire le nom des répertoires (suivant la filliale c'est en anglais, en allemand, Français, Italien ...) il faudrait donc que j'entre dans la macro le premier niveau de répertoire où il faut travailler et qu'en suite cela se débrouille tout seul en lisant dans les fichiers fermés et en testant sur A8


La bouteille est lancée à la mer ... s'il y ades courrageux qui ne sont pas à la plage ... où s'ils sont à la plage et qu'ils voient passer la bouteille !!! 😀


Cordialement
Franck
 

Pièces jointes

Re : Pour les experts du ADO

Re

pour afficher une feuille :

Code:
Sheets("Feuil1").Visible = xlSheetVisible

pour info :
Code:
Application.EnableEvents = False

pense pas que ce soit qui fasse planter ton code.... Désactives toutes les macros événementielles, efffectivement en cas de plantage il faut les remettre à "true", mais de toute façon quand tu relanceras à nouveau l'application excel, les événements seront automatiquement réactivés...

bonne soirée
@+
 
Re : Pour les experts du ADO

Bonjoir Vaucluse Immo,


Bonsoir,
apparament, mon fichier ne te convient pas , pas grave ,bonne chance
Je te remercie en tout cas de t'être arrêté sur mon problème, mais biensur j'ai regardé le fichier et ce qui m'a freiné pour l'instant c'est ça:
necessite d'activer les references :
Standard OLE Types
Microsoft Scripting Runtime
Microsoft Shell Controls and Automation

testé avec :
WinXP & Excel2002

Je voudrais éviter d'avoir trop de chose à activer dans Excell .. surtout s'il y a risque que ce soit lié a une version u autre d'Excel et de Microsoft.

En tout cas merci encore
Cordialement
Franck
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Personal.xlsb
Réponses
4
Affichages
259
Réponses
4
Affichages
117
Réponses
5
Affichages
212
Retour