XL 2016 Copier coller de valeurs avec remplissage des cellules après la fusion de documents

[Matwix]

Bonjour,

J'ai mis à profil le confinement pour bosser un peu mon VBA, mais je reste novice.

J'ai entrepris de créer un document pour récupérer (fusionner) des documents qui ont tous la même forme (extraction d'un logiciel).

Les données sont correctement copier mais pas le remplissage coloré des cellules. Or c'est le plus important de ma base.

Merci d'avance

Martin

Sub RecupDonnees() Dim FichierAOuvrir Dim i As Integer Application.ScreenUpdating = False Application.DisplayAlerts = False Set F1 = Sheets("Liste") Set F2 = Sheets("Produit dans une tâche") F1.Select ChDrive Cells(2, 1) Chemin = Cells(2, 2) & "/" ReDim FichierAOuvrir([C1000].End(xlUp).Row - 1) As String NbFichiers = [C1000].End(xlUp).Row - 1 For i = 1 To NbFichiers If Cells(i + 1, 3) = "" Then GoTo Recup FichierAOuvrir(i) = Cells(i + 1, 3) Next i Recup: F2.Select For i = 1 To NbFichiers Workbooks.Open Chemin & FichierAOuvrir(i) Sheets(7).Select Range(Cells(6, 1), Cells([A100000].End(xlUp).Row, 126)).Copy ActiveWorkbook.Close Range("A" & [A1000000].End(xlUp).Row + 1).Select ActiveSheet.Paste Next i End Sub

 

[fanch55]

Salut, il faudrait un exemple de fichier à fusionner

 

[Matwix]

Bonjour,

Excusez moi mais j'ai eu du mal à récupérer des fichiers.

Voici des exemples des fichiers à fusionner. Je ne cherche qu'à copier l'onglet placer en 7ième position produit dans une zone.