> 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
25,49 €Carte Ziyituod AX200 PCIe WIFI 6 + Bluetooth 5.1 avec dissipateur à 25,49 €
Valable jusqu'au 27 Janvier

Amazon fait une vente flash sur la carte Ziyituod AX200 PCIe WiFi 6 + Bluetooth 5.1 avec dissipateur thermique à 25,49 €. Cette carte réseau à brancher sur un port PCI-Express de votre carte mère vous permettra d'accéder rapidement à un réseau double bande 2,4 GHz/5 GHz et de vous offrir des débits jusqu'à 2974 Mbp/s grâce à ses 2 antennes à haut gain détachables et ajustables et à sa puce Intel AX200. Elle vous permettra également d'ajouter le Bluetooth 5.0 à votre ordinateur pour connecter des périphériques sans fil (souris, clavier, enceintes, manette, ...)


> Voir l'offre
18,93 €Micro clé USB 3.1 Sandisk Ultra Fit 128 Go à 18,93 €
Valable jusqu'au 27 Janvier

Amazon fait une promotion sur la micro clé USB Sandisk Ultra Fit d'une capacité de 128 Go qui passe à 18,93 €. La minuscule taille de cette clé USB va vous permettre de la laisser brancher en permanence sur votre portable, votre TV ou votre autoradio sans qu'elle dépasse de manière disgracieuse. Sa compatibilité USB 3.1 lui permet d'atteindre des débits jusqu'à 130 Mo/s. 


> Voir l'offre
239 €PC Ankermann (Intel Pentium Dual Core, 8Go RAM, SSD 480Go, Win 10 + Office 2019) à 239 € livré
Valable jusqu'au 28 Janvier

Amazon fait une belle promotion sur l'ordinateur de bureau Ankermann Silent PC Work à 239 € livré. Le PC est équipé d'un processeur Intel Pentium dual core à 2.7 GHz, de 8 Go de RAM, d'un SSD de 480 Go, d'un lecteur DVD, d'un lecteur de carte mémoires et tourne sous Windows 10 Pro 64 bits. Microsoft Office 2019 Pro en français est également fourni.

Une belle machine à l'aise en bureautique et Internet. Une dizaine de machines sont disponibles à ce tarif. n'hésitez pas si vous êtes intéressé. Garantie 2 ans.


> Voir l'offre

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