Bonjour
function annee(cellule as object) as string
dim MonCurseur as object
MonCurseur = cellule.CreateTextCursor
MonCurseur.GoLeft(4,True)
annee = MonCurseur.String
end function
Salut
Aurais tu "option explicit" en en-tête, et la variable annee non
déclarée explicitement ?
opton explicit est à verifier
annee est le nom de la fonction, donc déclaré
sur quelle ligne l'erreur apparait elle ?
evite cellule as object, laisse cellule
ta celule est elle bien definie ?
pourquoi utilises tu un curseur de cellule ?
tu pourrais faire
function annee(cellule) as string
contenu = cellule.string
annee = right(contenu,4)
end function
HTH
Laurent
--
Laurent Godard <[EMAIL PROTECTED]> - Ingénierie OpenOffice.org
Indesko >> http://www.indesko.com
Nuxeo CPS >> http://www.nuxeo.com - http://www.cps-project.org
Livre "Programmation OpenOffice.org", Eyrolles 2004
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
