En galère... comment faire

[phylomele]

Bonjour, j'appelle à l'aide, complètement désespéré.
Je fais un mémoire dans le lequel il y a une étude statistique, une partie des données a déjà été traité, à l'aide de prof qui s'y connaissent, mais ils ont omis une donné, et maintenant nous ont laché un peu...

bref voila le problème j'ai 7 classeurs excel, avec une centaine de feuille par classeur. chaque feuille comprend les données pour un sujet, dont celle qui m'intéresse: CSP père (G2),CSP mère 5 (H2) avec en G3 et G4 la catégorie socio-pro avec 8 possibilité traduiteen chiffre de 1 à 8. Mon but au final est de savoir combien j'ai de personne par catégorie. (donc combien de 1, de 2, de 3...jusqu'à 8).

Et pour ca il faut récupérer les données de toutes les feuilles de tout les classeurs... et à par manuellement une par une je sais pas comment faire, et ça je n'ai pas le temps de le faire avant de rendre mon mémoire.

Bref je suis dans l'urgence. Si il est possible de récup ces données est ce que quelqu'un pourrait m'expliquer. Je suis pas totalement une bille en informatique mais la ca me dépasse... SVP ceci est un SOS

Merci à toutes personnes qui acceptera!!


++

 

[PUARAI]

Re : En galère... comment faire

fwmppfb

]
C'est quoi ça le nom de ta feuille???

 

[phylomele]

Re : En galère... comment faire

Du coup faut quand meme que je repete l'operation pour les 800 feuille que j'ai en tout?

 

[phylomele]

Re : En galère... comment faire

]
C'est quoi ça le nom de ta feuille???

Euh nan ca c'est un nom de dossier dans lequel sont les 7 classeurs excel en question.

 

[PUARAI]

Re : En galère... comment faire

RE

Si tu veux

en gros dans ta cellule tu met

='[[COLOR="Red"]lenomdetonclasseur[/COLOR] .xls][COLOR="Red"]nomdetafeuille[/COLOR]'![COLOR="Red"]valeurdetacellule[/COLOR]

il cherchera tout le chemin du fichier

 

[PUARAI]

Re : En galère... comment faire

tu me donneras des nouvelles parce que chez moi ça marche trés bien

A+++

 

[phylomele]

Re : En galère... comment faire

oui, merci, j'avais compris ca... et ca marche d'ailleurs, le prob c'est que je me demandais si y avait pas moyen de faire un truc un peu automatique pour pas avoir a taper la formule pour chaque feuille. parce que comme j'ai les données de 800 feuille a récupérer ca fait long a faire. parce que là si j'ai bien compris faut refaire l'opération a chaque fois nan?

 

[phylomele]

Re : En galère... comment faire

En tout cas merci pour l'aide et le temps offert.
Je vais essayer de m'en sortir
A bientot et bonne nuit!

 

[PUARAI]

Re : En galère... comment faire

En tout cas merci pour l'aide et le temps offert.
Je vais essayer de m'en sortir
A bientot et bonne nuit!

Ecoute je sais que il est tard et trés important pour toi je vais
revoir ça demain en esperant quand que tu auras trouver ton bonheur

bonne nuit

🙄

 

[kiki29]

Re : En galère... comment faire

Salut, voir le post du 04/01/2007, 02h22 sur https://www.excel-downloads.com/threads/recherche-dans-plusieurs-fichiers.72998/

j'ai pris le temps de l'adapter , la sélection du dossier à traiter se fait via une boite de dialogue, par défaut la recherche des fichiers est récursive et la lecture des données se fait en gardant ces fichiers fermés, de même pour le nombre de feuilles du classeur, dont on lit les valeurs, est trouvé classeur fermé

 

[vbacrumble]

Re : En galère... comment faire

Re, bonsoir kiki29, le fil , le forum


Hypothèse:
Tu as N fichiers Excel (contenant chacun N feuilles) dans C:\Temp, en lançant cette macro:

tu récupères tout dans le classeur actif (celui qui contient la macro et qui n'est pas
stocké dans C:\Temp )

Si les classeurs sources plusieurs feuilles alors elles sont copiées
dans l'onglet de destination (en dessous l'une de l'autre )

Sub regrouper() 'code : A9E4FE
Dim ws As Worksheet, vers_Feuille As Worksheet, Dossier$, fn$, n%

Application.ScreenUpdating = False

Dossier = "c:\temp"
fn = Dir(Dossier & "\*.xls")

Do While fn <> ""
    n = n + 1
    With ThisWorkbook
        If n > .Worksheets.Count Then .Sheets.Add after:=.Worksheets(.Worksheets.Count)
        Set vers_Feuille = .Worksheets(n)
        vers_Feuille.Name = n & Replace(fn, ".xls", "")
    End With
    With Workbooks.Open(Dossier & "\" & fn)
        For Each ws In .Worksheets
            ws.UsedRange.Copy vers_Feuille.Range("A65536").End(xlUp).Offset(1)
        Next
        .Close False
    End With
    fn = Dir()
Loop
Set vers_Feuille = Nothing
Application.ScreenUpdating = True
End Sub

 

[kjin]

Re : En galère... comment faire

Bonsoir,
Les fichiers (2 dans l'exemple) sont stockés dans un sous-dossier nommé "Archives", il te faudra donc adapter le chemin si tu le déplaces
En outre, j'ai considéré qu'il fallait prendre en compte toutes les feuilles de tous les fichiers, ce n'est peut-être pas le cas mais sans précisions...
J'ai allégé la structure des feuilles pour ne garder que les 2 premières lignes.
A+
kjin

 

[phylomele]

Re : En galère... comment faire

Merci à tous pour votre aide, j'ai pu récupérer les données qu'il me fallait.
Problème résolu.


Merci😀