programmes excel en vb.net qui ne fonctionne plusRésolu

Question

Bonjour, j'ai fait plusieurs code en vb.net au cours des dernières années qui utilisent des fichiers excel mais plus aucun de ces codes ne fonctionne depuis début décembre 2023. J'ai fait plusieurs testes mais j'ai toujours le même résultat. Est-ce que quelqu'un peut me dire ce qui a changé dans le vb.net?

voici ce que le code fait : lorsque je passe le code en débuggage, xlapp fonctionne mais pas xlbook, l'application passe par dessus. Lorsqu'il arrive sur xlapp.workbooks.count, il en trouve 0 d'ouvert même si j'ai plusieurs fichier excel d'ouvert. Après ça, plus rien ne fonctionne naturellement.

Imports Microsoft.Office.Interop.Excel

Dim XlApp As Excel.Application = System.Runtime.InteropServices.Marshal.GetActiveObject("Excel.Application")
 Dim XlBook As Excel.Workbook

Dim intCount As Integer

intCount = XlApp.Workbooks.Count
If intCount > 1 Then
    XlBook = XlApp.Workbooks(intCount)
Else
    XlBook = XlApp.Workbooks(1)
End If

Edith99_2801 · Answer

Bonjour,

Il se peut que votre problème soit dû à une incompatibilité entre la version de Microsoft.Office.Interop.Excel que vous utilisez et la version d’Excel installée sur votre machine. En effet, depuis la mise à jour d’Excel en décembre 2023, il y a eu des changements dans la bibliothèque Microsoft.Office.Interop.Excel qui peuvent causer des erreurs de cast ou de chargement12. Pour résoudre ce problème, vous pouvez essayer les solutions suivantes :

Vérifier que la référence à Microsoft.Office.Interop.Excel dans votre projet est bien à jour et correspond à la version d’Excel installée. Vous pouvez aussi essayer de réinstaller cette référence34.
Utiliser une méthode alternative pour créer l’objet Excel.Application, en utilisant la classe System.Type et la méthode System.Activator.CreateInstance5. Par exemple, vous pouvez remplacer la ligne :
Dim XlApp As Excel.Application = System.Runtime.InteropServices.Marshal.GetActiveObject("Excel.Application")

par la ligne :

Dim excelType As Type = System.Type.GetTypeFromProgID("Excel.Application")
Dim XlApp As Excel.Application = CType(System.Activator.CreateInstance(excelType), Excel.Application)

infodes · Answer

Merci pour la réponse. J'ai corrigé mon problème avec ceci :

Imports Microsoft.Office.Interop

Dim xlapp As New Microsoft.Office.Interop.Excel.Application()
xlapp.Visible = True
Dim xlbook As Microsoft.Office.Interop.Excel.Workbook = xlapp.Workbooks.Add(Microsoft.Office.Interop.Excel.XlSheetType.xlWorksheet)
Dim xlsheet As Microsoft.Office.Interop.Excel.Worksheet

intCount = xlApp.Workbooks.Count
If intCount > 1 Then
    xlBook = xlApp.Workbooks(intCount)
Else
    xlBook = xlApp.Workbooks(1)
End If

Mes programmes fonctionnent tous maintenant. Merci!

Programmes excel en vb.net qui ne fonctionne plus

2 réponses

Votre réponse

Discussions similaires