Bonjour.

Je génère depuis mon programme en VB6 plusieurs fichiers excel. Dans certains cas, je souhaite mettre une couleur dans une cellule. Mon traitement marche bien, mais si je le relance tout de suite, ca plante des le 1er fichier.

Voici mon traitement :

Au début :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
   Set AppExcel = CreateObject("Excel.Application")
   AppExcel.Visible = False
   AppExcel.AlertBeforeOverwriting = False
   AppExcel.DisplayAlerts = False
Pour chaque fichier excel :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
   Set FichierExcel = AppExcel.Workbooks.Add
Puis mon traitement (ca plante sur la ligne en gras (variable objet ou bloc non définit) lors du 2ème passage) :
AppExcel.Worksheets(1).Range(Col & Lig).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

FichierExcel.Close True, Chemin & "\" & NomFichier
Set FichierExcel = Nothing
A la fin :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
   AppExcel.Quit
   Set AppExcel = Nothing