Rassembler des donnees de plusieurs classeur fermer dans un meme tableau

Delux · 22 Novembre 2012

Bonjour a tous,

Desole pour les accents, je travaille sur clavier QWERTY.

En faisant quelques recherches, j'ai pu trouver une macro de MichelXLD qui permet de rassembler des donnees de plusieurs classeurs fermes dans un classeur general. Voici cette fameuse macro qui est geniale:

Code:

Option Explicit
Option Base 1
Sub ChercheFichiersFermesV01()
Dim X As Integer, NbFichiers As Integer, Y As Integer
Dim Tableau() As String
Dim Direction As String
Dim Valeur As Double

Application.ScreenUpdating = False
Direction = Dir(ThisWorkbook.Path & "\*.xls")
Do While Len(Direction) > 0 'liste tous les classeurs du repertoire
NbFichiers = NbFichiers + 1
ReDim Preserve Tableau(1 To NbFichiers)
Tableau(NbFichiers) = Direction
Direction = Dir()
Loop

If NbFichiers > 0 Then
For X = 1 To NbFichiers 'boucles sur les classeurs

    ' pour ne pas prendre en compte le classeur contenant la macro (synthese)
    If Tableau(X) <> ThisWorkbook.Name Then
    
    For Y = 1 To 120 'boucle sur les produits à récupérer
    'recupere la valeur deja existante dans le tableau de synthese
    Valeur = ActiveSheet.Cells(Y + 4, 2)
    
    With ActiveSheet.Cells(Y + 4, 2) 'ajout des nouvelles valeurs
    .Formula = "='" & ThisWorkbook.Path & "\[" & Tableau(X) & "]" & "Feuil1" & "'!" _
    & Cells(Y + 1, 2).Address
    .Value = .Value + Valeur
    End With
    
    Next Y
    
    End If
    Next X
End If

Application.ScreenUpdating = True
End Sub

Cependant je ne suis encore qu'un debutant en macro et je peine un peu a la comprendre et a la maitriser.
De plus elle fait un calcule des donnees provenant des classeurs fermes et ce n'est pas ce que je cherche.

Ma question est la suivante, est-il possible de l'adapter pour recuperer des informations dans plusieurs classeurs fermes dont le noms sera different (template - mag, template - clem, ...etc) et de les coller dans un fichier general (Excel for PESG coordination meeting.xls) les unes apres les autres.

Exemple: le classeur general ressemblera a ceux nommes template (je l'ai mis en piece jointe. Ne faites pas attention aux macros deja en place).
Colonne A: Item/Project
Colonne B: Owner
Colonne C: Action
Colonne D: Due date/Frequence
Colonne E: Comment

Les classeur fermes auront la meme mise en page que le classeur general, mais ne possederont que les informations remplies par un seul utilisateurs.

J'aimerais donc que tous les classeurs template se copient/collent dans le classeur general (MOM Following).

J'ai essaye de la modifer mais je ne la comprends pas integralement, ce qui pose donc probleme.

Si quelau'un auvait une idee pour la modifier ou pouvait me l'expliquer plus en details afin que je la modifie moi meme, je suis preneur.

Je vous remercie d'avance.

Cordialement,

Delux

Delux · 30 Novembre 2012

Re : Rassembler des donnees de plusieurs classeur fermer dans un meme tableau

kjin à dit:
Bonjour,
Désolé de n'avoir point répondu, je ne reçois que très partiellement les notifications d'où mon silence
Tu as compris le principe et tu y es arrivé, c'est comme ça qu'on progresse
A+
kjin

Salut tout le monde,

Effectivement, c'est comme cela que l'on progresse.

Cependant, je n'ai toujours pas trouve le moyen de faire en sorte que ce qui est en gras dans les classeurs sources, le restent dans le classeur cible :/
Ceci est encore trop complex pour moi ^^

Si quelqu'un a une idee je suis prenneur

Merci d'avance

Cordialement,

Delux

Rassembler des donnees de plusieurs classeur fermer dans un meme tableau

Delux

XLDnaute Occasionnel

Pièces jointes

Delux

XLDnaute Occasionnel

Discussions similaires