Bonjour,
J'ai crée une concaténation de 2 fichiers Excel existant (ayant chacun plusieurs onglets) dans un seul et même fichier avec des Queries.
Les données des 2 fichiers sont réparties en 2 onglets spécifiques nommés "PD Process" ou "PD Maintenance".
Je souhaiterais maintenant pouvoir extraire les données des dernières heures/semaine via des macros associées à des boutons dans mon sommaire(dans l’idéal j'aimerais même créer un bouton avec choix de durée ou date...mais ça c'est un autre problème ! ).
Cela fonctionne pour l'un des 2 onglets (la partie "Maintenance") mais pas pour l'autre (la partie "Process") et je n'arrive pas à savoir d'ou vient l'erreur.
Pourriez-vous m'aider sachant que je ne maîtrise pas le VBA et que je pars de Macro existante que j'ai modifiées à la volée.
Voilà le code utilisé:
Sub Historique24hProcess()
'
'----------Efface tout----------------------------------------------------------------------------------------------------
Sheets("HistoriqueProcess").Select
Rows("2:100000").Select
'Selection.Interior.ColorIndex = xlNone
Selection.ClearContents
Rows("2:100000").EntireRow.AutoFit
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
ActiveWindow.SmallScroll Down:=-21
Range("B1").Select
Selection.NumberFormat = "m/d/yyyy h:mm"
Range("B1").Select
Cells(1, 2) = Now()
i = 2
Dim nbjour As Single
nbjour = 1
'------------PD Process---------------------------------------------------------------------------------------------------------
p = 2
While ((Worksheets("PD Process").Cells(p, 2).Value + nbjour) < Worksheets("HistoriqueProcess").Cells(1, 2))
p = p + 1
If Worksheets("PD Process").Cells(p, 2) = "" Then
GoTo finpdp
End If
Wend
' ----ONglet---
'_________________________________________________________________________________________________________________________
While Worksheets("PD Process").Cells(p, 4).Value <> ""
Range(Cells(i, 1), Cells(i, 1)).Select
With Selection.Interior
.ColorIndex = 44
End With
Worksheets("HistoriqueProcess").Cells(i, 2).Value = Worksheets("PD Process").Cells(p, 2).Value
Worksheets("HistoriqueProcess").Cells(i, 3).Value = Worksheets("PD Process").Cells(p, 3).Value
Worksheets("HistoriqueProcess").Cells(i, 4).Value = Worksheets("PD Process").Cells(p, 4).Value
Worksheets("HistoriqueProcess").Cells(i, 5).Value = Worksheets("PD Process").Cells(p, 5).Value
Worksheets("HistoriqueProcess").Cells(i, 6).Value = Worksheets("PD Process").Cells(p, 6).Value
Worksheets("HistoriqueProcess").Cells(i, 7).Value = Worksheets("PD Process").Cells(p, 7).Value
Worksheets("HistoriqueProcess").Cells(i, 8).Value = Worksheets("PD Process").Cells(p, 8).Value
Worksheets("HistoriqueProcess").Cells(i, 9).Value = Worksheets("PD Process").Cells(p, 9).Value
Worksheets("HistoriqueProcess").Cells(i, 10).Value = Worksheets("PD Process").Cells(p, 10).Value
Worksheets("HistoriqueProcess").Cells(i, 11).Value = Worksheets("PD Process").Cells(p, 11).Value
p = p + 1
i = i + 1
Wend
finpdp:
'----------Sélection première cellule-------------------------------------------------------------------------------------
Cells(1, 1).Select
'_________________________________________________________________________________________________________________________
End Sub
Et l'ensemble du projet:
Je ne sais pas quoi mettre d'autre
PS: le fichier est trop lourd pour l'envoyer avec ma demande mais je peux l'envoyer/partager via un autre biais si besoin.