Dans un classeur, vous devez construire des tableaux de données pour une année entière à raison d’un mois par feuille de calcul. Or, avec Quattro Pro 7.0, il faut renommer une feuille de calcul est une opération fastidieuse. Il faut effectuer un clic droit sur l’onglet en bas de la feuille de calcul, choisir l’onglet Nom dans la fenêtre qui s’affiche, saisir l’intitulé du mois dans le champ Nom et valider en cliquant sur [ok]. Cette procédure doit être répétée pour tous les onze autres mois de l’année. Sous Quattro Pro 8.0, les manipulations sont plus simples, mais restent néanmoins fastidieuses.Pour gagner du temps, rédigez une macro dans le langage de programmation PerfectScript. Celle-ci aura pour rôle de renommer automatiquement les douze premiers onglets d’un classeur. Ouvrez le Bloc-notes de Windows et saisissez le listing ci-dessous. Enregistrez le fichier dans le dossier C:Mes documents, au format Texte et sous le nom OngletsAn.wcm. Dans Quattro Pro, exécutez la commande Macro/Exécuter du menu Outils. Cochez la case [macro PerfectScript]. Saisissez C:Mes documentsOngletsAn.wcm. Cliquez sur [ok]. Activez [convertir] et la macro s’exécutera.Listing :
Application (QuattroPro; “QuattroPro”; Default; “FR”)
NumFeuille=””
NomFeuille=””
Mois=””
For (i;0;i<=11;i+1)
//Création des mois dans la cellule A1 de la feuille IV
SelectBlock (Block:”IV:A1..A1″)
Mois=”01/”+NumStr(i+1)+”/1999″
PutCell2 (Data:Mois)
//trouve la position de la feuille et sélectionne la cellule A1 de la feuille active
NumFeuille= NToC(65+i)+”:A1..A1″
SelectBlock (Block:NumFeuille)
//Calcul du nom de la feuille
NomFeuille=DateMonthName(GetCellValue(“IV:A1..A1″))+” 2000″
Page_Name(NomFeuille)
//Position sur la feuille Janvier
SelectBlock (Block:”A:A1..A1″)
Endfor
🔴 Pour ne manquer aucune actualité de 01net, suivez-nous sur Google Actualités et WhatsApp.
