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

S
  • Question
Microsoft 365 Extraction de données sans doublon très complexe
Réponses
14
Affichages
544
stephvico
S
D
  • Résolu(e)
Microsoft 365 Remplissage colonne automatique dépendant d'un tableau
Réponses
7
Affichages
507
fanfan38
fanfan38
G
  • Question
XL 2016 recherche formule adaptée
Réponses
6
Affichages
277
Geyka
G
O
  • Question
XL 2019 Formulaire vba pour filtrer les données
Réponses
7
Affichages
415
olivier1984
O
kaine
  • Question
Microsoft 365 Importer données depuis un lien web
Réponses
1
Affichages
199
gbinforme
G
R
  • Question
XL 2021 Récupérer des données dans plusieurs classeurs sans les ouvrir - Résolu
Réponses
10
Affichages
432
job75
job75
C
  • Résolu(e)
XL 2019 Moyenne avec de nouvelles valeurs
Réponses
5
Affichages
297
cotignac
C
A
  • Question
XL 2019 Convertir un tableau calculé en TCD
2
Réponses
15
Affichages
1 K
nat54
nat54
Moi69
  • Résolu(e)
Power Query extraction de donnees particulieres
Réponses
4
Affichages
393
Moi69
Moi69
R
  • Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
5
Affichages
332
sylvanu
sylvanu

Membres actuellement en ligne

17 membres et 217 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
314 765
Messages
2 112 715
Membres
111 644
dernier inscrit
dagga