Bonsoir à tous, Bonsoir le Forum.
je dois recuperer une valeur dans un classeur et selon la valeur de cette valeur..(dans mon cas >=8 et <8) une cellule de mon fichier principal doit se colorer en rouge si <8 et vert si >=8...
ben avec ce code ...ça ne marche pas..Pourquoi..?
je dois recuperer une valeur dans un classeur et selon la valeur de cette valeur..(dans mon cas >=8 et <8) une cellule de mon fichier principal doit se colorer en rouge si <8 et vert si >=8...
ben avec ce code ...ça ne marche pas..Pourquoi..?
Code:
Private Sub CommandButton1_Click()
Application.Workbooks.Open "C:\Documents and Settings\***\***\***\****.xls"
If Sheets("stock").Cells(2, 8) >= 8 Then
Cells(6, 10).Interior.Color = RGB(0, 255, 0)
End If
If Sheets("stock").Cells(2, 8) < 8 Then
Cells(6, 10).Interior.Color = RGB(255, 0, 0)
End If
Workbooks("***.xls").Close
End Sub