Bonjour à tous,
Je vais essayé d'être le plus clair possible dans mon explication. Je tiens à préciser que je débute en macro.
J'ai actuellement un dossier, qui regroupe plusieurs classeurs identiques, et je dois récolter les informations de chacun d'eux dans un classeur récapitulatif.
J'ai réussis à récolté le nom de chacun des classeurs, qui sont à la suite dans ma colonne A.
A copier la case J2 de chacun de mes classeurs, et qui s'affichent très bien en colonne B.
Et voici les problèmes, je dois aussi copier :
La case C11 en colonne C
La case K54 en colonne D
Mais je ne vois comment ajouter tout cela.
Voici l'état actuel de ma Macro :
Sub Récupération()
' Initialisation
Cells.Delete
'Ligne de titre
Range("A1") = "N° de NC"
Range("B1") = "Client"
Range("C1") = "Affaire"
Range("D1") = "Coût"
' Parcours de tous les fichiers
ChDir "M:\Qualité\Fiche de non conformité 17-18"
ClasseurRecap = Dir("M:\Qualité\Fiche de non conformité 17-18\*.xlsx")
While Len(ClasseurRecap) > 0
Workbooks.Open ClasseurRecap
AvantDerniereLigne = ActiveSheet.UsedRange.Rows.Count - 1
Range("J2").Copy
Workbooks("000-Recap.xlsm").Activate
DebutNomFichier = ActiveSheet.UsedRange.Rows.Count + 1
Range("B" & ActiveSheet.UsedRange.Rows.Count + 1).Select
ActiveSheet.PasteVBA
Range("A" & DebutNomFichier & ":A" & ActiveSheet.UsedRange.Rows.Count) = ClasseurRecap
Workbooks(ClasseurRecap).Close
ClasseurRecap = Dir
Wend
'Suppression des extensions XLSX
Columns("A:A").Replace ".xlsx", ""
'Ajuster colonnes
Cells.EntireColumn.AutoFit
Range("A1").Select
End Sub
Merci d'avance de vos réponses.