Parfois, il est nécessaire de créer automatiquement un nouveau classeur. Cela peut se produire lorsque vous devez copier des données du classeur et les coller dans le fichier nouvellement créé. La macro ci-dessous copie la plage de cellules de la feuille de calcul active et colle les données dans la nouvelle feuille de calcul.
En lisant les lignes de code, vous pouvez voir que la macro est relativement intuitive.
Sub CreerClasseur()
'Étape 1: Copier des données
Sheets("Feuil1").Range("B4:C15").Copy
'Etape 2: Créez un nouveau classeur
Workbooks.Add
'Étape 3: collez les données
ActiveSheet.Paste Destination:=Range("A1")
'Étape 4: Désactivez le message d'alerte
Application.DisplayAlerts = False
'Étape 5: Enregistrez la feuille de calcul nouvellement créée
ActiveWorkbook.SaveAs _
Filename:="C:\Temp\monfichier.xlsx"
'Étape 6: Activer les messages d'alerte
Application.DisplayAlerts = True
End Sub
Commentaires:
1. Dans la première étape, nous copions simplement les données de la plage de cellules de B4 à C15.
À ce stade, il convient de noter que la feuille et la plage ont été désignées par leur nom. C’est la meilleure façon de travailler avec plusieurs feuilles ouvertes en même temps.
2. Un nouveau classeur pour l’objet Workbook a été créé à l’aide de la méthode Add.
3. Dans cette étape, la méthode Add a été utilisée pour arrêter les données copiées dans la cellule A1 du nouveau classeur.
Faites attention au fait que le code appelle l’appel à l’objet ActiveSheet. Lorsqu’un nouveau classeur est créé, il devient un fichier actif. La même chose se produit lorsque le classeur est créé manuellement.
4. Dans la quatrième étape, la méthode DisplayAlerts est définie sur False, ce qui exclut les messages Excel. Cela est dicté par le fait que le classeur nouvellement créé sera enregistré à l’étape suivante. La macro peut être exécutée autant de fois que nécessaire et, dans tous les cas, Excel enregistrera le fichier à nouveau.
Et qu’arrivera-t-il lorsque nous essaierons de sauvegarder le classeur plusieurs fois? Incidemment, Excel affichera un avertissement chaque fois qu’un fichier portant ce nom existe déjà et demandera s’il doit l’écraser. Notre objectif est d’automatiser le processus de création de nouveaux classeurs. Ce message doit donc être supprimé.
5. À l’étape cinq, la méthode SaveAs a été utilisée pour enregistrer le fichier. Il est à noter que le chemin a été donné, y compris le nouveau nom de fichier.
6. Les messages ayant été éliminés à la quatrième étape, ils devraient être restaurés maintenant. Si nous ne le faisons pas, aucun autre avertissement n’apparaîtra jusqu’à la fin de la session en cours.
1. Dans la première étape, nous copions simplement les données de la plage de cellules de B4 à C15.
À ce stade, il convient de noter que la feuille et la plage ont été désignées par leur nom. C’est la meilleure façon de travailler avec plusieurs feuilles ouvertes en même temps.
2. Un nouveau classeur pour l’objet Workbook a été créé à l’aide de la méthode Add.
3. Dans cette étape, la méthode Add a été utilisée pour arrêter les données copiées dans la cellule A1 du nouveau classeur.
Faites attention au fait que le code appelle l’appel à l’objet ActiveSheet. Lorsqu’un nouveau classeur est créé, il devient un fichier actif. La même chose se produit lorsque le classeur est créé manuellement.
4. Dans la quatrième étape, la méthode DisplayAlerts est définie sur False, ce qui exclut les messages Excel. Cela est dicté par le fait que le classeur nouvellement créé sera enregistré à l’étape suivante. La macro peut être exécutée autant de fois que nécessaire et, dans tous les cas, Excel enregistrera le fichier à nouveau.
Et qu’arrivera-t-il lorsque nous essaierons de sauvegarder le classeur plusieurs fois? Incidemment, Excel affichera un avertissement chaque fois qu’un fichier portant ce nom existe déjà et demandera s’il doit l’écraser. Notre objectif est d’automatiser le processus de création de nouveaux classeurs. Ce message doit donc être supprimé.
5. À l’étape cinq, la méthode SaveAs a été utilisée pour enregistrer le fichier. Il est à noter que le chemin a été donné, y compris le nouveau nom de fichier.
6. Les messages ayant été éliminés à la quatrième étape, ils devraient être restaurés maintenant. Si nous ne le faisons pas, aucun autre avertissement n’apparaîtra jusqu’à la fin de la session en cours.