j'utilise depuis plusieurs annees le code suivant et ce, sans soucis.
Or, depuis que peu, je travaille avec VB.NET et Excel 2003...et le code
plante sur Open()...
Public xlApp As Excel.Application
Public xlWB As Excel.Workbook
Public xlWS As Excel.Worksheet
'-----------------------------------------
' OpenXLSFile
'-----------------------------------------
Public Function OpenXLSFile(ByVal ExcelFile As String)
xlApp = New Excel.Application
xlApp.Visible = True
xlWB = xlApp.Workbooks.Open(ExcelFile)
...
xlWB.Close()
xlWB = Nothing
xlApp.Quit()
xlApp = Nothing
End Function
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Julien Bakmezdjian [MS]
Bonjour,
Quel message d'erreur obtenez-vous ?
Cordialement,
Julien Bakmezdjian
"Maileen" a écrit dans le message de news: %23mLY%
Bonsoir a tous,
j'utilise depuis plusieurs annees le code suivant et ce, sans soucis. Or, depuis que peu, je travaille avec VB.NET et Excel 2003...et le code plante sur Open()...
Public xlApp As Excel.Application Public xlWB As Excel.Workbook Public xlWS As Excel.Worksheet
'----------------------------------------- ' OpenXLSFile '----------------------------------------- Public Function OpenXLSFile(ByVal ExcelFile As String) xlApp = New Excel.Application xlApp.Visible = True xlWB = xlApp.Workbooks.Open(ExcelFile) ... xlWB.Close() xlWB = Nothing xlApp.Quit() xlApp = Nothing End Function
Quelqu'un sait pourquoi ? merci.
Maileen
Bonjour,
Quel message d'erreur obtenez-vous ?
Cordialement,
Julien Bakmezdjian
"Maileen" <noemail@nospam.com> a écrit dans le message de news:
%23mLY%23NTmFHA.4056@TK2MSFTNGP10.phx.gbl...
Bonsoir a tous,
j'utilise depuis plusieurs annees le code suivant et ce, sans soucis.
Or, depuis que peu, je travaille avec VB.NET et Excel 2003...et le code
plante sur Open()...
Public xlApp As Excel.Application
Public xlWB As Excel.Workbook
Public xlWS As Excel.Worksheet
'-----------------------------------------
' OpenXLSFile
'-----------------------------------------
Public Function OpenXLSFile(ByVal ExcelFile As String)
xlApp = New Excel.Application
xlApp.Visible = True
xlWB = xlApp.Workbooks.Open(ExcelFile)
...
xlWB.Close()
xlWB = Nothing
xlApp.Quit()
xlApp = Nothing
End Function
"Maileen" a écrit dans le message de news: %23mLY%
Bonsoir a tous,
j'utilise depuis plusieurs annees le code suivant et ce, sans soucis. Or, depuis que peu, je travaille avec VB.NET et Excel 2003...et le code plante sur Open()...
Public xlApp As Excel.Application Public xlWB As Excel.Workbook Public xlWS As Excel.Worksheet
'----------------------------------------- ' OpenXLSFile '----------------------------------------- Public Function OpenXLSFile(ByVal ExcelFile As String) xlApp = New Excel.Application xlApp.Visible = True xlWB = xlApp.Workbooks.Open(ExcelFile) ... xlWB.Close() xlWB = Nothing xlApp.Quit() xlApp = Nothing End Function
