Discussion :

[Papallon]

Bonjour à tous et à toutes!

Alors voilà, je tente de faire un quiz plutot complet avec récupération de mes résultats dans un fichier Excel...

J'ai donc en fin de quiz un bouton "résultat" qui me donne mon résultat et un autre "statistique" qui me demande un "numéro de session" qui sera en fait mon numéro de colonne dans mon ficher Exel.
En début de quiz j'attribu un numéro de ligne en fonction d'une case que la personne a choisi.

Le probléme est que quand je clic sur "statistique" j'ai bien un UserForm qui s'ouvre et qui me demande mon numéro de session mais une fois cela fait il ne se passe plus rien.

J'espére avoir été assez claire, voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub stat()
UserForm1.Show
 
Dim xlApp As Excel.Application
Dim xlWbk As Excel.Workbook
Set xlApp = CreateObject("Excel.Application")
 
 
Set xlBook = xlApp.Workbooks.Open("\\CheminCorrectVersMonFichierExcel\Résultats.xls")
 
 
xlApp.Sheets(1).Cells(" & fonction & ", " & session & ") = score
 
xlApp.Quit
Set xlApp = Nothing
End Sub

[Papallon]

Précision : j'ai bien référencé Excel.

J'ai tenté une nouvel approche et aprés beaucoup de tests je pense que l'erreur vient des variables.
Il préférerait des entier mais je ne vois pas bien comme faire pour remplir mon tableau en fonction de ce que la personne coche au début du quiz plus le numéro de session que je lui donne.
Avec des entiers, cela marche parfaitement...mais je vais réécrire sur la même case à l'infini...

[Papallon]

J'ai également testé avec la méthode range, je ne demande plus un numéro de session mais plutot une lettre correspondant à la colonne bien sur.

En voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub stat()
 
 
Dim xlApp As Excel.Application
Dim xlWbk As Excel.Workbook
Set xlApp = CreateObject("Excel.Application")
 
 
Set xlBook = xlApp.Workbooks.Open("\\CENSURE\Résultats.xls")
test = session & fonction
 
xlApp.Sheets(1).Range(" $ test $ ") = score
 
xlApp.Quit
Set xlApp = Nothing
End Sub

J'ai même essayé de mettre mes variables dans un offset pour tout vous dire...

[Papallon]

Visiblement c'est un probléme de portée de variable.

Ma variable de mon userform n'est pas réutilisé dans mon module. Ce qui a pour affet d'ecrire dans une case qui a pour colonne 0.

C'est donc pour cela que ca ne marche pas.

Je l'appel pourtant "UserForm1.session" dans mon module et je la déclare "Public session As Long" dans mon userform et dans mon module.