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.