Méthode Application.VisualReportsSaveCube (Project)
Enregistre un cube de rapports visuels dans le répertoire par défaut ou dans un répertoire spécifié.
expression. VisualReportsSaveCube
( _strNamePath_
, _PjVisualReportsCubeType_
, _ReportAlLFields_
, _PjVisualReportsDataLevel_
)
expressionUne variable qui représente un objetApplication.
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
strNamePath | Facultatif | String | Nom et chemin d’accès complet de l’emplacement dans lequel enregistrer le fichier de cube (.cub). |
PjVisualReportsCubeType | Facultatif | Long | Type de cube à enregistrer. Il peut s’agir de l’un des consants PjVisualReportsCubeType . La valeur par défaut est pjTaskTP. |
ReportAlLFields | Facultatif | Boolean | Si la valeur est True, tous les champs non personnalisés sont inclus dans le rapport. Valeur par défaut est False. |
PjVisualReportsDataLevel | Facultatif | Long | Niveau de données à enregistrer. Il peut s’agir de l’une des constantes PjVisualReportsDataLevel . La valeur par défaut est pjLevelAutomatic. |
Boolean
Le paramètre PjVisualReportsDataLevel spécifie le niveau auquel les données chronologiques sont accessibles. Par exemple, si pjLevelMonths (mois) est spécifié, il n’est pas possible d’accéder à pjLevelDays (jours).
Affecter au paramètre ReportAllFields la valeur True peut nuire aux performances.
Le code suivant enregistre un cube.
Sub a()
Dim tf As Boolean
tf = Application.VisualReportsSaveCube("c:\cube.cub", pjTaskNTP, , pjLevelQuarters)
If tf = True Then
MsgBox ("Cube saved successfully")
Else
MsgBox ("Cube not saved successfully")
End If
End Sub
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.