Applescript et excel
Résolu
oXyde68
Messages postés
793
Statut
Membre
-
oXyde68 Messages postés 793 Statut Membre -
oXyde68 Messages postés 793 Statut Membre -
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 :
Merci d'avance pour votre aide :)
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:
- Applescript et excel
- Word et excel gratuit - Guide
- Liste déroulante excel - Guide
- Si et ou excel - Guide
- Déplacer colonne excel - Guide
- Excel trier par ordre croissant chiffre - Guide