Discussion :

[porkyrider]

Bonjour,

Un truc très étrange m'arrive. Je viens de changer mon V-Studio 2005 pour un V-Studio 2008 et j'ai un probleme avec un Excel Add-in developpé et plus particulièrement avec une fonction toute bete.

En effet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

template.Sheets("Dashboard_1").Copy(dashbook.Sheets(1))

Cette simple fonction fait planté l'add-in avec le code erreur :

COM object that has been separated from its underlying RCW cannot be used.

Cette meme fonction fonctionne très bien avec V-Studio 2005, et le pire, c'est que sur le fichier Excel, la copy de feuille est bien faite...

Quelqu'un a une idée ?

Voici le sub complet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Sub Dashboard_Generation()
        Dim xls As Excel.Application = Globals.ThisAddIn.Application
        xls.DefaultSaveFormat = Excel.XlFileFormat.xlOpenXMLWorkbook
        xls.SheetsInNewWorkbook = 1
        Dim dashbook As Excel.Workbook = xls.Workbooks.Add()
        Dim template As Excel.Workbook = xls.Workbooks.Open(My.Settings.Template)
        template.Sheets("Dashboard_1").Copy(dashbook.Sheets(1))
    End Sub

Merci d'avance...

[porkyrider]

OK, j'ai trouvé, il m'a suffit de rajouter cette ligne pour que ca marche...c'est bizarre, mais ca m'a débloqué...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dashbook.Sheets(1).cells(1, 1).value = ""

juste avant le "Dim template As Excel.Workbook..."