Erreur de compilation - variable non définie - PivotTable

[webmasternic]

Bonjour,

J'ai un problème avec un fichier comprenant des formulaires. Jusqu'à aujourd'hui, le fichier fonctionnait mais désormais à l'ouverture du fichier, j'ai une erreur VBA Erreur de compilation Variable non définie et le point d'arrêt se fait sur le PivotTable1. Je joins ci-après le code d'ouverture du formulaire. Est-ce quelqu'un pourrait m'aider.




Private Sub UserForm_Initialize()





On Error Resume Next

Dim Cible As String
Dim oPvtViewDecouverts As OWC10.PivotView
Dim oFieldSetsDecouverts As OWC10.PivotFieldSets
Dim oPvtViewFaillitesPrononcees As OWC10.PivotView
Dim oFieldSetsFaillitesPrononcees As OWC10.PivotFieldSets
Dim oPvtViewFaillitesCloturees As OWC10.PivotView
Dim oFieldSetsFaillitesCloturees As OWC10.PivotFieldSets
Dim oPvtTotal As PivotTotal
Dim oPvtTotal2 As PivotTotal
Dim oPvtTotal3 As PivotTotal

Dim GrdTotal As Integer



MultiPage1.Value = 0

'Le catalogue est représenté par le chemin complet du classeur, sans l'extension (.xls).
Cible = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 4)
'Emplêche l'affichage de la fenêtre gestion des champs
PivotTable1.DisplayFieldList = False

PivotTable2.DisplayFieldList = False

PivotTable3.DisplayFieldList = False

'Connexion
PivotTable1.ConnectionString = _
"Provider=MSDASQL.1;Persist Security Info=True;Extended Properties=" & Chr(34) & _
"DSN=Fichiers Excel;DBQ=" & ThisWorkbook.FullName & ";DefaultDir=" & ThisWorkbook.Path & _
";DriverId=790;MaxBufferSize=2048;PageTimeout=5;" & Chr(34) & _
";Initial Catalog=" & Cible
DoEvents
PivotTable2.ConnectionString = _
"Provider=MSDASQL.1;Persist Security Info=True;Extended Properties=" & Chr(34) & _
"DSN=Fichiers Excel;DBQ=" & ThisWorkbook.FullName & ";DefaultDir=" & ThisWorkbook.Path & _
";DriverId=790;MaxBufferSize=2048;PageTimeout=5;" & Chr(34) & _
";Initial Catalog=" & Cible
DoEvents
PivotTable3.ConnectionString = _
"Provider=MSDASQL.1;Persist Security Info=True;Extended Properties=" & Chr(34) & _
"DSN=Fichiers Excel;DBQ=" & ThisWorkbook.FullName & ";DefaultDir=" & ThisWorkbook.Path & _
";DriverId=790;MaxBufferSize=2048;PageTimeout=5;" & Chr(34) & _
";Initial Catalog=" & Cible
PivotTable1.CommandText = "SELECT * FROM [DonneesPrinc$]"
PivotTable2.CommandText = "SELECT * FROM [DonneesPrinc$]"
PivotTable3.CommandText = "SELECT * FROM [DonneesPrinc$]"


Set oPvtViewDecouverts = PivotTable1.ActiveView
Set oFieldSetsDecouverts = oPvtViewDecouverts.FieldSets

Set oPvtViewFaillitesPrononcees = PivotTable2.ActiveView
Set oFieldSetsFaillitesPrononcees = oPvtViewFaillitesPrononcees.FieldSets

Set oPvtViewFaillitesCloturees = PivotTable3.ActiveView
Set oFieldSetsFaillitesCloturees = oPvtViewFaillitesCloturees.FieldSets

With oPvtViewDecouverts

.FilterAxis.InsertFieldSet oFieldSetsDecouverts("Année Clôture")
.FieldSets("Année Clôture").Fields(0).Caption = "Année Clôture"



.RowAxis.InsertFieldSet oFieldSetsDecouverts("Région")
.FieldSets("Région").Fields(0).Caption = "Région"

'Ajoute le champ "Valeurs" dans la zone données (Data)
.DataAxis.InsertFieldSet oFieldSetsDecouverts("Découvert")







'Ajoute une fonction Somme
Set oPvtTotal = oPvtViewDecouverts.AddTotal("Somme Découvert", _
oFieldSetsDecouverts("Découvert").Fields(0), plFunctionSum)
.DataAxis.InsertTotal oPvtTotal
oPvtTotal.HAlignment = plHAlignCenter
'oPvtTotal.NumberFormat = "########0.00"



'Mise en forme de la barre de titre
With .TitleBar
'La police de caractères
.Caption = "Découverts"
.Font.Name = "arial"
'Couleur de fond
.BackColor = RGB(102, 102, 204)
'Couleur du texte
.ForeColor = RGB(255, 255, 255)
End With
End With
With oPvtViewFaillitesPrononcees
.FilterAxis.InsertFieldSet oFieldSetsFaillitesPrononcees("Année Ouverture")
.FieldSets("Année Ouverture").Fields(0).Caption = "Année Ouverture"

.FilterAxis.InsertFieldSet oFieldSetsFaillitesPrononcees("Catégorie")
.FieldSets("Catégorie").Fields(0).Caption = "Catégorie"

.FilterAxis.InsertFieldSet oFieldSetsFaillitesPrononcees("RC")
.FieldSets("RC").Fields(0).Caption = "RC"
.FilterAxis.InsertFieldSet oFieldSetsFaillitesPrononcees("Article 731bCO")
.FieldSets("Article 731bCO").Fields(0).Caption = "731bCO"

.FilterAxis.InsertFieldSet oFieldSetsFaillitesPrononcees("Succrépudiée")
.FieldSets("Succrépudiée").Fields(0).Caption = "Succrépudiée"


.RowAxis.InsertFieldSet oFieldSetsFaillitesPrononcees("Région")
.FieldSets("Région").Fields(0).Caption = "Région"

Set oPvtTotal2 = oPvtViewFaillitesPrononcees.AddTotal("Désignation Faillites", _
oFieldSetsFaillitesPrononcees("Désignation Faillites").Fields(0), plFunctionCount)
.DataAxis.InsertTotal oPvtTotal2
oPvtTotal2.HAlignment = plHAlignCenter
oPvtTotal2.NumberFormat = "### ### ##0"


With .TitleBar
'La police de caractères
.Caption = "Faillites prononcées"
.Font.Name = "arial"
'Couleur de fond
.BackColor = RGB(102, 102, 204)
'Couleur du texte
.ForeColor = RGB(255, 255, 255)
End With
End With
With oPvtViewFaillitesCloturees
.FilterAxis.InsertFieldSet oFieldSetsFaillitesCloturees("Année Clôture")
.FieldSets("Année Clôture").Fields(0).Caption = "Année Clôture"
.FilterAxis.InsertFieldSet oFieldSetsFaillitesCloturees("Catégorie")
.FieldSets("Catégorie").Fields(0).Caption = "Catégorie"
.FilterAxis.InsertFieldSet oFieldSetsFaillitesCloturees("Procédure")
.FieldSets("Procédure").Fields(0).Caption = "Procédure"
.FilterAxis.InsertFieldSet oFieldSetsFaillitesCloturees("RC")
.FieldSets("RC").Fields(0).Caption = "RC"
.FilterAxis.InsertFieldSet oFieldSetsFaillitesCloturees("Article 731bCO")
.FieldSets("Article 731bCO").Fields(0).Caption = "731bCO"

.FilterAxis.InsertFieldSet oFieldSetsFaillitesCloturees("Succrépudiée")
.FieldSets("Succrépudiée").Fields(0).Caption = "Succrépudiée"


.RowAxis.InsertFieldSet oFieldSetsFaillitesCloturees("Région")
.FieldSets("Région").Fields(0).Caption = "Région"

Set oPvtTotal3 = oPvtViewFaillitesCloturees.AddTotal("Désignation Faillites", _
oFieldSetsFaillitesCloturees("Désignation Faillites").Fields(0), plFunctionCount)
.DataAxis.InsertTotal oPvtTotal3
oPvtTotal3.HAlignment = plHAlignCenter
oPvtTotal3.NumberFormat = "### ### ##0"
With .TitleBar
'La police de caractères
.Caption = "Faillites clôturées"
.Font.Name = "arial"
'Couleur de fond
.BackColor = RGB(102, 102, 204)
'Couleur du texte
.ForeColor = RGB(255, 255, 255)
End With

End With

'Masque les détails
PivotTable1.ActiveData.HideDetails
PivotTable2.ActiveData.HideDetails
PivotTable3.ActiveData.HideDetails



End Sub

 

[camarchepas]

Re : Erreur de compilation - variable non définie - PivotTable

Bonjour ,

C'est juste immangeable ,

un fichier avec quelques données de test et la macro à l'intérieur de celui ci donnerait un peu d'appétit.

 

[camarchepas]

Re : Erreur de compilation - variable non définie - PivotTable

Re

Mets ton : 'On Error Resume Next' en commentaire et dits nous ou cela bloque