With Range("A1").PivotTable For i = 1 To .PivotFields.Count ' <<<<<<========================================= nomFeuille = .PivotFields(i).CurrentPage.Name On Error Resume Next Sheets(nomFeuille).Name = nomFeuille If Err = 0 Then If MsgBox("La feuille '" & nomFeuille & "' existe déjà!" & vbCrLf & "En cliquant sur oui elle sera détruite puis recréée avec les nouvelles données" & vbCrLf & vbCrLf & "Continuer?", vbQuestion + vbYesNo, "Création feuille " & nomFeuille) = vbYes Then Application.DisplayAlerts = False Sheets(nomFeuille).Delete Application.DisplayAlerts = True End If End If On Error GoTo 0 .TableRange1.Cells(.TableRange1.Cells.Count).ShowDetail = True ActiveSheet.Nam = nomFeuille Next ' <<<<<=============================================== End With
For each machin .PivotFields nomFeuille = machin.CurrentPage.Name .............. Next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionIl y a une erreur "variable non définie", ca s'arrete au for "i"