Merci James pour ces précisions mais la macro ne fonctionne plus, le tableau ne s'enregistre pas du tout. L'ai-je bien rédiger?
Sub Export_values()
Dim xlApp As Object
Dim xlWorkBook As Object
Dim xlBook
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
' Ouverture du fichier Excel devant recevoir les informations
' Nom_Fichier est le nom complet de fichier avec son chemin C.....
Set xlBook = xlApp.Workbooks.Open("D:\Utilisateurs\flora\Documents\QUIZZ\Résultats Quizz.xls")
With xlBook.Sheets(1)
.Range("A" & Range("A65536").End(xlUp).Row) = username
.Range("B" & Range("B65536").End(xlUp).Row) = numberCorrect
.Range("C" & Range("C65536").End(xlUp).Row) = numberFaux
End With
xlBook.Save
xlBook.Close
' fermeture du fichier et du processus excel
Set xlBook = Nothing
xlApp.Application.Quit
xlApp.Quit
Set xlApp = Nothing
End Sub
Flora