j'espere ne pas faire doublon, et dans le cas contraire je m'en excuse, j'ai cherché une réponse à la question suivante :
lorsque je teste ce code sur ma page, il fonctionne correctement, j'enregistre, je referme mon fichier et à la reouverture
j'ai le droit à : variable d'objet non défini, le probleme ne se pose plus avec un getbyname("feuille1") à la place du activesheet,
mais je voudrais appliquer cette fonction sur une trentaine de page ...
pourriez vous m'aider ?
merci d'avance
voici le code :
Code : Tout sélectionner
Function BackColor(pos As Variant) As Variant
Dim leDocument As Object
Dim lesfeuilles As Object
Dim laFeuille As Object
Dim laCellule As Object
leDocument = thisComponent
lesFeuilles = leDocument.Sheets
laFeuille = leDocument.currentController.activesheet
laCellule = laFeuille.getCellRangeByName(pos)
BackColor = laCellule.Text.CellBackColor
End Function