> Tous les forums > Forum Autres langages
 Macro excel : regrouper plusieurs fichiersSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
molecules
  Posté le 24/10/2008 @ 14:50 
Aller en bas de la page 
Nouvelle astucienne

Bonjour,

Apres plusieurs recherches et rien compris, j'espere que vous pourrez m'aider. Je n'y connais encore rien en code vba ........

Ce que j'aimerais faire ....

J'ai 10 fichiers (1 par collaborateur) qui note dedans un rapport des taches effectuees (DATE, ACTIVITE, NBRE D'HEURES, SECTEUR D'ACTIVITE). J'ai un onglet par semaine.

Ce que j'aimerais faire c'est que quand j'ouvre un fichier que j'appelerai recap, que dans la liste des activites viennent se mettre toute la liste des activites de tous les collaborateurs, pour ensuite pouvoir faire des filtres ou des stats par activites ou par date ou par nbre d'heure, etc.

Je ne sais pas comment faire la macro, ni ou la mettre ...

QQn aurait la patience de m'aider ?

Merci deja d'avance

Publicité
Bérylion
 Posté le 25/10/2008 à 17:49 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Salut, et bienvenue à toi.

C'est réalisable mais je pense que c'est un peu comme "la mitrailleuse pour tuer les mouches"

avec de simples liaisons de ton classeur récap à chaque classeur "source", tu devrais pouvoir t'en tirer.

fais déja un essai dans ce sens, et si ça te convient pas on envisagera de coder tout ça.

les macros étant à peu de chose près des "pièces d'horlogerie", faudra mettre un lien sur http://cjoint.com du modèle de ton classeur (avec des données bidon, mais une structure identique)

Bonne chance

molecules
 Posté le 26/10/2008 à 19:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvelle astucienne

Merci pour ta réponse. Je ne sais pas comment faire une liaison ...

Voici les fichiers :

Collaborateur 1 : http://cjoint.com/?kAtaYA3Ykb

Collaborateur 2 : http://cjoint.com/?kAtc1RnyDQ

Total - récap : http://cjoint.com/?kAtdyfw6hl

Dans la récap, je voudrais que toutes les lignes s'ajoutent. Je pourrai ensuite y faire des statistiques ...

Merci déjà de prendre un peu de ton temps ...

A+

molecules
 Posté le 28/10/2008 à 08:43 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvelle astucienne

Personne pour m'aider ?

Bérylion
 Posté le 28/10/2008 à 13:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

molecules a écrit :

Personne pour m'aider ?

cadeau :

Sub recap()

Set fso = CreateObject("Scripting.FileSystemObject")
Set repertoire = fso.GetFolder(ThisWorkbook.Path)
Set fichiers = repertoire.Files

Application.ScreenUpdating = False

For i% = 1 To ThisWorkbook.Sheets.Count
Sheets(i).Select
Range(Range("A65536").End(xlUp), Range("j2")).Rows.EntireRow.Delete
Next

For Each f In fichiers
NomComplet = fso.buildpath(repertoire, f.Name)
If NomComplet <> ThisWorkbook.FullName And fso.GetExtensionName(NomComplet) = "xls" Then
Workbooks.Open Filename:=NomComplet
For i% = 1 To Sheets.Count
Workbooks(fso.GetBaseName(NomComplet) & "." & fso.GetExtensionName(NomComplet)).Activate
Sheets(i).Select
Range(Range("A65536").End(xlUp), Range("J2")).Copy
ThisWorkbook.Activate
Sheets(i).Select
Range("A65536").End(xlUp).Offset(2, 0).Range("A1").Select
ActiveSheet.Paste
Selection.Rows.Group
Next
Workbooks(fso.GetBaseName(NomComplet) & "." & fso.GetExtensionName(NomComplet)).Close False
End If
Next

Application.ScreenUpdating = True

End Sub

le code est à coller dans un module standard du fichier recapitulation.xls

pour que ça fonctionne, il faut que tous les fichiers soient dans le meme répertoire (recapitulation, personne1,personne2, etc..)

molecules
 Posté le 28/10/2008 à 16:37 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvelle astucienne

Trop gentil

Milles mercis !!!!!!

Bérylion
 Posté le 28/10/2008 à 17:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

molecules a écrit :

Trop gentil

Milles mercis !!!!!!

un détail : le fichier recapitulation DOIT avoir au moins autant d'onglet que celui des personneX qui en a le plus

sinon ça veut couiner...

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
Kit de 16 Go (2 x 8 Go) de mémoire DDR4 Corsair Vengeance LPX 3200 MHz à 58,99 €
58,99 € 69,99 € -16% @Amazon
TP-Link Deco XE75 (WiFi 6E Mesh AX 5400 Mbit/s, jusqu'à 670 m²) x 3 à 399,99 €
399,99 € 530,99 € -25% @Amazon
Ecran 31.5 pouces LG Ultragear 32UN88A-W (4K, IPS, bras ergonomique) à 399,99 €
399,99 € 679 € -41% @Amazon
Clavier HyperX Alloy Core RGB à 24,99 €
24,99 € 47,99 € -48% @Amazon
Casque-micro gaming sans fil Logitech G935 à 79,99 €
79,99 € 129 € -38% @Cdiscount
Kit de surveillance Tapo C420S2 (2 caméras + base avec alarme sonore, QHD, extérieur IP65, WiFi) à 159,99 €
159,99 € 199,99 € -20% @Cdiscount
Volant Logitech G29 Driving Force + levier de vitesse pour PC, PS3, PS4, PS5 à 239,99 €
239,99 € 290 € -17% @Cdiscount
TP-Link Deco X50 (WiFi 6 Mesh AX 3000 Mbit/s, jusqu'à 550 m²) x 3 à 219,99 €
219,99 € 310 € -29% @Amazon
Caméra de surveillance extérieure TP-Link Tapo C320WS 2K à 54,90 €
54,90 € 69,90 € -21% @Amazon
Souris sans fil Inphic (2.4 GHz USB, 6 boutons, 1600 dpi) à 12,91 €
12,91 € 15,99 € -19% @Amazon

Sujets relatifs
Commande batch pour ouvrir plusieurs fichiers windows 8
problème macro excel
Récupérer données de 3 fichiers Excel en 1 seul !!
Récupérer données de 3 fichiers Excel en 1 seul !!
Récupérer données de 3 fichiers Excel en 1 seul
Macro vb excel
macro sous excel
ouvrir plusieurs fichiers en même temps
appeler des touches clavier dans une macro Excel
macro excel
Plus de sujets relatifs à Macro excel : regrouper plusieurs fichiers
 > Tous les forums > Forum Autres langages