Applescript et excel

Résolu/Fermé
oXyde68 Messages postés 747 Date d'inscription dimanche 20 novembre 2005 Statut Membre Dernière intervention 11 juin 2024 - 11 mars 2013 à 17:46
oXyde68 Messages postés 747 Date d'inscription dimanche 20 novembre 2005 Statut Membre Dernière intervention 11 juin 2024 - 12 mars 2013 à 12:01
Bonjour,

Je tente de faire un script applescript pour l'utiliser sur excel.

Voici le fonctionnement souhaité :

1 fichier source contenant des données ( avec un ID unique pour chaque ligne )
1 fichier destination ( qui changera souvent ) avec une liste d'ID.

Il faut que le script scan chaque ligne et pioche dans le fichier source les infos concernant à l'ID et les inclus dans le fichier de destination.

J'ai réussi à ouvrir les deux fichiers, faire un loop sur les ID , mais je bloque sur le fait de "transférer" les données source trouvées, vers le fichier de destination.

Voici mon bout de script qui ne fonctionne pas :

tell application "Microsoft Excel"
	set FichierSource to choose file with prompt "Fichier source ( database ):"
	
	set region_util to used range of active sheet
	set last_Row to first row index of last cell of region_util
	
	repeat with i from 1 to last_Row
		

		set SearchMot to value of cell i of the column 1 of active sheet
		if i < 1 then
			open FichierSource
		end if
		set liste to {}
		set region_util to used range of active sheet
		set last_Row to first row index of last cell of region_util
		set first_Row to first row index of first cell of region_util
		set Plage to range ("$A$" & first_Row & ":$A$" & last_Row)
		set theResult to find Plage what SearchMot with match case
		set foundRow to (first row index of theResult)
		
		set donnees to value of range ("B" & foundRow & ":D" & foundRow & "") of worksheet of workbook FichierSource
		set value of range ("B" & i & ":D" & i & "") of worksheet of active workbook to donnees
	end repeat
	
end tell


Merci d'avance pour votre aide :)


A voir également:

1 réponse

oXyde68 Messages postés 747 Date d'inscription dimanche 20 novembre 2005 Statut Membre Dernière intervention 11 juin 2024 344
12 mars 2013 à 12:01
J'ai trouvé la solution, la voici pour ceux que ca interesse :

set value of cell 1 of column 2 of sheet 1 of workbook DestthisName to (get value of cell 1 of column 6 of sheet 1 of workbook SourcethisName)


DestthisName = Nom du 1er fichier
SourcethisName = Nom du 2eme fichier

0