appeler une feuille avec variable

[ciocciu]

bonjour
je ne comprends pas pourquoi
annee = Year(Date)
Sheets(annee).Activate

end sub


me renvoit l'erreur d'exécution '9'

si qq'un pouvait m'éclairer
merci mille fois

 

[Staple1600]

Re : appeler une feuille avec variable

Bonjour


En déclarant en String c'est ok

Sub test()
Dim annee$
annee = Year(Date)
Sheets(annee).Activate
End Sub

Ou en plus court

Sub test()
Sheets(CStr(Year(Date))).Activate
End Sub

 

[ciocciu]

Re : appeler une feuille avec variable

merci bcp ....c tout bon