Archives actuelles avec moteur de recherche
N'hésitez pas à vous inscrire à la liste : http://listes.patpro.net/mailman/listinfo/applescript_fr
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 : mardi 2 avril 2002 07:01
Objet : applescript_fr Digest #464
Liste AppleScript francophone Digest #464
1) caractères
by raymond-cottille <raymond-cottille@xxxxxxx.fr>
2) Re: caractères
by raymond-cottille <raymond-cottille@xxxxxxx.fr>
3) Re: surprise !
by Dominique Isperian <dorian@xxxxxxx.ch>
4) Mon premier AppleScript
by Yannick CALLAUD <ycallaud@xxxxxxx.com>
5) Mon premier AppleScript
by Yannick CALLAUD <ycallaud@xxxxxxx.com>
6) poisson
by "roland.thiers" <Roland.THIERS@xxxxxxx.fr>
De : raymond-cottille <raymond-cottille@xxxxxxx.fr> Date : Mon, 01 Apr 2002 16:32:26 +0200 Objet : [AS] caractères Bonjour à tous, Existe t'il une liste des caractères à éviter dans les liens ? : espace, ... Merci. Amicalement, Raymond COTTILLE PowerBook G3 - OS 8.6 - FMP 4/5 _______________________________ raymond-cottille@xxxxxxx.fr
De : raymond-cottille <raymond-cottille@xxxxxxx.fr> Date : Mon, 01 Apr 2002 18:44:16 +0200 Objet : [AS] Re: caractères > Bonjour à tous, > > Existe t'il une liste des caractères à éviter dans les liens ? : > espace, ... > > Merci. > > Amicalement, Raymond COTTILLE > > PowerBook G3 - OS 8.6 - FMP 4/5 > _______________________________ > raymond-cottille@xxxxxxx.fr Toutes mes excuses, C'était un poisson d'avril qui n'était pas destiné à la liste. Bon WE tout de même. <°)))))>< <*);;;;;>< <°)))))>< <*);;;;;>< <°)))))>< <*);;;;;><
De : Dominique Isperian <dorian@xxxxxxx.ch> Date : Mon, 1 Apr 2002 19:06:50 +0200 Objet : [AS] Re: surprise ! Le dimanche 31 mars 2002, à 11:39 PM, nicolas descombes a écrit : bonsoir à tous, une surprise vous attend sur le site de la traduction. M'y attendais un peu, mais n'ai pas pu m'empêcher d'y aller voir ! --- Dominique
De : Yannick CALLAUD <ycallaud@xxxxxxx.com> Date : Mon, 1 Apr 2002 22:39:36 +0200 Objet : [AS] Mon premier AppleScript Je suis abonné récemment à la liste de diffusion car je me suis décidé à écrire un utilitaire en AppleScript. Je vous livre mon script en espérant que vous y trouverez de l'intérêt. --== Yannick ==-- http://www.bigfoot.com/~yCALLAUD ================================================================ (* Memorix 1.0 Script écrit le 31/03/2002 par Yannick CALLAUD J'ai écris ce script pour que mon Mac me rappelle mes rendez-vous, anniversaires, fêtes à souhaiter. Comment ça marche : ================= Les évènements sont des dossiers dont le nom défini la date, et le libellé est contenu dans le commentaire accessible par pomme-i (afficher les infos) du menu fichier du finder. Le format des noms des dossiers doit être sous le forme : dd/mm/aaaa dd: jour sur 2 chiffres. mm: mois sur 2 chiffres. aaaa: année sur 4 chiffres. par exemples: '01/01/2002', '19/03/2002'. Il est possible de remplacer le jour et le mois par 'xx' et l'année par 'xxxx' si 'xx/03/2002' : le script affichera une boite de dialogue tous les jours du mois de Mars 2002. si '01/xx/2002' : le script affichera une boite de dialogue tous les premiers jours de chaque mois de l'année 2002. si '01/05/xxxx' : le script affichera une boite de dialogue tous les premiers Mai. (pratique pour les fêtes et les anniversaires) si 'xx/xx/xxxx' : le script affichera une boite de dialogue tous les jours. Pour que le script puisse trouver les évènements, il faut lui indiquer le chemin d'accès du dossier "evenements" qui contient tous les dossiers définissant les évènements. Lors de la première utilisation, il vous demandera de pointer le dossier qui contient les évènements. Il vous demandera le délai en nombre de jours pour anticiper l'affichage des évènements, et il demandera la durée en nombre de jours pour le réaffichage des évènements. Installation : ============ Créez un dossier qui contiendra vos évènements. Rappelez-vous de son chemin d'accès, car le script vous le demandera. Appelez le par exemple: "evenements". Créez des dossiers à l'intérieur du dossier "evenements" Après avoir compilé le script, demandez au Mac de le lancer à chaque démarrage. Comme cela vous serez informés à chaque démarrage du Mac des évènements importants à ne pas oublier. *) -- Activation de l'application pour qu'elle passe en premier plan activate -- Recherche du dossier preferences set source_folder to path to preferences folder -- construction du chemin d'accès au fichier préférences set myfile to (source_folder as string) & "Memorix_prefs.plist" try open for access file myfile -- ouverture du fichier préférences read file myfile until return -- lecture du chemin d'accès du dossier contenant les évènements set source_folder to (text 1 thru ((length of result) - 1) of result) -- sauvegarde du résultat dans la variable read file myfile until return -- lecture de la période en nombre de jours pour sélection des évènements à venir set NbJoursAvantStr to (text 1 thru ((length of result) - 1) of result) -- sauvegarde et suppression du dernier caractère (return) set NbJoursAvant to NbJoursAvantStr as integer -- écriture sous la forme numérique read file myfile until return -- lecture de la période en nombre de jours pour sélection des évènements passés set NbJoursApresStr to (text 1 thru ((length of result) - 1) of result) -- sauvegarde et suppression du dernier caractère (return) set NbJoursApres to NbJoursApresStr as integer -- écriture sous la forme numérique close access file myfile -- fermeture du fichier préférences on error -- en cas d'erreur close access file myfile -- fermeture du fichier préférences set resultat to MesPrefs("7", "3") -- saisie des préférences set source_folder to item 1 of resultat -- sauvegarde du chemin d'accès set NbJoursAvantStr to item 2 of resultat -- Sauvegarde de la période en nombre de jours pour sélection des évènements à venir set NbJoursAvant to NbJoursAvantStr as integer -- écriture sous la forme numérique set NbJoursApresStr to item 3 of resultat -- Sauvegarde de la période en nombre de jours pour sélection des évènements passés set NbJoursApres to NbJoursApresStr as integer -- écriture sous la forme numérique open for access file myfile with write permission -- ouverture du fichier préférences en mode écriture EcriturePrefs(myfile, source_folder, NbJoursAvantStr, NbJoursApresStr) -- Ecriture des préférences dans le fichier préférences close access file myfile -- fermeture du fichier préférences end try -- récupère le jour , le mois , l'année courante set the currentday to (word 2 of (the (current date) as string)) set the currentMonth to (the month of the (current date)) as string set the currentYear to (word 4 of (the (current date) as string)) -- comme le mois est sous la forme littéraire, je le transforme en chiffre avec la fonction FindNumberMonth set the currentMonth to FindNumberMonth(currentMonth) -- Récupération de la liste des éléments contenus dans le dossier courant set the item_list to list folder file source_folder without invisibles -- On passe en revue un à un les éléments du dossier courant repeat with i from 1 to number of items in the item_list try set FolderName to item i of item_list -- récupération du nom de chaque élément set folderDay to characters 1 thru 2 of FolderName -- récupération du jour set folderMonth to characters 4 thru 5 of FolderName -- récupération du mois set folderYear to characters 7 thru 10 of FolderName -- récupération de l'année if folderDay as string = "xx" then set folderDay to currentday -- si le jour = "xx", on prend le jour actuel end if if folderMonth as string = "xx" then set folderMonth to currentMonth -- si le mois est = "xx", on prend le mois actuel end if if folderYear as string = "xxxx" then set folderYear to currentYear -- si l'année est = "xxxx", on prend l'année actuelle end if -- on définit la date de l'élément set folderDate to (folderDay & "/" & the folderMonth & "/" & the folderYear) as string -- si l'évènement est proche de la date actuelle if ((date folderDate) - the (current date)) / (60 * 60 * 24) ≤ NbJoursAvant then if ((date folderDate) - the (current date)) / (60 * 60 * 24) ≥ -1 - NbJoursApres then beep 4 tell application "Finder" set myfolder to (alias (source_folder & FolderName)) -- on pointe sur l'élément évènement set Commentaire to comment of myfolder -- récupération des commentaires de l'élément end tell -- affichage de l'évènement display dialog "Evènement du " & FolderName & return & return & Commentaire as string ¬ buttons {"Préférences", "Supprimer", "OK"} default button 3 giving up after 360 * 10 -- si l'utilisateur choisi de supprimer l'élément if button returned of the result = "Supprimer" then beep 4 -- demande de confirmation de la suppression display dialog "Voulez-vous supprimer cet évènement du " & FolderName & return & return & Commentaire as string ¬ with icon caution buttons {"Supprimer", "Annuler"} default button 2 -- si l'utilisateur confirme if button returned of the result = "Supprimer" then delete myfolder -- suppression de l'élément end if -- si l'utilisateur choisi le bouton "préférences" else if button returned of the result = "Préférences" then set resultat to MesPrefs(NbJoursAvantStr, NbJoursApresStr) -- saisie des préférences set source_folder to item 1 of resultat -- sauvegarde du chemin d'accès set NbJoursAvantStr to item 2 of resultat -- Sauvegarde de la période en nombre de jours pour sélection des évènements à venir set NbJoursAvant to NbJoursAvantStr as integer -- écriture sous la forme numérique set NbJoursApresStr to item 3 of resultat -- Sauvegarde de la période en nombre de jours pour sélection des évènements passés set NbJoursApres to NbJoursApresStr as integer -- écriture sous la forme numérique open for access file myfile with write permission -- ouverture du fichier préférences en mode écriture EcriturePrefs(myfile, source_folder, NbJoursAvantStr, NbJoursApresStr) -- Ecriture des préférences dans le fichier préférences close access file myfile -- fermeture du fichier préférences end if end if end if on error -- Affichage d'erreur beep 4 display dialog ¬ ("Une erreur s'est produite." & return & "Vérifiez que le nom du dossier est bien au format dd/mm/aaaa." & return & " dd, mm et aaaa doivent des nombres ou des 'xx' minuscules :" & return & "Nom du dossier : '" & FolderName as string) & ¬ "'" buttons {"OK"} end try end repeat -- Fonction qui retourne le numéro du mois -- en entrée le mois litéral en anglais est passé dans la variable "myMonth" -- en sortie le numéro du mois est renvoyé on FindNumberMonth(myMonth) set LesMois to {"January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"} repeat with i from 1 to number of items in the LesMois if item i of LesMois = myMonth then return i end if end repeat end FindNumberMonth -- Ecriture des préférences dans le fichier pointé par "myFile" on EcriturePrefs(myfile, source_folder, NbJoursAvantStr, NbJoursApresStr) -- écriture du chemin d'accès du dossier évènements suivi de 'return' dans le fichier préférences write source_folder & return to file myfile -- écriture de la période en nombre de jours pour sélection des évènements à venir suivi de 'return' write NbJoursAvantStr & return to file myfile -- écriture de la période en nombre de jours pour sélection des évènements passés suivi de 'return' write NbJoursApresStr & return to file myfile end EcriturePrefs -- Saisie des préférences par l'utilisateur on MesPrefs(NbJoursAvantStr, NbJoursApresStr) -- ouverture du dialogue pour sélection du dossier qui contient les évènements choose folder with prompt "Choisir le dossier qui contient les Evènements" set source_folder to (result as string) -- sauvegarde du résultat set boucle to true -- Mise en place du drapeau pour entrer dans la boucle repeat while boucle -- Boucle tant que l'utilisateur n'a pas saisi un chiffre try -- dialogue de saisie display dialog ¬ "Donner la période de sélection en jours des évènements à venir:" default answer NbJoursAvantStr buttons {"OK"} default button 1 set NbJoursAvantStr to text returned of result -- sauvegarde du résultat set NbJoursAvant to NbJoursAvantStr as integer -- vérif que la transformation en entier ne génère pas d'erreur set boucle to false -- mise a false du drapeau pour sortir de la boucle on error beep 4 -- signal sonore pour avertir d'une erreur end try end repeat set boucle to true -- Mise en place du drapeau pour entrer dans la boucle repeat while boucle -- Boucle tant que l'utilisateur n'a pas saisi un chiffre try -- dialogue de saisie display dialog ¬ "Donner la période de sélection en jours des évènements passés :" default answer NbJoursApresStr buttons {"OK"} default button 1 set NbJoursApresStr to text returned of result -- sauvegarde du résultat set NbJoursApres to NbJoursApresStr as integer -- vérif que la transformation en entier ne génère pas d'erreur set boucle to false -- mise a false du drapeau pour sortir de la boucle on error beep 4 -- signal sonore pour avertir d'une erreur set boucle to true end try end repeat -- retour des valeurs saisies return [source_folder, NbJoursAvantStr, NbJoursApresStr] end MesPrefs
De : Yannick CALLAUD <ycallaud@xxxxxxx.com> Date : Mon, 1 Apr 2002 22:40:41 +0200 Objet : [AS] Mon premier AppleScript Je suis abonné récemment à la liste de diffusion car je me suis décidé à écrire un utilitaire en AppleScript. Je vous livre mon script en espérant que vous y trouverez de l'intérêt. --== Yannick ==-- http://www.bigfoot.com/~yCALLAUD ================================================================ (* Memorix 1.0 Script écrit le 31/03/2002 par Yannick CALLAUD J'ai écris ce script pour que mon Mac me rappelle mes rendez-vous, anniversaires, fêtes à souhaiter. Comment ça marche : ================= Les évènements sont des dossiers dont le nom défini la date, et le libellé est contenu dans le commentaire accessible par pomme-i (afficher les infos) du menu fichier du finder. Le format des noms des dossiers doit être sous le forme : dd/mm/aaaa dd: jour sur 2 chiffres. mm: mois sur 2 chiffres. aaaa: année sur 4 chiffres. par exemples: '01/01/2002', '19/03/2002'. Il est possible de remplacer le jour et le mois par 'xx' et l'année par 'xxxx' si 'xx/03/2002' : le script affichera une boite de dialogue tous les jours du mois de Mars 2002. si '01/xx/2002' : le script affichera une boite de dialogue tous les premiers jours de chaque mois de l'année 2002. si '01/05/xxxx' : le script affichera une boite de dialogue tous les premiers Mai. (pratique pour les fêtes et les anniversaires) si 'xx/xx/xxxx' : le script affichera une boite de dialogue tous les jours. Pour que le script puisse trouver les évènements, il faut lui indiquer le chemin d'accès du dossier "evenements" qui contient tous les dossiers définissant les évènements. Lors de la première utilisation, il vous demandera de pointer le dossier qui contient les évènements. Il vous demandera le délai en nombre de jours pour anticiper l'affichage des évènements, et il demandera la durée en nombre de jours pour le réaffichage des évènements. Installation : ============ Créez un dossier qui contiendra vos évènements. Rappelez-vous de son chemin d'accès, car le script vous le demandera. Appelez le par exemple: "evenements". Créez des dossiers à l'intérieur du dossier "evenements" Après avoir compilé le script, demandez au Mac de le lancer à chaque démarrage. Comme cela vous serez informés à chaque démarrage du Mac des évènements importants à ne pas oublier. *) -- Activation de l'application pour qu'elle passe en premier plan activate -- Recherche du dossier preferences set source_folder to path to preferences folder -- construction du chemin d'accès au fichier préférences set myfile to (source_folder as string) & "Memorix_prefs.plist" try open for access file myfile -- ouverture du fichier préférences read file myfile until return -- lecture du chemin d'accès du dossier contenant les évènements set source_folder to (text 1 thru ((length of result) - 1) of result) -- sauvegarde du résultat dans la variable read file myfile until return -- lecture de la période en nombre de jours pour sélection des évènements à venir set NbJoursAvantStr to (text 1 thru ((length of result) - 1) of result) -- sauvegarde et suppression du dernier caractère (return) set NbJoursAvant to NbJoursAvantStr as integer -- écriture sous la forme numérique read file myfile until return -- lecture de la période en nombre de jours pour sélection des évènements passés set NbJoursApresStr to (text 1 thru ((length of result) - 1) of result) -- sauvegarde et suppression du dernier caractère (return) set NbJoursApres to NbJoursApresStr as integer -- écriture sous la forme numérique close access file myfile -- fermeture du fichier préférences on error -- en cas d'erreur close access file myfile -- fermeture du fichier préférences set resultat to MesPrefs("7", "3") -- saisie des préférences set source_folder to item 1 of resultat -- sauvegarde du chemin d'accès set NbJoursAvantStr to item 2 of resultat -- Sauvegarde de la période en nombre de jours pour sélection des évènements à venir set NbJoursAvant to NbJoursAvantStr as integer -- écriture sous la forme numérique set NbJoursApresStr to item 3 of resultat -- Sauvegarde de la période en nombre de jours pour sélection des évènements passés set NbJoursApres to NbJoursApresStr as integer -- écriture sous la forme numérique open for access file myfile with write permission -- ouverture du fichier préférences en mode écriture EcriturePrefs(myfile, source_folder, NbJoursAvantStr, NbJoursApresStr) -- Ecriture des préférences dans le fichier préférences close access file myfile -- fermeture du fichier préférences end try -- récupère le jour , le mois , l'année courante set the currentday to (word 2 of (the (current date) as string)) set the currentMonth to (the month of the (current date)) as string set the currentYear to (word 4 of (the (current date) as string)) -- comme le mois est sous la forme littéraire, je le transforme en chiffre avec la fonction FindNumberMonth set the currentMonth to FindNumberMonth(currentMonth) -- Récupération de la liste des éléments contenus dans le dossier courant set the item_list to list folder file source_folder without invisibles -- On passe en revue un à un les éléments du dossier courant repeat with i from 1 to number of items in the item_list try set FolderName to item i of item_list -- récupération du nom de chaque élément set folderDay to characters 1 thru 2 of FolderName -- récupération du jour set folderMonth to characters 4 thru 5 of FolderName -- récupération du mois set folderYear to characters 7 thru 10 of FolderName -- récupération de l'année if folderDay as string = "xx" then set folderDay to currentday -- si le jour = "xx", on prend le jour actuel end if if folderMonth as string = "xx" then set folderMonth to currentMonth -- si le mois est = "xx", on prend le mois actuel end if if folderYear as string = "xxxx" then set folderYear to currentYear -- si l'année est = "xxxx", on prend l'année actuelle end if -- on définit la date de l'élément set folderDate to (folderDay & "/" & the folderMonth & "/" & the folderYear) as string -- si l'évènement est proche de la date actuelle if ((date folderDate) - the (current date)) / (60 * 60 * 24) ≤ NbJoursAvant then if ((date folderDate) - the (current date)) / (60 * 60 * 24) ≥ -1 - NbJoursApres then beep 4 tell application "Finder" set myfolder to (alias (source_folder & FolderName)) -- on pointe sur l'élément évènement set Commentaire to comment of myfolder -- récupération des commentaires de l'élément end tell -- affichage de l'évènement display dialog "Evènement du " & FolderName & return & return & Commentaire as string ¬ buttons {"Préférences", "Supprimer", "OK"} default button 3 giving up after 360 * 10 -- si l'utilisateur choisi de supprimer l'élément if button returned of the result = "Supprimer" then beep 4 -- demande de confirmation de la suppression display dialog "Voulez-vous supprimer cet évènement du " & FolderName & return & return & Commentaire as string ¬ with icon caution buttons {"Supprimer", "Annuler"} default button 2 -- si l'utilisateur confirme if button returned of the result = "Supprimer" then delete myfolder -- suppression de l'élément end if -- si l'utilisateur choisi le bouton "préférences" else if button returned of the result = "Préférences" then set resultat to MesPrefs(NbJoursAvantStr, NbJoursApresStr) -- saisie des préférences set source_folder to item 1 of resultat -- sauvegarde du chemin d'accès set NbJoursAvantStr to item 2 of resultat -- Sauvegarde de la période en nombre de jours pour sélection des évènements à venir set NbJoursAvant to NbJoursAvantStr as integer -- écriture sous la forme numérique set NbJoursApresStr to item 3 of resultat -- Sauvegarde de la période en nombre de jours pour sélection des évènements passés set NbJoursApres to NbJoursApresStr as integer -- écriture sous la forme numérique open for access file myfile with write permission -- ouverture du fichier préférences en mode écriture EcriturePrefs(myfile, source_folder, NbJoursAvantStr, NbJoursApresStr) -- Ecriture des préférences dans le fichier préférences close access file myfile -- fermeture du fichier préférences end if end if end if on error -- Affichage d'erreur beep 4 display dialog ¬ ("Une erreur s'est produite." & return & "Vérifiez que le nom du dossier est bien au format dd/mm/aaaa." & return & " dd, mm et aaaa doivent des nombres ou des 'xx' minuscules :" & return & "Nom du dossier : '" & FolderName as string) & ¬ "'" buttons {"OK"} end try end repeat -- Fonction qui retourne le numéro du mois -- en entrée le mois litéral en anglais est passé dans la variable "myMonth" -- en sortie le numéro du mois est renvoyé on FindNumberMonth(myMonth) set LesMois to {"January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"} repeat with i from 1 to number of items in the LesMois if item i of LesMois = myMonth then return i end if end repeat end FindNumberMonth -- Ecriture des préférences dans le fichier pointé par "myFile" on EcriturePrefs(myfile, source_folder, NbJoursAvantStr, NbJoursApresStr) -- écriture du chemin d'accès du dossier évènements suivi de 'return' dans le fichier préférences write source_folder & return to file myfile -- écriture de la période en nombre de jours pour sélection des évènements à venir suivi de 'return' write NbJoursAvantStr & return to file myfile -- écriture de la période en nombre de jours pour sélection des évènements passés suivi de 'return' write NbJoursApresStr & return to file myfile end EcriturePrefs -- Saisie des préférences par l'utilisateur on MesPrefs(NbJoursAvantStr, NbJoursApresStr) -- ouverture du dialogue pour sélection du dossier qui contient les évènements choose folder with prompt "Choisir le dossier qui contient les Evènements" set source_folder to (result as string) -- sauvegarde du résultat set boucle to true -- Mise en place du drapeau pour entrer dans la boucle repeat while boucle -- Boucle tant que l'utilisateur n'a pas saisi un chiffre try -- dialogue de saisie display dialog ¬ "Donner la période de sélection en jours des évènements à venir:" default answer NbJoursAvantStr buttons {"OK"} default button 1 set NbJoursAvantStr to text returned of result -- sauvegarde du résultat set NbJoursAvant to NbJoursAvantStr as integer -- vérif que la transformation en entier ne génère pas d'erreur set boucle to false -- mise a false du drapeau pour sortir de la boucle on error beep 4 -- signal sonore pour avertir d'une erreur end try end repeat set boucle to true -- Mise en place du drapeau pour entrer dans la boucle repeat while boucle -- Boucle tant que l'utilisateur n'a pas saisi un chiffre try -- dialogue de saisie display dialog ¬ "Donner la période de sélection en jours des évènements passés :" default answer NbJoursApresStr buttons {"OK"} default button 1 set NbJoursApresStr to text returned of result -- sauvegarde du résultat set NbJoursApres to NbJoursApresStr as integer -- vérif que la transformation en entier ne génère pas d'erreur set boucle to false -- mise a false du drapeau pour sortir de la boucle on error beep 4 -- signal sonore pour avertir d'une erreur set boucle to true end try end repeat -- retour des valeurs saisies return [source_folder, NbJoursAvantStr, NbJoursApresStr] end MesPrefs
De : "roland.thiers" <Roland.THIERS@xxxxxxx.fr> Date : Mon, 01 Apr 2002 21:49:24 +0400 Objet : [AS] poisson Bravo pour le tome 5 !!! Je l'ai soigneusement téléchargé et c'est celui que je comprends le mieux ! -- Roland Thiers 1, avenue St Pierre 04860 Pierrevert roland.thiers@xxxxxxx.fr