Méthode Application.CompareProjectVersions (Project)

Affiche la boîte de dialogue Comparaison de versions de projets pour comparer deux versions d’un projet.

Syntaxe

expression. CompareProjectVersions

Expression Expression qui renvoie un objet Application .

Valeur renvoyée

Boolean

Remarques

La méthode CompareProjectVersions correspond à la commande Comparer des projets du groupe Rapports, sous l’onglet Projet du ruban. Si vous souhaitez contrôler par programmation la fonctionnalité de comparaison de projet (par exemple, si les colonnes de différence sont affichées), utilisez la méthode CreateComparisonReport .

Exemple

L’exemple suivant montre comment vérifier si un projet est ouvert avant d’appeler la méthode CompareProjectVersions. Si un projet est ouvert, le code vérifie la présence de tâches ou de ressources dans le projet avant d’appeler la méthode.

Sub CompareVersions () 
    If Projects.Count = 0 Then 
        MsgBox "You must have at least one project open before you can compare projects." 
    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 
 
    CompareProjectVersions 
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.