problème sur workbook_open

[mikepers]

Bonsoir à tous, merci pour votre aide.
Pouvez vous me dire pourquoi l'évènement workbook_open ne semble t'il pas apprécier le code :
_____________________________________
Sub workbook_open()

sheets("feuille 1").Select
If Range("A5").Value = "SANS DP" Then
Rows("27:49").Select
Selection.EntireRow.Hiden = True
Else
If Range("A5").Value = "AVEC DP" Then
Rows("27:49").Select
Selection.EntireRow.Hiden = False

End If
End If
End Sub
______________________________________
???????J'ai du mal à saisir, merci si vous pouvez m'aider.
@+

 

[Dan]

Re : problème sur workbook_open

re,

ah ben, lol ! c'est pas la même chose là.
Mais puisque cela fonctionne, pourquoi se tracasser.

Bonne nuit

 

[Gorfael]

Re : problème sur workbook_open

bon, pour le fun :
il semble que j'ai trouvé.
En fait le code fait référence à un cellule qui contient une formule :
=SI (B27="";"SANS DP";"AVEC DP")

visiblement ça perturbe le code.
Tout bêtement, j'ai fait référence directement à la cellule B27, j'ai donc le nouveau code :
_______________________________________________
If range ("B27").Value= "" then
Rows("27:49").EntireRow.Hidden = true
Else
If range("B27").Value <> "" then
Rows("27:49").EntireRow.Hidden = false
End if
End if
End sub
_______________________________________________
Ca marche !!!!!!!!
damned, 1000 fois merci à vous tous.
@+

Salut
Pourquoi faire un 2me test ? Si B27 est différent de "", il n'est donc pas égal à "" ce qui est le propre de la partie gérée par else
A+