Copier une feuille d'un classeur existant sur un nouveau classeur avec vba

Bonjour,

Je travaille sur la réalisation d'un quiz en vba. Lorsqu'une personne s'inscrit à l'examen, un nouveau classeur doit s'ouvrir lorsqu'il rentre son numéro d'étudiant.
S'il rentre un numéro incorrect, un message d'erreur s'affiche.
Voici le code pour la création du nouveau classeur:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

' Si le numéro étudiant est valide, on crée un nouveau classeur ' On fait figurer le numéro étudiant dans le nom du classeur   If NoExiste = True Then NomFichier = NoEtudiant & "_MatriceEtudiant.xls" Set xlApp = CreateObject("Excel.Application") Set wb = xlApp.Workbooks.Add wb.SaveAs (NomFichier) xlApp.Visible = False Else: MsgBox ("Votre numéro est incorrect")   End If

---

Mon problème est que pour le transfert des résultats, je souhaite copier une feuille d'un classeur existant dans le nouveau classeur généré par l'inscription de l'étudiant. Voici le code (mais il ne fonctionne pas) :

Code:

---

1 2 3 4

Set MatriceEtudiant = ActiveWorkbook ActiveWorkbook.Worksheets("Donnees").Select Worksheets("Donnees").Copy After:=Workbooks(NomFichier).Sheets(2)

---

Merci d'avance pour votre aide :)

bonjour,

Tu dis être sous excel mais alors pourquoi ouvrir une 2° application excel ?

Code:

---

Set xlApp = CreateObject("Excel.Application")

---

Bonjour,
Effectivement la question d’instancier un nouvel Excel me semble inutile. De plus pourquoi instancier des objets Workbook Si tu ne les utilise pas ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

' Si le numéro étudiant est valide, on crée un nouveau classeur ' On fait figurer le numéro étudiant dans le nom du classeur Dim ActClasseur As Workbook Dim NewClasseur As Workbook If NoExiste = True Then NomFichier = NoEtudiant & "_MatriceEtudiant.xls" Set ActClasseur = ActiveWorkbook 'Set xlApp = CreateObject("Excel.Application") Set NewClasseur = Application.Workbooks.Add ActClasseur.Worksheets("Donnees").Copy After:=NewClasseur.Sheets(2)   NewClasseur.SaveAs (NomFichier) NewClasseur.Close ' xlApp.Visible = False Else: MsgBox ("Votre numéro est incorrect")   End If

---

Bonjour,

pour créer ton nouveau classeur avec ta feuille tu peux faire simplement :

Code:

---

Worksheets("Donnees").Copy

---

eric