Activation d'un nouveau classeur :)

[Popi14]

Bonjour à toutes et à tous,

J'ai une macro dans mon classeur qui permet de créer un autre classeur Excel.
J'aimerais activer mon nouveau classeur et écrire dedans mais j'ai une erreur dans mon code " j'écris pas dans mon nouveau classeur" 🙁.
J'ai cherché sur le net mais je n'ai pas trouvé la solution à mon problème.

Mon code est le suivant:

Sub creation_fichier_excel()

'Création d'un fichier Excel
Dim Excel As New Excel.Application
Dim Workbook As Excel.Workbook
Dim Worksheet As Excel.Worksheet

'La fenêtre excel est visible
Excel.Visible = True
'On ouvre un nouveau classeur Excel pour y entrer des données
Excel.Workbooks.Add (1)
'Création d'une feuille
Excel.Worksheets.Add
Workbooks(1).Activate


[A1] = "test"
Le problème c'est que test est écrit dans la case A1 de mon ancien classeur et pas dans le classeur que je viens de créer.

End Sub


Pourriez-vous m'aider à écrire le mot "test" dans le classeur que je viens de créer.

Je vous remercie d'avance pour le temps passé sur mon problème,

Bonne fin de journée à tous,

Popi14

 

[Pierrot93]

Re : Activation d'un nouveau classeur 🙂

Bonsoir Popi

essaye peut être avec le code ci dessous, si j'ai bien compris :

code à placer dans un module standard

Sub creation_fichier_excel()
Workbooks.Add
ActiveWorkbook.Worksheets.Add
[A1] = "test"
End Sub

renvoie "test" dans la nouvelle feuille du nouveau classeur.
Attention, tes instruction "DIM" déclaraient des variables en utilisant des mots réservés vba (workbook et worksheet)

bonne soirée
@+

 

[Popi14]

Re : Activation d'un nouveau classeur 🙂

Merci Merci bcp Pierrot !

Je te remercie pour ton aide 🙄

Laurent