Bonjour,
Je fais une macro pour changer le nom de tous les TCD sur toutes les feuilles de mon classeurs. J'ai un problème
car certaines feuilles ont 1 seul TCD et d'autres plusieurs. Je n'arrive pas à boucler correctement les TCD pour qu'il puissent tous changer de nom.
Quelqu'un peut-il m'aider ? Merci par avance.
Très cordialement.
ub Test()
Application.ScreenUpdating = False
'On Error GoTo Erreur
Dim Ws As Worksheet
P = Range("F3").Value
Y = Range("F5").Value
M = Range("F7").Value
For Each Ws In Worksheets
' Sélection du SRS de référence
' Sélection du SRS en fonction des champs remplis dans le questionnaire
If M < 10 Then
MsgBox ("'C:\dossier\20" & Y & "\" & P & "\dossier" & P & "0" & M & Y & B & ".xls'!data")
ActiveSheet.PivotTables(1).ChangePivotCache ActiveWorkbook.PivotCaches. _
Create(SourceType:=xlDatabase, SourceData:= _
"'C:\dossier\20" & Y & "\" & P & "dossier" & P & "0" & M & Y & B & ".xls'!data")
Else
ActiveSheet.PivotTables(1).ChangePivotCache ActiveWorkbook.PivotCaches. _
Create(SourceType:=xlDatabase, SourceData:= _
"'C:\dossier\20" & Y & "\" & P & "\dossier" & P & M & Y & B & ".xls'!data", Version:=xlPivotTableVersion10)
End If
Else
End If
Next Ws
Worksheets("Par client").Select
Range("F4").Select
Selection.End(xlToRight).Select
Exit Sub
'
'Erreur:
'MsgBox ("Votre SRS de référence n'existe pas. Recommencer")
'Worksheets("Initial").Select
End Sub