Macro recherche dans différents fichiers si critères remplis Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
s
saubin
Jeune membre
Jeune membre
Messages : 12
Inscrit le : 17 novembre 2017
Version d'Excel : 2013

Message par saubin » 4 décembre 2017, 15:53

Bonjour,

Tous les jours nous avons des fichiers qui sont enregistré sur nos serveurs et qui nous permettent de connaitre le nombre de d'appels entrants, le nombre d'appels sortants par personne.

Je voudrais trouver une moyen d'avoir un reporting rapide en sélectionnant la personne voulue et la date.

Et qu'ensuite, la macro viennent chercher les informations dans le bon fichier.

Exemple :
J'ai un dossier par jour :
01_12_17
02_12_17
03_12_17
et le fichier est sous la forme DUPONT Pierre.xlsm

Je voudrais que si je choisi DUPONT Pierre en date du 03_12_17, la macro viennent afficher une plage de cellule (plage qui est fixe peu importe la personne et le jour) :
en colonne A : afficher la plage A8:A40
en colonne B : afficher la plage E8:E40
en colonne C : afficher la plage F8:F40

Je vous joins un fichier Excel avec ce que je trouve tous les jours sur nos serveurs.

Merci de votre aide

Stan
macro_a_determiner.xlsx
(96.85 Kio) Téléchargé 7 fois
Avatar du membre
GVIALLES
Membre dévoué
Membre dévoué
Messages : 825
Appréciations reçues : 74
Inscrit le : 28 novembre 2017
Version d'Excel : 2016, 360
Téléchargements : Mes applications

Message par GVIALLES » 5 décembre 2017, 11:20

Bonjour Saubin

Petite précision : tu indiques qu'il faut récupérer les plages dans les excels : c'est OK pour les plages E et F mais la plage A est vide dans l'excel que tu fournis.

Cordialement

Gérard
s
saubin
Jeune membre
Jeune membre
Messages : 12
Inscrit le : 17 novembre 2017
Version d'Excel : 2013

Message par saubin » 5 décembre 2017, 11:26

Oui pardon, c'était la plage avec la colonne B
GVIALLES a écrit :
5 décembre 2017, 11:20
Bonjour Saubin

Petite précision : tu indiques qu'il faut récupérer les plages dans les excels : c'est OK pour les plages E et F mais la plage A est vide dans l'excel que tu fournis.

Cordialement

Gérard
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 9'461
Appréciations reçues : 428
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 5 décembre 2017, 11:44

bonjour,

une proposition
Sub aargh()
    Set ws1 = ThisWorkbook.Sheets("sheet1") 'feuille résultat adapter le nom si nécessaire
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Title = "Veuillez choisir le fichier"
        If .Show = True Then
            fname = .SelectedItems(1)
        Else
            MsgBox "no files selected"
            Exit Sub
        End If
    End With
    Set wb = Workbooks.Open(fname)
    Stop
    Set ws2 = wb.Sheets("Feuil1") 'feuille source
    ws1.Cells.ClearContents
    ws2.Range("B8:B40,E8:E40,F8:F40").Copy ws1.Cells(1, 1)
    wb.Close
End Sub
Avatar du membre
GVIALLES
Membre dévoué
Membre dévoué
Messages : 825
Appréciations reçues : 74
Inscrit le : 28 novembre 2017
Version d'Excel : 2016, 360
Téléchargements : Mes applications

Message par GVIALLES » 5 décembre 2017, 13:13

Saubin,

Ma proposition en P.J.

Pour que ça marche:
- il faut indiquer le chemin complet du dossier contenant les sous-dossiers "jj_mm_aa" dans le volet "Param".
- il faut que tu références "Microsoft Scripting Runtime" dans VB/outils/Références .

Cordialement,

Gérard
Proposition_GVS.xlsm
(36.25 Kio) Téléchargé 6 fois
s
saubin
Jeune membre
Jeune membre
Messages : 12
Inscrit le : 17 novembre 2017
Version d'Excel : 2013

Message par saubin » 5 décembre 2017, 15:38

Merci pour ces précisions, j'ai essayé avec ce que vous m'avez envoyé mais cela ne fonctionne pas.

Je mets en pièce jointe une image ainsi que le fichier Excel que je voudrais faire.
En fonction des critères en orange :
- Telepro
- Mois
- Annee

Je voudrais que ça affiche le résultat des formules.

J'espère être un peu clair dans mes explications :)

Merci d'avance
Stats_Appels.xlsx
(13.77 Kio) Téléchargé 3 fois
Voici la sorte de synthèse que je voudrais effectuer
Voici la sorte de synthèse que je voudrais effectuer
Avatar du membre
GVIALLES
Membre dévoué
Membre dévoué
Messages : 825
Appréciations reçues : 74
Inscrit le : 28 novembre 2017
Version d'Excel : 2016, 360
Téléchargements : Mes applications

Message par GVIALLES » 5 décembre 2017, 18:10

Bonsoir Saubin,

Si je comprends bien, tu as un seul EXCEL par mois par agent?

Peux-tu être plus explicite sur ce qui ne marchait pas dans 1ère proposition que je t'ai faite ?

Cordialement,

Gérard
Cordialement,

Gérard
s
saubin
Jeune membre
Jeune membre
Messages : 12
Inscrit le : 17 novembre 2017
Version d'Excel : 2013

Message par saubin » 6 décembre 2017, 09:54

Bonjour GVIALLES,

Oui exactement, on un seul fichier Excel par agent et par mois.
On a aussi des exports avec un seul fichier Excel par agent et par jour.

Pour le moment, je veux faire des analyses mensuelles.

Ce qui ne fonctionnait pas c'est qu'il faut mettre une date précise alors que je n'ai que des mois.

J'ai mis dans le post précédent les 3 champs en jaune que je dois remplir.
Après si c'est plus simple, je peux mettre deux boutons macro :
- un qui applique les conditions que j'ai choisi et qui modifie le contenu de ma formule
- un bouton qui calcule le contenu de ma formule.

Le seul moyen que j'ai trouvé pour le moment pour appliquer une formule sans faire F2 puis entrée à chaque fois c'est de faire ça :

Application.ScreenUpdating = False

Dim c As Range
For Each c In Selection
SendKeys "{F2}"
SendKeys "{Enter}"
Next c

Application.ScreenUpdating = True
SendKeys "{Enter}"

Donc s'il y a plus simple ou plus rapide je suis preneur :)

Un grand merci d'avance
GVIALLES a écrit :
5 décembre 2017, 18:10
Bonsoir Saubin,

Si je comprends bien, tu as un seul EXCEL par mois par agent?

Peux-tu être plus explicite sur ce qui ne marchait pas dans 1ère proposition que je t'ai faite ?

Cordialement,

Gérard
Avatar du membre
GVIALLES
Membre dévoué
Membre dévoué
Messages : 825
Appréciations reçues : 74
Inscrit le : 28 novembre 2017
Version d'Excel : 2016, 360
Téléchargements : Mes applications

Message par GVIALLES » 6 décembre 2017, 10:26

Bonjour Saubin,

Tu as visiblement surmonté le problème initial.

Oui, de mon point de vue, il y a plus simple et je n'aurais pas procédé comme toi.
L'essentiel étant que toi, tu maitrises ce que tu fais.

Bon courage,

Gérard
Cordialement,

Gérard
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message