Apple, AppleScript, AppleScript Studio, AppleTalk, AppleWorks, ColorSync, Finder, HyperCard, iBook, iLife, iMac, iWork, Keynote, Mac, Macintosh, Mac OS, Pages, Panther, PowerBook, Power Mac, Power Macintosh, QuickTime, Safari, Tiger, Xcode sont des marques déposées par Apple Computer, Inc., enregistrées aux Etats-Unis et dans les autres pays. Liste officielle

De : (Liste AppleScript francophone) <applescript_fr@xxxxxxx.net>
À : "(Liste AppleScript francophone)" <applescript_fr@xxxxxxx.net>
Date : jeudi 7 février 2002 06:01
Objet : applescript_fr Digest #415

        Liste AppleScript francophone Digest #415

 1) Importer fichier  XLS en xpress ou copier contenu xls en xpress
    by Benjamin Allard <obao.ben@xxxxxxx.be>

De : Benjamin Allard <obao.ben@xxxxxxx.be>
Date : Wed, 6 Feb 2002 19:20:29 +0100
Objet : [AS] Importer fichier  XLS en xpress ou copier contenu xls en xpress

Voilà mon problème j'aimerais importer un fichier exell enregistrer au 
format texte séparation tabulation
en xpress

alors j'ai fait le script suivant

[script]
tell application "Finder"
	set choosen_folder to (choose folder) as string   -- (dossier 
contenant les fichier exell)
	count every file of folder choosen_folder
	set nb_pp to result - 1 as integer
	set nb_imp to nb_pp + 1
	set choose_file to (choose file) as string  -- (choix du fichier 
xpress)
end tell

tell application "QuarkXPress Passport™ 4.1"
	activate
	open file choose_file
	tell front document
		repeat nb_pp times
			make new page at end
		end repeat
		
		set x to 0
		
		repeat nb_imp times
			set x to x + 1
			set txt_name_str to (choosen_folder & "pp" & x & 
".tab") -- (les fichiers sont nommés ppx.tab, x = au numéro de la page)
			tell page x
				make new text box at beginning with properties 
{bounds:{10, 10, 287, 200}}
				tell text box 1
					set text 1 to txt_name_str -- (cette commande 
devrait servir à importer le fichier txt)
				end tell
			end tell
		end repeat
	
	end tell
	
end tell
[ fin du script]

bon quand je l'utilise, il n'importe pas le contenu du fichier mais il 
place les caractères de la chaîne.
Par contre cela marche très bien avec un fichier image dans un "picture 
box"


donc je me suis dit (on va essayer autre chose)

[script]
tell application "Finder"
	set choosen_folder to (choose folder) as string
	set file_list to every file of folder choosen_folder
	count every file of folder choosen_folder
	set nb_pp to result - 1 as integer
	set nb_imp to nb_pp + 1
	set choose_file to (choose file) as string
	set x to 0
end tell

tell application "Microsoft Excel"
	Activate
	
	repeat with this_file in file_list
		set this_file_str to this_file as string
		
		Open this_file_str
		
		«event misccopy» Column "1" & "3" -- (ici le problème)
		
		tell Application "QuarkXPress Passport™ 4.1"
			activate
			open file choose_file
			tell front document
				
				make new page at end
				set x to x + 1
				
				tell page x
					make new text box at beginning with properties 
{bounds:{10, 10, 287, 200}}
					tell text box 1
						set text 1 to the clipboard
					end tell
				end tell
				
				
			end tell
			
		end tell
		
	end repeat
end tell
[fin du script]


mon problème ici est de pouvoir sélectionner une partie du tableau exell
car lorsque que je lui fait copier tout le tableau, il a tendance à dire 
que la mémoire est saturée
Par contre si je lui dit  uniquement "copy column 1" cela marche.
Comment sélectionner 2 ou 3 colonnes avec 2 ou 3 lignes ???


Donc si quelqu'un a une solution, je le remercie d'avance


En tout cas cela fait environ six mois que je me suis abonné sur cette 
liste.
Et cela m'a beaucoup aidé à progresser.
je ne suis pas un pro et je ne pense pas le devenir.
Mais quand même, je commence à apprécier de plus en plus voir ma machine
travailler sans moi.

je ne sais pas si cela est de l'esclavage ou si elle acquière une 
certaine indépendance.

Ben