Discussion :

[capitaine]

Bonjour, j'utilise le code suivant pour colorier ma sélection de cellules dans mon fichier Excel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
 
Private Sub cmdModifierExcel_Click()
 
'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
 
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:\TEST.xls")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
 
 
 
 
wsExcel.Range("A1:D4").Select
 
 
With Selection
        .Interior.ColorIndex = 3
End With
 
 
 
 
wbExcel.Close 'Fermeture du classeur Excel
appExcel.Quit 'Fermeture de l'application Excel
 
 
'Désallocation mémoire
 
Set wsExcel = Nothing
Set wbExcel = Nothing
Set appExcel = Nothing
 
End Sub

Le problème avec ce code, c'est que l'application Excel ne se ferme jamais (elle reste ouverte dans le gestinnaire des tâches), malgré :

Code :

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

1
2
3
 
wbExcel.Close 'Fermeture du classeur Excel
appExcel.Quit 'Fermeture de l'application Excel

Si j'enleve le morceau de code suivant, tout va bien:

Code :

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

1
2
3
4
 
With Selection
        .Interior.ColorIndex = 3
End With

Sans doute, faut il libérer la sélection?
Si quelqu'un à une idée, pour ma part je chercherai demain matin (journée finie )

Merci A+

[pgz]

Bonjour,

Je ne vois pas bien le rapport de cause à effet, mais il y a qd même un petit pb dans ton instruction

Code :

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

With Selection

Qui correspond implicitement à

Code :

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

With appExcel.Selection

Mais en automation, il vaut mieux être explicite.

Tu peux aussi faire plus court. Au lieu de

Code :

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

1
2
3
4
5
6
7
wsExcel.Range("A1:D4").Select
 
 
With Selection
 .Interior.ColorIndex = 3
 ...
End With

tu peux écrire

Code :

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

1
2
3
4
With wsExcel.Range("A1:D4")
 .Interior.ColorIndex = 3
 ...
End With

ET si tu n'as qu'une ligne dans le With

Code :

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

wsExcel.Range("A1:D4").Interior.ColorIndex = 3

Bon courage,

PGZ

[capitaine]

Merci pour ce petit tuto, j'ai les idées un peu plus claires

A+