Utilisez le même fichier Excel td_excel_1.xls contenant le modèle de facture que vous devez utiliser.
Dans Excel, les classeurs, les feuilles de calcul et les plages de cellules sont des objets que vous pouvez manipuler avec VBA pour :
Il est souhaitable aussi de pourvoir gérer les erreurs lors de l'usage des objets. Mais cela ne sera pas abordé dans les activités qui vont suivent. Il s'agit de faire une première approche de la programmation objet en se familiarisant avec la syntaxe générale des instructions VBA et les principaux objets d’Excel.
Créez un deuxième classeur Excel appelé CLasseur2 (en plus du classeur td_excel_1.xls ) et ouvrez-le. Ajoutez deux feuilles de calcul à ce nouveau classeur. Vous devez avoir ces deux classeurs ouverts.
Sélectionnez (activez) le classeur td_excel_1.xls et écrivez dans le module DCG de ce classeur une procédure ActiveClasseur2() qui active le second classeur Classeur2.xlsx.
Code VBA à utiliser :
Workbooks("Classeur2.xlsx").Activate
Toujours à partir du classeur td_excel_1.xls , complétez votre procédure ActiveClasseur2() pour activez la feuille Feuil3 du classeur Classeur2.xlsx.
Code VBA à utiliser :
Worksheets("Feuil3").Select
Toujours à partir du classeur td_excel_1.xls , complétez votre procédure ActiveClasseur2() pour activez, dans la feuille Feuil3 du classeur Classeur2.xlsx, la cellule B2 :
Code VBA à utiliser :
Range("B2").Select
À la place de Range(“B2”), vous pouvez écrire Cells(2, 2).
Toujours à partir du classeur td_excel_1.xls , complétez votre procédure ActiveClasseur2() pour activez, dans la feuille Feuil3 du classeur Classeur2.xlsx, la plage de cellules de A1 à C3 et rendre active la cellule B3.
Code VBA à utiliser :
Range("A1:C3").Select Range("B3").Activate
Toujours à partir du classeur td_excel_1.xls , créez une procédure InformationActiveClasseur2() pour activez, dans la feuille Feuil3 du classeur Classeur2.xlsx, la plage de cellules de A1 à C3 et rendre active la cellule B3.
Code VBA à utiliser :
Range("A1:C3").Select Range("B3").Activate
Toujours à partir du classeur td_excel_1.xls , complétez la procédure InformationActiveClasseur2() pour renommer la feuille Feuil3 du classeur Classeur2.xlsx en lui donnant le nom Information.
Code VBA à utiliser :
Dim wksFeuille As Worksheet Set wksFeuille = Workbooks("Classeur2.xlsx").Worksheets(3) wksFeuille.Name = "Information"
Workbooks("Classeur2.xlsx").Worksheets(3).Name = "Information"
ou
Workbooks("Classeur2.xlsx").Worksheets("Feuil3").Name = "Information"