cs_sarrenza
Messages postés25Date d'inscriptionmercredi 22 avril 2009StatutMembreDernière intervention23 juin 2013
-
11 mars 2011 à 17:47
hamzamalek
Messages postés15Date d'inscriptionmercredi 5 août 2009StatutMembreDernière intervention21 juillet 2011
-
31 mars 2011 à 11:18
[b]salut,
dans le code ci-dessu, me lance un erreur (exception COMException) dans : xlWorkSheet.SaveAs(saveFileDialog1.FileName)
Dim xlWorkSheet As Excel.Worksheet
Dim misValue As Object = System.Reflection.Missing.Value
Dim myStream As Stream
Dim saveFileDialog1 As New SaveFileDialog()
Dim i, j As Integer
xlApp = New Excel.ApplicationClass
xlWorkBook = xlApp.Workbooks.Add(misValue)
saveFileDialog1.Filter = "xls files (*.xls)|*.xls|All files (*.*)|*.*"
saveFileDialog1.FilterIndex = 2
saveFileDialog1.RestoreDirectory = True
xlWorkSheet = xlWorkBook.Sheets("Feuil1")
If saveFileDialog1.ShowDialog() = DialogResult.OK Then
myStream = saveFileDialog1.OpenFile()
If (myStream IsNot Nothing) Then
For i = 0 To Ds1.BAS1PREST1_FACTU021.Rows.Count - 1
For j = 0 To Ds1.BAS1PREST1_FACTU021.Columns.Count - 1
xlWorkSheet.Cells(i + 1, j + 1) = _Ds1.BAS1PREST1_FACTU021(i).Item(j).ToString()
Next
Next
End If
xlWorkSheet.SaveAs(saveFileDialog1.FileName)
xlWorkBook.Close()
xlApp.Quit()
cs_sarrenza
Messages postés25Date d'inscriptionmercredi 22 avril 2009StatutMembreDernière intervention23 juin 2013 11 mars 2011 à 19:53
Merci pour ta reponse Mr.NHenry.
Mais si je fait xlWorkSheet.SaveAs(My.Application.Info.DirectoryPath & "" & Me.TxtFileName.Text) ca marchera bien !!!! alors, quelle est la déferance entre les deux !!!!!