Myst
XLDnaute Occasionnel
Bonjour, le forum
J'aurais besoin d'aide pour la mise a jour de TCD a la dernière date saisie ,actuellement je saisie des données dans une base de donnée qui ce trouve dans la feuil1 puis j’ouvre la feuil2 qui actualise automatiquement les TCD quelle contient
code :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim oPivotTable As PivotTable
If Sh.Type = XlSheetType.xlWorksheet Then
For Each oPivotTable In Sh.PivotTables
oPivotTable.RefreshTable
Next oPivotTable
End If
End Sub
mais je suis quand même obligé de sélectionner dans le filtre de rapport la dernière date saisie précédemment
comment avoir la dernière date cocher et seulement celle la automatiquement
merci
J'aurais besoin d'aide pour la mise a jour de TCD a la dernière date saisie ,actuellement je saisie des données dans une base de donnée qui ce trouve dans la feuil1 puis j’ouvre la feuil2 qui actualise automatiquement les TCD quelle contient
code :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim oPivotTable As PivotTable
If Sh.Type = XlSheetType.xlWorksheet Then
For Each oPivotTable In Sh.PivotTables
oPivotTable.RefreshTable
Next oPivotTable
End If
End Sub
mais je suis quand même obligé de sélectionner dans le filtre de rapport la dernière date saisie précédemment
comment avoir la dernière date cocher et seulement celle la automatiquement
merci