Compilation de données de plusieurs classeur excel vers un seul
Résolu
med_mugen
Messages postés
81
Statut
Membre
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonsoir toute communauté,
Je reviens vers vous afin que quelqu'un puisse me fournir une petite correction à ma macro pour que celle-ci puisse fonctionner.
Il s'agit d'une macro plutôt simple dans l'esprit ; dans un fichier déterminé (chemin déterminé par la macro) il existe plusieurs classeur excel au format de nom identique et dont la constitution (contenu) est également identique. Dans un autre fichier existe un classeur excel qui consolidera tous les autres.
Le but étant d'aller chercher les données d'un tableau d'une feuille contenue dans chaque classeur excel (nom de feuille est identique, format du tableau identique) et de compiler ces données à la suite dans un tableau du classeur consolidation (tableau toujours au même format).
voilà mon code
J'ai pour ce faire essayé d'utiliser des fonctions déjà présente dans mes classeurs et tenté d'obtenir le bon algorithme. Malheureusement, je pense que ma formule coince à partir de thisworkbook.worksheets("base")
Si une âme charitable pouvait m'éclairer ma lanterne pour continuer d'avancer, je lui en serai reconnaissant ^^.
Par avance merci pour votre contribution et votre disponibilité à tous et à toutes
Je reviens vers vous afin que quelqu'un puisse me fournir une petite correction à ma macro pour que celle-ci puisse fonctionner.
Il s'agit d'une macro plutôt simple dans l'esprit ; dans un fichier déterminé (chemin déterminé par la macro) il existe plusieurs classeur excel au format de nom identique et dont la constitution (contenu) est également identique. Dans un autre fichier existe un classeur excel qui consolidera tous les autres.
Le but étant d'aller chercher les données d'un tableau d'une feuille contenue dans chaque classeur excel (nom de feuille est identique, format du tableau identique) et de compiler ces données à la suite dans un tableau du classeur consolidation (tableau toujours au même format).
voilà mon code
[/contents/446-fichier-sub Sub] Compilation()
Dim Fichier As String
Dim Chemin As String
Dim ClasseurSource As Workbook
Dim valeur1 As String
Dim MonTableau As Variant
Application.DisplayAlerts = False 'Evite les messages d'Excel
Application.EnableEvents = False 'Evite l'exécution éventuelle de macros liées aux fichiers ouverts
valeur1 = Sheets("Base").Range("D2").Value
Chemin = "J:\Rom France\France\WPP\" & valeur1 'Chemin du répertoire contenant les fichiers
Fichier = Dir(Chemin & "*.xls*")
Do While Fichier <> ""
Set ClasseurSource = Workbooks.Open(Chemin & Fichier)
MonTableau = ClasseurSource.Worksheets("Masterfile-valeurs").Range("Tableau5")
ThisWorkbook.Worksheets("Base").Range ("Conso")
derlig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
Range("derlig+1") = MonTableau
ClasseurSource.Close
Fichier = Dir
Loop
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub
J'ai pour ce faire essayé d'utiliser des fonctions déjà présente dans mes classeurs et tenté d'obtenir le bon algorithme. Malheureusement, je pense que ma formule coince à partir de thisworkbook.worksheets("base")
Si une âme charitable pouvait m'éclairer ma lanterne pour continuer d'avancer, je lui en serai reconnaissant ^^.
Par avance merci pour votre contribution et votre disponibilité à tous et à toutes
1 réponse
-
bonjour
essaies
With ThisWorkbook.Worksheets("Base").Range ("Conso")petit +
derlig = Cells.Find(what:="*",searchdirection:= xlPrevious).Row
.Range(derlig+1) = MonTableau 'MANQUE LA COLONNE
End with
displayalerts à éviter
petite macro de dépannage évitant des sueurs froidessub SOS_events()
'permet de rétablir les macros en cas de sortie accidentelle d'un code, enableevents étant désactivé
Application.EnableEvents = True
end sub
Michel-
-
.Range(derlig+1) = MonTableau 'MANQUE LA COLONNE
.
End with
il s'agit de la première colonne du tableau, du coup dois simplement écrire
.Range(derlig+1, 1) ?
</j'ai essayé .range(derlig+1, numcolonn("A1")
Aussi derniere question,
sub SOS_events()
'permet de rétablir les macros en cas de sortie accidentelle d'un code, enableevents étant désactivé
Application.EnableEvents = True
end sub
je dois placer cette macro avant sub compilation n'est ce pas ? -
-
-
-
