Microsoft 365 extraction de données vba

[Bob 31]

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

 

[Laurent78]

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

 

[Bob 31]

Je préfèrerai en vba car les classeurs de base sont nommés par années pour effectuer un classeur récapitulatif par an

 

[patricktoulon]

re
bonjour
le fichier récolteur
au mois deux exemples de fichiers cible
nous permettrons de faire des tests et élaborer une macro performante

sans ça ta demande restera lettre morte

 

[Bob 31]

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"

ANNEE

Z1 (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

 

[chris]

Bonjour

Une solution PowerQuery

Modifier le chemin d'accès dans l'onglet Feuil2 puis clic droit dans le tableau de résultats (vert) et Actualiser

 

[chris]

RE

je ne maitrise pas du tout PowerQuery

Est ce possible en VBA

Si tu ne maitrises ni l'un, ni l'autre, pourquoi t'accrocher à VBA ?

On peut ajouter un filtre sur l'année à indiquer en paramètre comme le chemin.

 

[chris]

RE
Avant de cross poster, tout azimuts, as-tu au moins testé la solution ??? !!!

 

[chris]

S tu as vraiment testé la solution donnée,
soit tu as une erreur,
soit cela fonctionne
Mais ton absence de retour laisse penser que non....

 

[Bob 31]

Oui j’ai une erreur

 

[chris]

Bon je laisse tomber : tu ne dis pas laquelle qui se reproduira probablement en VBA si toutefois un VBiste se décide à te répondre...
Bonne continuation

 

[Bob 31]

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

 

[job75]

Bonjour Bob 31, le forum,

Téléchargez les fichiers joints, ouvrez le fichier .xlsm et exécutez cette macro :

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+

 

[Bob 31]

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

 

[job75]

Est il possible d'automatiser le chemin

Non, Il faut choisir l'un des fichiers du dossier dans la boîte de dialogue.