Tu peux aussi copier ce script dans l'éditeur de script et le sauvegarder sous le format Script.
Il te permettra de générer des numéros sans devoir passer par Excell, il sauvegarde un fichier texte que tu importe comme XPress Tag (ne pas oublier d'indiquer encodage Mac Roman).
set Commentaire to "<v7.50><e8>
@Normal=<Ps100p100t0h100z12k0b0cKf\"Helvetica\"n0o(\"Calt\",\"liga\")G0>
@Normal=[S\"\",\"Normal\",\"Normal\"]<*L*h\"Standard\"*kn0*kt0*ra0*rb0*d0*p(0,0,0,0,0,0,g)>
@$:"
repeat
set StartDialog to display dialog "Numéro de départ" default answer "1" with icon note
try
set StartNum to (text returned of StartDialog) as integer
exit repeat
on error
display dialog "Integers only please!" with icon caution
end try
end repeat
repeat
set EndDialog to display dialog "Dernier numéro" default answer "100" with icon note
try
set EndNum to (text returned of EndDialog) as integer
exit repeat
on error
display dialog "Integers only please!" with icon caution
end try
end repeat
repeat
set IncrementDialog to display dialog "Incrémentation" default answer "1" with icon note
try
set Increment to (text returned of IncrementDialog) as integer
exit repeat
on error
display dialog "Integers only please!" with icon caution
end try
end repeat
if (StartNum < EndNum and Increment > 0) or (StartNum > EndNum and Increment < 0) then
set numList to {}
repeat with i from StartNum to EndNum by Increment
set end of numList to i
end repeat
set oldDelims to AppleScript's text item delimiters
set AppleScript's text item delimiters to {"<\\c>"}
set NumString to numList as string
set AppleScript's text item delimiters to oldDelims
set NumFile to choose file name with prompt "A quel endroit voulez-vous sauvegarder" default name "numero.txt"
set aFile to open for access NumFile with write permission
try
write Commentaire to aFile
write NumString to aFile
close access aFile
on error
close access aFile
end try
else
display dialog "Sorry, I cannot serialize " & StartNum & " to " & EndNum & " by " & Increment & "!" with icon stop
end if
