Discussion :

[pcvesoul]

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

[ouskel'n'or]

En fait, je pense que c'est la ligne précédente qui pose pb.

AppExcel.Worksheets(1).Range(Col & Lig).Select

Dans Excel, tu dois d'abord sélectionner la feuille, puis la cellule, séparément.

Tu dis...

A+

[pcvesoul]

Comme cela ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    AppExcel.Worksheets(1).Select
 
    AppExcel.Range(Col & Lig).Select
 
    AppExcel.Worksheets(1).Range(Col & Lig).Value = Nom
 
   With Selection.Interior
      .ColorIndex = 6
      .Pattern = xlSolid
      .PatternColorIndex = xlAutomatic
   End With

[Edité par ridan] Ajout des balises [CODE][/CODE]. Pensez-y à l'avenir. Merci

[pcvesoul]

Marche pas mieux !!!

[ouskel'n'or]

Essaie ça :

Code :

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

1
2
3
4
5
6
7
8
    AppExcel.Worksheets(1).Select 
    AppExcel.Worksheets(1).Range(Col & Lig).Value = Nom 
    AppExcel.Range(Col & Lig).Select 
    With Selection.Interior 
       .ColorIndex = 6 
       .Pattern = xlSolid 
       .PatternColorIndex = xlAutomatic 
    End With

Si Col et Lig sont des N° de ligne et de colonne, utilise Cells(Lig,Col).value

Tu dis...

A+

[pcvesoul]

Toujours pas ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    AppExcel.Worksheets(1).Select
    AppExcel.Cells(Lig_Excel, Col_Excel + 1).Select
    AppExcel.Worksheets(1).Cells(Lig_Excel, Col_Excel + 1).Value = Nom
 
    AppExcel.Worksheets(1).Select
    AppExcel.Cells(Lig_Excel, Col_Excel + 1).Select
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With

[ouskel'n'or]

Je ne vois pas. Si tu étais sur vba, je sais que parfois il faut utiliser Set ... = ... et with... mais là... ?

Code :

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

With AppExcel.Selection.Interior

peut-être
ou

Code :

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

1
2
3
4
set MaCell = AppExcel.Selection.interior 
With MaCell 
    .colorIndex = 6 
    'etc...

A tout hasard

A+

[pcvesoul]

Comme cela ca a l'air de marcher :

AppExcel.Worksheets(1).Select
AppExcel.Cells(Lig_Excel, Col_Excel + 1).Select
AppExcel.Worksheets(1).Cells(Lig_Excel, Col_Excel + 1).Value = Nom

AppExcel.Worksheets(1).Select
AppExcel.Cells(Lig_Excel, Col_Excel + 1).Select
With AppExcel.Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

Merci beaucoup et bonne continuation.

[ouskel'n'or]

Comme je dis toujours, comme diraient les Shadok :

"En essayant continuellement, on finit par réussir. Donc plus ça rate, plus t'as de chances..."

A+