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
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
Dernière édition: