Microsoft 365 extraction de données vba

Bob 31 · 10 Mars 2024

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

job75 · 15 Mars 2024

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...

Laurent78 · 10 Mars 2024

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 · 10 Mars 2024

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 · 10 Mars 2024

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 · 11 Mars 2024

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 · 11 Mars 2024

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 · 11 Mars 2024

RE

Bob 31 à dit:
je ne maitrise pas du tout PowerQuery

Bob 31 à dit:
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 · 11 Mars 2024

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

chris · 11 Mars 2024

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 · 11 Mars 2024

Oui j’ai une erreur

chris · 11 Mars 2024

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 · 12 Mars 2024

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 · 12 Mars 2024

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+

Bob 31 · 12 Mars 2024

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 · 12 Mars 2024

Bob 31 à dit:
Est il possible d'automatiser le chemin

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

Microsoft 365 extraction de données vba

Bob 31

XLDnaute Occasionnel

job75

Laurent78

XLDnaute Occasionnel

Bob 31

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Bob 31

XLDnaute Occasionnel

Pièces jointes

chris

XLDnaute Barbatruc

Pièces jointes

chris

XLDnaute Barbatruc

Pièces jointes

chris

XLDnaute Barbatruc

chris

XLDnaute Barbatruc

Bob 31

XLDnaute Occasionnel

chris

XLDnaute Barbatruc

Bob 31

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Bob 31

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Discussions similaires