Microsoft 365 extraction de données vba

B

Bob 31

XLDnaute Occasionnel
Bonjour,
je souhaite extraire depuis une trentaine de classeurs vers un classeur les données de personnes depuis une cellule pour chaque mois de l'année
Ces données me serviraient a calculer les moyennes mensuelles et également des moyennes au fil des mois de l'année pour chacune des personnes
En vous remerciant par avance pour votre aide
 
Solution
job75
Maintenant pour traiter uniquement les dossiers listés dans la feuille SANITAIRE utilisez cette macro :
VB: 
Sub Liste_Fichiers()
Dim annee$, chemin$, P As Range, fso As Object, lig&, dossier As Object, f As Object, fichier$, x$, col%
annee = ActiveSheet.Name
If Not annee Like "####" Then Exit Sub 'ne traite pas les autres feuilles
'chemin = "\\192.168.0.250\shared\drh\"
chemin = ThisWorkbook.Path & "\" 'plus facile pour tester
Set P = ActiveSheet.ListObjects(1).Range 'tableau structuré
Application.ScreenUpdating = False
P.Rows(2) = "" 'efface toute la ligne
Rows(P.Rows(3).Row & ":" & Rows.Count).Delete 'RAZ en dessous
Set fso = CreateObject("Scripting.FileSystemObject")
lig = 2
For Each dossier In fso.GetFolder(chemin).SubFolders...
Trier par date Trier par votes
chris

chris

XLDnaute Barbatruc
merinos à dit:
Salut Chris,

Microsoft se démène pour créer un outil d'extraction et de transformation de données.

PowerQuery est juste GENIAL...

Mais certains préfèrent la spéléologie, avec lampe frontale, cordes de rappel et tout le toin-toin...

Visiblement ils sont toujours occupés à explorer les cavernes...

Bonne journée,

Merinos
Cliquez pour agrandir...
Eh oui...
Et je pense que l'erreur signalée mais non détaillée lundi était probablement la même que ces multiples échanges VBA reprochent : un manque de rigueur dans le nommage des onglets il me semble (les espaces en trop étant faciles à gérer dans PQ)
 
Vote positif 0 Vote négatif

Discussions similaires

C
  • Résolu(e)
XL 2019 Moyenne avec de nouvelles valeurs
Réponses
5
Affichages
172
cotignac
C
A
  • Question
XL 2019 Convertir un tableau calculé en TCD
2
Réponses
15
Affichages
538
nat54
nat54
V
  • Question
Microsoft 365 analyse d'un tableau de données
Réponses
5
Affichages
264
vousoft
V
J
  • Question
Microsoft 365 extraction VBA avec formule si
Réponses
10
Affichages
335
Phil69970
Phil69970
J
  • Question
XL 2016 Tableau de bord - report de données
2
Réponses
16
Affichages
425
chris
chris
Calvus
  • Question
Microsoft 365 Création de graphique
Réponses
6
Affichages
341
Calvus
Calvus
P
  • Question
Microsoft 365 extraction de valeur d'un tableau avec critère mois et année
Réponses
13
Affichages
420
JHA
J
Bubu78
  • Résolu(e)
Microsoft 365 Aide création de formule pour une somme conditionné par date
Réponses
6
Affichages
193
Bubu78
Bubu78
O
  • Résolu(e)
XL 2016 Transfert de données sous conditions
Réponses
4
Affichages
185
sylvanu
sylvanu
V
  • Question
XL 2021 Fonction SIERREUR()
Réponses
5
Affichages
246
Victor__
V

Membres actuellement en ligne

13 membres et 137 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 207
Messages
2 086 248
Membres
103 164
dernier inscrit
axelheili2