webmasternic
XLDnaute Nouveau
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
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