Créer de nouveaux classeurs en utilisant VBA dans Microsoft Excel
Il peut y avoir des cas où vous devez créer un nouveau classeur avec un certain nombre de feuilles via un code ou une macro vba. Voici une macro simple qui vous permet de créer un nouveau classeur> ouvrir puis enregistrer avec un maximum de 255 nouvelles feuilles de calcul. Dans cet exemple de macro, nous allons créer un nouveau classeur avec 10 feuilles de calcul.
Option Explicit _Sub create_workbook ()
Dim wb As Workbook Set wb = NewWorkbook (10)
End Sub_ Function NewWorkbook (wsCount As Integer) As Workbook Dim OriginalWorksheetCount As Long Set NewWorkbook = Nothing If wsCount <1 Or wsCount> 255 Puis quittez la fonction OriginalWorksheetCount = Application.SheetsInNewWorkbook Application.SheetsInNewWorkbook = wsCountWorkbook Set NewWorkbook = wsCountInWorkbook OriginalWorksheetCount End Function Code Explication:
Nous avons d’abord une procédure appelée «create_workbook». Dans cette procédure, nous avons une variable wb comme classeur et nous appelons la fonction NewWorkbook via cette variable. Ainsi, la nouvelle fonction est appelée et thewscount est défini à 10, qui est le nombre de feuilles de calcul dans le nouveau classeur.
Ensuite, nous allons à la fonction appelée qui est Function NewWorkbook (wsCount as Integer) as Workbook. La valeur de wsCount qui est 10 est transmise depuis le sous create_workbook.
Set NewWorkbook = Nothing
Tout d’abord, le NewWorkbook est réglé sur rien afin que nous puissions effacer toute autre valeur qui pourrait lui être attribuée dans les codes précédents.
Si wsCount <1 ou wsCount> 255 alors Quitter Function
Ensuite, nous devons vérifier si la valeur transmise par le sous est inférieure à 1 ou supérieure à 255. Si la réponse est oui à l’une de ces vérifications, quittez la fonction.
OriginalWorksheetCount = Application.SheetsInNewWorkbook
Il existe un paramètre dans la page d’options Excel où le nombre de feuilles à inclure dans un nouveau classeur est défini. Nous transmettons cette valeur à la variable OriginalWorksheetCount . * La variable contiendra le nombre de feuilles par défaut qui était déjà prédéfini dans les options Excel.
Application.SheetsInNewWorkbook = wsCount
Ensuite, nous attribuons la valeur de wsCount qui est transmise du sous au paramètre dans les options Excel pour le nombre de feuilles à inclure dans un nouveau classeur. Alors maintenant, ce paramètre passera de l’ancienne valeur à 10. L’ancienne valeur pourrait être 1 ou 3 ou tout autre nombre défini par l’utilisateur.
Set NewWorkbook = Workbooks.Add
Nous créons un nouveau classeur qui est attribué à NewWorkbook. Ce nouveau classeur est créé avec le nombre de feuilles spécifié dans wsCount. Vous verrez un nouveau classeur avec 10 feuilles intitulé Sheet1 à Sheet10. Voir la photo ci-dessous pour le nouveau fichier Book3 qui a été créé.
L’image ci-dessous vous montrera le nombre de feuilles qui ont été créées dans le nouveau classeur.
Le numéro 10 apparaîtra également dans le paramètre Application.SheetsInNewWorkbook dans les options Excel comme dans l’image ci-dessous –
Application.SheetsInNewWorkbook = OriginalWorksheetCount TheApplication.SheetsInNewWorkbook est retourné à son numéro d’origine qui était présent avant la définition de wsCount. Donc, si le nombre d’origine était 1 ou 3, ce paramètre retournera maintenant à ce nombre.
Si vous avez aimé nos blogs, partagez-les avec vos amis sur Facebook. Et vous pouvez également nous suivre sur Twitter et Facebook.
Nous serions ravis de vous entendre, faites-nous savoir comment nous pouvons améliorer, compléter ou innover notre travail et le rendre meilleur pour vous. Écrivez-nous à