tell application "TextEdit"
activate
-- Compte tous les caractères :
set touslescaracteres to every character of the front document
set nombreDeCaracteres to (count touslescaracteres)
set texteCaracteres to "Caractères:" & nombreDeCaracteres
set texteDialogue to texteCaracteres
display dialog texteDialogue
end tell