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:
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Merci d'avance pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Set MatriceEtudiant = ActiveWorkbook ActiveWorkbook.Worksheets("Donnees").Select Worksheets("Donnees").Copy After:=Workbooks(NomFichier).Sheets(2)
Partager