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