Cumuler et synthétiser 2000 fichiers en 1 seul

[Yanninho]

Bonjour,
Nous avons envoyer à 2000 agences, un tableau excel où ils doivent recenser leur mobilier (chaises, armoires...une cinquantaine d'objets) puis nous le retourner.

Tous les tableaux sont sous le même format, les noms des fichiers sont biens formatés et correspondent à l'indicatif de l'agence.

Une fois les 2000 fichiers retournés et complétés, ils nous faut savoir le total de chaises et d'armoires. Sans évidemment avoir à les ouvrir tous.😀

Existe t il une méthode sous Excel, Access ou autres pour réaliser cela?

Merci de bien vouloir m'aider😕

 

[Catrice]

Re : Cumuler et synthétiser 2000 fichiers en 1 seul

Bonjour,

Avec Données/consolider ou un TCD étiquettes.
Et une petite macro surement.

Il faudrait un extrait de fichier ...

 

[Guest]

Re : Cumuler et synthétiser 2000 fichiers en 1 seul

Yanninho,

Si tu nous donnais la structure des fichiers source et du fichier destination se serait plus rapide pour t'aider. Les fichiers source seront-ils dans le mêmes répertoires, quels noms portent-ils.

50 item * 2000 = 100000 lignes

Se sera peut-être un peu long.

A+

 

[Catrice]

Re : Cumuler et synthétiser 2000 fichiers en 1 seul

Bonjour Hasco,

J'avais plutot compris une base de 50 champs x 2000 fiches (les totaux par agence) ...

Rectification : Données/consolider ou un TCD étiquettes ne pourront pas fonctionner il faut que les fichiers soient ouverts.
=> Une macro qui ouvre les fichiers et qui construit une base ... ou une importation de données externes.

 

[Guest]

Re : Cumuler et synthétiser 2000 fichiers en 1 seul

Hello Catrice🙂,

C'est toi qui a peut-être raison. Mais comment savoir avant que Yaminnoh nous ait donné des détails.

Dans les deux cas on peut utiliser ADO.

A++

 

[MichelXld]

Re : Cumuler et synthétiser 2000 fichiers en 1 seul

bonsoir

Cet exemple utilise la bibliothèque ADO pour extraire toutes les données d'une feuille spécifique, dans tous les classeurs fermés d'un répertoire. Les fichiers sources sont supposés avoir la même structure et contenir une feuille portant le même nom.
Les données sont importées à la suite dans la feuille active. La macro nécessite d'activer la référence Microsoft ActiveX Data Objects x.x Library.

'Nécessite d'activer la référence
    'Microsoft ActiveX Data Objects x.x Library
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim xConnect As String, Cible As String
Dim Fichier As String, Dossier As String, Feuille As String
Dim i As Long
 
'nom du répertoire contenant les classeurs à regrouper
Dossier = "C:\nom dossier"
'Nom de la feuille dans les classeurs fermés
'Ne pas oublier le symbole $ après le nom de la feuille
Feuille = "Feuil1$"
i = 2
 
Fichier = Dir(Dossier & "\*.xls")
'boucle sur les fichiers du repertoire
Do While Len(Fichier) > 0
    xConnect = "DRIVER={Microsoft Excel Driver (*.xls)};" & _
    "ReadOnly=1;DBQ=" & Dossier & "\" & Fichier
    'connection classeur
    Set Cn = New ADODB.Connection
    Cn.Open xConnect
    
    'Requete
    Cible = "SELECT * FROM [" & Feuille & "];"
    
    Set Rs = New ADODB.Recordset
    Rs.Open Cible, xConnect, adOpenStatic, adLockOptimistic, adCmdText
    
    'Ecriture dans la feuille de calcul
    If Not Rs.EOF Then Cells(i, 1).CopyFromRecordset Rs
    i = Cells(i, 1).End(xlDown).Row + 1
    
    Rs.Close
    Cn.Close
    Set Cn = Nothing
    Set Rs = Nothing
    Fichier = Dir()
Loop

Bien entendu tu seras vite limité par le nombre de lignes maxi de la feuille de synthèse et l'idéal serait de créer un filtre dans la requète pour récupérer un type de données, mais c'est difficile de répondre exactement ne connaissant pas la structure de tes classeurs.



bonne soirée
michel
Microsoft Excel MVP

 

[Guest]

Re : Cumuler et synthétiser 2000 fichiers en 1 seul

Hello Michel🙂,

On reconnais la patte!

A+++