Macro recherche dans différents fichiers si critères remplis

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

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

Oui pardon, c'était la plage avec la colonne B

GVIALLES a écrit :

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

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

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

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

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

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 :

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

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