Méthode Application.CreateComparisonReport (Project)

Article
04/07/2023

Crée un rapport de comparaison entre deux versions d’un projet.

Syntaxe

expression. CreateComparisonReport( _FileName_, _TaskTable_, _ResourceTable_, _Items_, _Columns_, _ShowLegend_ )

Expression Expression qui renvoie un objet Application .

Parameters

Nom	Requis/Facultatif	Type de données	Description
FileName	Facultatif	String	Chemin d’accès complet et nom du fichier de projet à comparer.
TaskTable	Facultatif	String	Nom de la table à utiliser pour comparaison dans un affichage des tâches.
ResourceTable	Facultatif	String	Nom de la table à utiliser pour comparaison dans un affichage des ressources.
Items	Facultatif	PjCompareVersionItems	Spécifie le type d’éléments à comparer.
Colonnes	Facultatif	PjCompareVersionColumns	Spécifie l’affichage des données de colonne uniquement, des différences par colonne uniquement ou des différences et données.
ShowLegend	Facultatif	Variant	Si la valeur est égale à True, affiche la légende dans le rapport de comparaison.

Valeur renvoyée

Boolean

Remarques

La méthode CreateComparisonReport compare les informations liées aux tâches ou ressources, mais pas les informations d’affectation.

Exemple

L’exemple suivant montre comment créer un rapport de comparaison. Le code vérifie tout d’abord qu’un projet est actuellement ouvert, puis il vérifie que les tâches ou les ressources figurent dans le projet. Le rapport de comparaison repose sur les tables de coûts, qui sont filtrées uniquement sur base des informations relatives aux tâches ou coûts des ressources modifiés, avec des colonnes qui affichent uniquement les différences entre les tâches ou les ressources. Enfin, le rapport de comparaison est enregistré avec un nom de fichier basé sur le (premier) projet actuel.

Sub ComparisonReport () 
    If Projects.Count = 0 Then 
        MsgBox "You must have at least one active project open before you can compare projects.", _ 
            vbInformation 
        Exit Sub 
    ElseIf ActiveProject.Tasks.Count = 0 Then 
        If ActiveProject.ResourceCount = 0 Then 
            MsgBox "There are no task or resources in the current project. " & vbCrLf _ 
            & "Open a project with either tasks or resources before creating a comparison report.", _ 
            vbInformation 
            Exit Sub 
        End If 
    End If 
 
    ' Get the name of the project to use for saving the comparison report. 
    Dim currentProject As Project 
    Set currentProject = ActiveProject 
 
    Dim previousVersion As String 
    previousVersion = "[full path to .mpp file to compare with the active project.]" 
 
    CreateComparisonReport FileName:=previousVersion, _ 
    TaskTable:="Cost", _ 
    ResourceTable:="Cost", _ 
    Items:=pjCompareVersionItemsChangedItems, _ 
    Columns:=pjCompareVersionColumnsDifferencesOnly, _ 
    Showlegend:=True 
 
    ' Save the comparison report based upon the name of the first project. 
    Dim comparisonReport As Project 
    Set comparisonReport = ActiveProject 
    ActiveProject.SaveAs currentProject & "_Compared.mpp" 
End Sub

Assistance et commentaires

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.

Partager via