activeworkbook is hidden ???

[vovo]

Hallo,

ik probeer een pivottable via VBA te laten starten, maar krijg steeds deze meldng :
'cannot jump to activeWorkbook because it is hidden' hoe kan je dit het makkelijkst omzeilen in VBA ?

En een ander vraagje, op het forum vond ik een formule om de weeknummer te laten verschijnen, dit werkt ook effectief ! Echter hoe kan ik dit het makkelijkst in een macro steken ? Wanneer ik de formule in een blanco excel via personal workbook wil opnemen, dan lukt dat niet ?

Bedankt.
Eddy

 

[Warme bakkertje]

Met deze UDF bereken je in VBA het weeknummer.
Gebruik hem op je werkblad als =Isoweek(cel met je datum hier invullen)

Function IsoWeek(d1)
    IsoWeek = Format(d1, "ww", 2) - IIf(Format("04-01-" & Year(d1), "ww", 2) = 2, 1, 0)
    If IsoWeek = 0 Then IsoWeek = 53
End Function

Voor wat betreft je 2de vraag zou ik eens een voorbeeldbestandje toevoegen met de code die je nu gebruikt en een draaitabel.

 

[vovo]

Met deze UDF bereken je in VBA het weeknummer.
Gebruik hem op je werkblad als =Isoweek(cel met je datum hier invullen)

Function IsoWeek(d1)
    IsoWeek = Format(d1, "ww", 2) - IIf(Format("04-01-" & Year(d1), "ww", 2) = 2, 1, 0)
    If IsoWeek = 0 Then IsoWeek = 53
End Function

Voor wat betreft je 2de vraag zou ik eens een voorbeeldbestandje toevoegen met de code die je nu gebruikt en een draaitabel.

Bedankt voor het weeknummer !!

Hier de macro die ik probeer te gebruiken : ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"DB!C1:C4").CreatePivotTable TableDestination:="'[test 36.xls]RESULT'!R5C1", _
TableName:="PivotTable1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("PivotTable1").NullString = "0"
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Du", _
ColumnFields:="délégué", PageFields:="Type d'opération"
ActiveSheet.PivotTables("PivotTable1").PivotFields("Type d'opération"). _
Orientation = xlDataField
With ActiveSheet.PivotTables("PivotTable1").PivotFields("délégué")
.PivotItems("#N/A").Visible = False
.PivotItems("(blank)").Visible = False
End With
Range("A7:A11").Select
Selection.NumberFormat = "dddd"
Range("A17").Select
End Sub


Ik heb ook de "show hidden members" in de object browser reeds aangevinkt.

Prettige dag.