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

Matwix

XLDnaute Nouveau
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
 

Pièces jointes

  • Récup Données.xlsm
    22.1 KB · Affichages: 6
Dernière édition:

Matwix

XLDnaute Nouveau
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.
 

Pièces jointes

  • BID_1.xlsx
    117.3 KB · Affichages: 0
  • COL_1.xlsx
    55.5 KB · Affichages: 1
Haut Bas