Jumeler plusieurs documents

A

astralon

XLDnaute Occasionnel

• 1 Février 2008

• #2

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

 

Vote positif 0 Vote négatif

G

Gerbra

Guest

• 1 Février 2008

• #3

Re : Jumeler plusieurs documents

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 1 Février 2008

• #4

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...

 

Vote positif 0 Vote négatif

G

Gerbra

Guest

• 1 Février 2008

• #5

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 1 Février 2008

• #6

Re : Jumeler plusieurs documents

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

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Février 2008

• #7

Re : Jumeler plusieurs documents

Bonjour


Fichier non passé

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

edit: houps collision, bonjour bhbh

 

Vote positif 0 Vote négatif

G

Gerbra

Guest

• 1 Février 2008

• #8

Re : Jumeler plusieurs documents

Voilà

gfdos

 

Pièces jointes

• QC - Spring Pre-Book Program 2008-Internet.zip

  46.2 KB · Affichages: 44

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Février 2008

• #9

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 1 Février 2008

• #10

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

 

Pièces jointes

• gerbra.zip

  80.8 KB · Affichages: 30

Vote positif 0 Vote négatif

G

Gerbra

Guest

• 1 Février 2008

• #11

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?

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 1 Février 2008

• #12

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

 

Vote positif 0 Vote négatif

G

Gerbra

Guest

• 1 Février 2008

• #13

Re : Jumeler plusieurs documents

Cette option ne semle pas disponible sur la version 2007

 

Vote positif 0 Vote négatif