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:
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
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 SubCependant 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
Dernière édition:
