Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 extraction de données vba

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Bob 31
  • Date de début Date de début

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 !

S'inscrire
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
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
Bonjour,
Je pense qu'il serait plus simple d'utiliser Power Query. Pour répondre convenablement, il nous faudrait également quelques fichiers exemple source (anonymisés bien sûr).
En deux mots : PQ permet de faire des requêtes sur un ensemble de fichiers contenus dans un dossier.
Bon dimanche
 
Vote positif 0 Vote négatif
Bonjour,
je souhaite extraire des données depuis une trentaine de classeurs sources vers un classeur cible plutôt en VBA si possible
Ces données sont dans des classeurs sources par agent (Nom Prénom) et par an dans un dossier
\\192.168.0.250\shared\drh\" & NomPré & "\" & NomPré & " " & Année & ".xlsx"
ANNEEZ1 (classeur cible)
Je voudrait récupérer dans le classeur cible les données par agent (Nom Prénom) et par mois le montant de la cellule (G43) de chaque agent et de chaque mois (onglets source)
Cela me serviraient a calculer les moyennes mensuelles et également des moyennes au fil des mois de l'année pour chacune agents
Ci joint le classeur cible (AMPLITUDES) et un classeur source (ABADIE FABIEN)
En vous remerciant par avance pour votre aide
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour à tous,
je souhaite récupérer des données depuis une trentaine de classeurs sources vers un classeur cible plutôt en VBA si possible
Ces données sont dans des classeurs sources par agent (Nom Prénom) et par an dans un dossier
\\192.168.0.250\shared\drh\" & NomPré & "\" & NomPré & " " & Année & ".xlsx"
Exemple \\192.168.0.250\Shared\DRH\ABADIE FABIEN\[ABADIE FABIEN 2024.xlsx]JANVIER'!$G$43
CHOIX DE L'ANNEE en Z1 (classeur cible)
Je voudrait récupérer dans le classeur cible les données par agent (Nom Prénom) et par mois (Janvier à Décembre) le montant de la cellule (G43) de chaque agent et de chaque mois (12 onglets Janvier à Décembre) depuis les classeurs sources
Cela me serviraient a calculer les moyennes mensuelles et également des moyennes au fil des mois de l'année pour chacune agents
Ci joint le classeur cible (AMPLITUDES) et un classeur source (ABADIE FABIEN)
En vous remerciant par avance pour votre aide
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour Bob 31, le forum,

Téléchargez les fichiers joints, ouvrez le fichier .xlsm et exécutez cette macro :
VB: 
Sub Liste_Fichiers()
Dim fichier, annee$, w As Worksheet, P As Range, chemin$, lig&, col%, x$
fichier = Application.GetOpenFilename("Fichiers .xlsx (*.xlsx), *.xlsx")
If fichier = False Then Exit Sub
annee = Left(Right(fichier, 9), 4)
If Not annee Like "####" Then MsgBox "Le nom du fichier doit se terminer par une année...": Exit Sub
'---feuille de destination---
Application.ScreenUpdating = False
On Error Resume Next
Set w = Sheets(annee)
If w Is Nothing Then
    Sheets(1).Copy After:=Sheets(Sheets.Count)
    Set w = ActiveSheet
    w.Name = annee
End If
On Error GoTo 0
w.Activate
Set P = w.ListObjects(1).Range
P(2, 1).Resize(, 13) = ""
w.Rows(P.Rows(3).Row & ":" & w.Rows.Count).Delete 'RAZ en dessous
'---traitement des fichiers---
chemin = Left(fichier, InStrRev(fichier, "\"))
fichier = Dir(chemin & "*" & annee & ".xlsx")
lig = 2
While fichier <> ""
    P(lig, 1) = Left(fichier, Len(fichier) - 10)
    x = "'" & chemin & "[" & fichier & "]"
    For col = 2 To 13
        P(lig, col) = ExecuteExcel4Macro(x & P(1, col) & "'!R43C7") 'cellule G43
    Next col
    lig = lig + 1
    fichier = Dir 'fichier suivant
Wend
'---compléments---
P(lig + 1, 1) = "TOTAL"
P(lig + 1, 2).Resize(, 24) = "=SUM(R2C:R" & lig - 1 & "C)"
P(lig + 2, 1) = "MOYENNE MENSUELLE"
P(lig + 2, 2).Resize(, 12) = "=AVERAGE(R2C:R" & lig - 1 & "C)"
P.EntireColumn.AutoFit 'ajustement largeurs
End Sub
Nota 1 : dans le fichier ABADIE FABIEN 2024.xlsx il y avait des espaces superflus dans les noms des feuilles.

Nota 2 : Les noms des mois sont sans accents, si on les met il faut les mettre dans tous les fichiers.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour Job 75
Merci pour la proposition
Est il possible d'automatiser le chemin :
\\192.168.0.250\shared\drh\" & NomPré & "\" & NomPré & " " & Année & ".xlsx" afin que je propose une liste d'agent Nom Prénom en colonne A du classeur source
et de proposer un ajout de bouton d'exécution par année
Merci
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

S
  • Question Question
Microsoft 365 Extraction de données sans doublon très complexe
Réponses
14
Affichages
602
stephvico
S
J
  • Résolu(e)
Microsoft 365 PQ toujours : je butte sur des problèmes de base : moyenne, mini et maxi
Réponses
2
Affichages
235
José FELIX
J
T
  • Résolu(e)
Microsoft 365 Exporter les plages nommées vers un nouveau classeur - plage nommée invalide selon VBA
Réponses
2
Affichages
121
tnion
T
E
  • Question Question
Microsoft 365 Tableau de notation
Réponses
0
Affichages
506
Egypto95
E
V
  • Résolu(e)
Microsoft 365 Problème de soustraction d'heures
Réponses
3
Affichages
83
vincenot
V
  • Résolu(e)
XL 2019 Extraction de données dans une autre plage !
Réponses
6
Affichages
324
Caninge
P
  • Question Question
XL 2016 Macro VBA remplissage tableau de synthèse % déchet ligne de production
Réponses
4
Affichages
53
vgendron
O
  • Question Question
XL 2016 transférer les données d'un tableau brut, dans un autre format pour analyse.
Réponses
12
Affichages
174
ORL
O
  • Résolu(e)
XL 2021 Apparition des lettres ou des chiffres lors de la frappe
Réponses
5
Affichages
180
TooFatBoy
O
  • Question Question
XL 2019 Formulaire vba pour filtrer les données
Réponses
7
Affichages
502
olivier1984
O
G
  • Question Question
XL 2021 création graphique type gantt
Réponses
5
Affichages
179
sylvanu
D
  • Résolu(e)
Microsoft 365 Remplissage colonne automatique dépendant d'un tableau
Réponses
7
Affichages
572
fanfan38
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
430
dysorthographie
A
  • Question Question
XL 2021 Calculer le prorata d'un objectif en fonction de l'arrivée ou du départ du salarié
Réponses
4
Affichages
132
job75
  • Question Question
Microsoft 365 Importer données depuis un lien web
Réponses
1
Affichages
252
gbinforme
G
  • Résolu(e)
Power Query extraction de donnees particulieres
Réponses
4
Affichages
447
Moi69
L
  • Question Question
XL 2021 Code VBA, création d'une feuille dans un autre classeur et collage de données
2
Réponses
17
Affichages
353
lav
L
  • Résolu(e)
Microsoft 365 Extraction des coordonnées dans une grille de salaire sous Excel
Réponses
7
Affichages
117
job75
R
  • Question Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
5
Affichages
518
sylvanu
R
  • Question Question
XL pour MAC Garder une valeur en mémoire
Réponses
8
Affichages
372
rtlv17
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…