XL 2016 vba erreur de code reporting

[douguy]

Bonjour le Forum

Je viens vous voir pour un petit problème à corriger sur un code

Sub exportmec()

premierjour = DateSerial(year(Date), month(Date) - 1, 1)
dernierjour = DateSerial(year(Date), month(Date) + 12, 1) - 1

With Worksheets("pivotgroup").PivotTables("Tableau croisé dynamique1")
.PivotFields("DATE").ClearLabelFilters
.PivotFields("DATE").PivotFilters.Add Type:=xlDateBetween, Value1:="" & premierjour, Value2:="" & dernierjour
Haut = premierjour - DateSerial(year(Date), 1, 1) + 2 + 365
Bas = Date - DateSerial(year(Date), 1, 1) + 1 + 365
Nombre = .DataBodyRange.Rows.Count - 1
[Sheet3].Range([Sheet3].Cells(Haut, Bas), [Sheet3].Cells(Haut + Nombre - 1, Bas)).Value = .DataBodyRange.Columns(1).Resize(Nombre, 1).Cells.Value
[Sheet4].Range([Sheet4].Cells(Haut, Bas), [Sheet4].Cells(Haut + Nombre - 1, Bas)).Value = .DataBodyRange.Columns(2).Resize(Nombre, 1).Cells.Value
[Sh_MEC].Range([Sh_MEC].Cells(Haut, Bas), [Sh_MEC].Cells(Haut + Nombre - 1, Bas)).Value = .DataBodyRange.Columns(3).Resize(Nombre, 1).Cells.Value
[Sh_MEC1].Range([Sh_MEC1].Cells(Haut, Bas), [Sh_MEC1].Cells(Haut + Nombre - 1, Bas)).Value = .DataBodyRange.Columns(4).Resize(Nombre, 1).Cells.Value

.PivotFields("DATE").ClearLabelFilters
End With



End Sub



j'ai un onglet source avec pleins de dates et d'infos et j'ai un code qui me permet de récupérer les infos qui m'intéressent par rapport aux dates et les colle dans 4 nouveaux onglets (la source est un TCD qui se met à jour quotidiennement donc l'idée c'est de "sauvegarder" le TCD chaque jour (dates en ligne 1) et de les coller entre 2 bornes (sur 13 mois coulissants)

Mon problème est que lorsqu'il y a "des trous" dans les dates (par exemple on passe du 24 septembre au 26) le copier coller se fait mal et crée un décalage

Est ce que quelqu'un aurait une idée pour corriger ce problème?


Je vous joints les exemples

un grand merci d'avance !

 

[Bebere]

Douguy essaye avec la pièce jointe,içi çà fonctionne

 

[douguy]

bonjour Bébère

merci encore une fois de ton retour
Rien à faire, chez moi la macro tourne mais rien ne se passe.

Quand vous lancez la macro ca vous fait bien l'extraction dans la colonne du TCD dans chaque onglets correspondant à la date J-1 du système ?
chez moi ca s'execute en 1 seconde mais rien ne s'écrit !!!

pouvez vous m'expliquer la logique du code que vous écrit svp ?
J'essaye de comprendre mais c'est un peu chaud pour moi !

merci d'avance

 

[Bebere]

bonjour
Douguy mis des commentaires
dans feuil2 exemple de ce qui est inscrit dans 2 feuilles
dans vbe tu sais afficher la fenêtre variables locales et démarrer le code en pas à pas
touche fonction F8

 

[douguy]

merci Bébère

je regarde tout ca et vous dis !

Bonne journée