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
 

Fichiers joints

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.
 

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas