echec lors du chargement

Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.ReportSource.RemoteReportSource

Public Class F_crystal

Inherits System.Windows.Forms.Form

#Region " Code généré par le Concepteur Windows Form "

Public Sub New()

MyBase.New()

'Cet appel est requis par le Concepteur Windows Form.

'Ajoutez une initialisation quelconque après l'appel InitializeComponent()

End Sub

'La méthode substituée Dispose du formulaire pour nettoyer la liste des composants.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

End If

End If

MyBase.Dispose(disposing)

End Sub

'Requis par le Concepteur Windows Form

Private components As System.ComponentModel.IContainer

'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form

'Elle peut être modifiée en utilisant le Concepteur Windows Form.

'Ne la modifiez pas en utilisant l'éditeur de code.

'Friend WithEvents CrystalReportViewer1 As CrystalDecisions.Windows.Forms.CrystalReportViewer

Friend WithEvents CrystalReportViewer1 As CrystalDecisions.Windows.Forms.CrystalReportViewer

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(F_crystal))

Me.CrystalReportViewer1 = New CrystalDecisions.Windows.Forms.CrystalReportViewer

Me.SuspendLayout()

'

'CrystalReportViewer1

'

Me.CrystalReportViewer1.ActiveViewIndex = -1

Me.CrystalReportViewer1.Location = New System.Drawing.Point(8, 8)

Me.CrystalReportViewer1.Name = "CrystalReportViewer1"

Me.CrystalReportViewer1.ReportSource = Nothing

Me.CrystalReportViewer1.Size = New System.Drawing.Size(968, 608)

Me.CrystalReportViewer1.TabIndex = 0

'

'F_crystal

'

Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)

Me.ClientSize = New System.Drawing.Size(976, 614)

Me.Controls.Add(Me.CrystalReportViewer1)

Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D

Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)

Me.Name = "F_crystal"

Me.Text = "Feuille d'afféctation de composant informatique"

Me.WindowState = System.Windows.Forms.FormWindowState.Maximized

Me.ResumeLayout(False)

End Sub

#End Region

Private Sub F_crystal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim myReport As New ReportDocument

Me.CrystalReportViewer1.ReportSource = myReport

End Sub

Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

'*************************************

'insert le crystal dans la feuille

'*************************************

End Sub