Quelquefois on a besoin d'ecrire des données ou faire des graphes sur Excel à partir d'une appli que l'on développe en VB... J'ai du faire ça et j'ai rencontré un p'tit probleme ... la première fois tout se passe bien mais les suivantes plantait en me disant "variable de block with non définie", et un process Excel residait en mémoire... la je me suis dis que j'allais trouver la solution sur Codes Sources ...mais non seul des pleurnichards se lamentaient d'avoir trouvé un bug incontournable..., faut se sortir les doits les gars... MSDN vous connaissez ??? donc voila comment régler ce petit probleme : IL FAUT ABSOLUMENT PASSER PAR DES VARIABLES DECLAREES MANUELLEMENT et non pas par les objes direct...sinon VB utilise des instances d'objet a lui et qui sont globale a l'appli et comme elles ne sont pas déclarée sont introuvable pour les tuer...
Donc faite comme suit...
Source / Exemple :
Option Explicit
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets("Sheet1")
xlSheet.Range(Cells(1, 1), Cells(10, 2)).Value = "Hello"
xlBook.Saved = True
Set xlSheet = Nothing
Set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing
End Sub
Conclusion :
ULR MSDN :
http://support.microsoft.com/default.aspx?kbid=178510
ou :
http://support.microsoft.com/default.aspx?scid=kb;en-us;319832
------- tout en Anglais ...-------
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.