Reports.Copy, méthode (Project)

Copie un rapport personnalisé et crée un rapport avec le même contenu.

Syntaxe

expression. Copy (Source, NewName)

Expression Variable qui représente un objet « Reports ».

Parameters

Nom	Requis/Facultatif	Type de données	Description
Source	Obligatoire	Variant	Nom ou objet Report du rapport à copier.
Newname	Obligatoire	String	Nom du nouveau rapport.
Source	Obligatoire	Variant
Newname	Obligatoire	String

Valeur renvoyée

Report

Nouveau rapport.

Exemple

La macro CopyAReport vérifie si le rapport spécifié à copier existe et vérifie si le nouveau rapport existe déjà. La macro utilise ensuite l’une des variantes du paramètre Source pour créer une copie du rapport, puis affiche le nouveau rapport.

Sub CopyAReport()
    Dim reportName As String
    Dim newReportName As String
    Dim newExists As Boolean
    Dim oldExists As Boolean
    Dim report2Copy As Report
    Dim newReport As Report
    
    reportName = "Table Tests"
    newReportName = "New Table Tests"
    oldExists = ActiveProject.Reports.IsPresent(reportName)
    newExists = ActiveProject.Reports.IsPresent(newReportName)
    
    Debug.Print "oldExists " & CStr(oldExists) & "; newExists " & newExists
    
    If oldExists And Not newExists Then
        Set report2Copy = ActiveProject.Reports(reportName)
        
        ' Use either of the following two statements.
        'Set newReport = ActiveProject.Reports.Copy(report2Copy, newReportName)
        Set newReport = ActiveProject.Reports.Copy(reportName, newReportName)
       
        newReport.Apply
    End If
    
    If (oldExists = False) Then
         MsgBox Prompt:="The requested report to copy, '" & reportName _
            & "', does not exist.", Title:="Report copy error"
    ElseIf newExists Then
        MsgBox Prompt:="The new report '" & newReportName _
            & "' already exists.", Title:="Report copy error"
    Else
        MsgBox Prompt:="The new report '" & newReportName & "'" _
            & vbCrLf & "is copied from '" & reportName & "'.", _
            Title:="Report copy success"
    End If
End Sub

Voir aussi

Reports, objetReport

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.