Jumeler plusieurs documents

[Gerbra]

Bonjour,

Je cherche un moyen le plus simpe possibe pour juemeller des bons de commandes. Je m'explique j'ai 80 formulaires identiques tous enregistrés sous des noms différents ils ont tous le même format. Je vourais compiler l`information dans une meme page afin de savoir les qts totale de chacun des items vendus par semaine.

Merci d'avance🙄

 

[astralon]

Re : Jumeler plusieurs documents

est-ce qu'il ne serait pas plus simple de prendre un fichier global qui irait chercher les infos dans chacun de tes autres documents ?

je pense que si tu regroupe le tout, ca va devenir lourd a gérer => perte de temps

 

[Gerbra]

Re : Jumeler plusieurs documents

Je suis d'accord mais quel est le moyen le plus simple pour le faire

 

[Cousinhub]

Re : Jumeler plusieurs documents

Bonjour,

Peux-tu joindre un exemple de ton formulaire ici?
Afin de voir la structure, et regarder ce qu'on peut faire...

 

[Gerbra]

Re : Jumeler plusieurs documents

Voici le formulaire de base que es clients avaaient a compléter.

Note que c'est en Excel 203 mas j'ai ausi la version 2007 qu j'apprivoise depuis une semaine.

Merci de ton aide

 

[Cousinhub]

Re : Jumeler plusieurs documents

Re-,
tu as dû oublié d'uploader ton fichier....

Edit :Bonjour Staple, fait beau en bretagne, hein?

 

[Staple1600]

Re : Jumeler plusieurs documents

Bonjour


Fichier non passé

(zippes le pour qu'il soit <48Ko)

edit: houps collision, bonjour bhbh

 

[Gerbra]

Re : Jumeler plusieurs documents

Voilà

gfdos

 

[Staple1600]

Re : Jumeler plusieurs documents

Re



Une petite macro à tester

Sub macro_jumeler()
Dim Chemin As String: Dim NOM_Fichier As String
Dim DER_CELL As Range: Dim Wkb As Workbook
Dim WS As Worksheet: Dim CE_CLASSEUR As String
CE_CLASSEUR = ThisWorkbook.Name
Application.EnableEvents = False: Application.ScreenUpdating = False
Chemin = InputBox("Repertoire?")
NOM_Fichier = Dir(Chemin & "\*.xls", vbNormal)
Do Until NOM_Fichier = ""
If NOM_Fichier <> CE_CLASSEUR Then
Set Wkb = Workbooks.Open(FileName:=Chemin & "\" & NOM_Fichier)
For Each WS In Wkb.Worksheets
Set DER_CELL = WS.Cells.SpecialCells(xlCellTypeLastCell)
If DER_CELL.Value = "" And DER_CELL.Address = _
Range("$A$1").Address Then
Else
WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
End If
Next WS
Wkb.Close False
End If
NOM_Fichier = Dir()
Loop
Application.EnableEvents = True: Application.ScreenUpdating = True
Set Wkb = Nothing: Set DER_CELL = Nothing
End Sub

 

[Cousinhub]

Re : Jumeler plusieurs documents

Re-,
regarde le fichier joint
A partir d'un Tableau Croisé Dynamique, plus une formule sur la gauche pour l'appellation

 

[Gerbra]

Re : Jumeler plusieurs documents

Je connais bien les tabeau..mais est ce que je peux lui donner plus d`une plage de donnés pour aller Chercher les information sur les 80 dossiers semblables?

 

[Cousinhub]

Re : Jumeler plusieurs documents

Re-,
Oui, à l'étape 1/3, tu ne sélectionnes pas "Liste ou base de données...", mais "Feuilles de plage de calcul avec étiquettes".
A l'étape 2a, "un seul (création automatique)
A l'étape 2b, tu sélectionnes toutes tes plages (dans ton cas de A23 à O118)
n'oublie pas de cliquer sur Ajouter à chaque fois que tu as sélectionné ta zone
A l'étape 3, dans disposition, tu choisis somme pour les valeurs

 

[Gerbra]

Re : Jumeler plusieurs documents

Cette option ne semle pas disponible sur la version 2007