Bonjour à tous,

Je suis entrain de développer une application qui (en gros) sort des tableaux de bords, en fonction des cases cocher dans plusieurs formulaires.

Mon problème est au niveau d'une variable (Nomenclature) que je déclare en caractère. Cette variable permet de répertorier les cases nomenclatures qui ont été cochées dans le formulaire.

ex: si l'utilisateur coche Sphère économique et Activités économiques, la variable Nomenclature est égale à "Sphère économique", "Activité économique". Dans mon code :Nomenclature = " ""Sphère économique"", "" Activité économique"" "

Jusque là, lorsque je fais un msgbox, c'est écrit correctement.

Ensuite cette variable Nomenclature me sert à créer des tableaux croisés dynamiques. Voilà mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Sheets("Resultat").Activate
 
'récup Nomenclature
Call choix_code_naf
 
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
 [Intermediaire!A1].CurrentRegion.Address(, , xlR1C1, True)).CreatePivotTable _
TableDestination:="Resultat!R3C1", _
TableName:="Premier test"
 
ActiveSheet.PivotTables("Premier test").AddFields RowFields:= _
Array(Nomenclature), ColumnFields:="annee"
 
If selection_base.nb_etablissement.Value = True Then
    With ActiveSheet.PivotTables("Premier test").PivotFields( _
          "Etablissements secteur privé")
          .Orientation = xlDataField
          .Position = 1
    End With
End If
 
ActiveWorkbook.ShowPivotTableFieldList = True
ActiveWorkbook.ShowPivotTableFieldList = False
Application.CommandBars("PivotTable").Visible = False
 
With ActiveSheet.PivotTables("Premier test").DataPivotField
    .Orientation = xlColumnField
    .Position = 1
End With
 
End Sub
J'ai une erreur sur la ligne où la variable Nomenclature est écrite...
lorsque que je fais du pas à pas, Nomenclature = "" Sphère économique", " Activité économique"", alors qu'il faudrait qu'elle s'affiche comme çà : "Sphère économique", "Activité économique"

Voilà! j'espère avoir été claire!

Merci d'avance pour vos réponses