Quizz Powerpoint VBA _ Sauter 1 slide

Génial ca marche!!! décidément James tu es incollable! MERCI

Comment puis-je faire pour que les résultats des participants s'exportent les uns en dessous des autres dans le tableau excel ( pour éviter que chaque résultat sauvé n'écrase le précédent)?

Un grand merci pour ton aide!

Flora

Re,

Content que cela fonctione ...

Pour en pas écraser les résultats précédents ... tu peux tester ...

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

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

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

Bonjour,

Tu pourrais tester le code suivant :

Sub Export_values()
Dim xlApp As Object
Dim xlWorkBook As Object
Dim xlBook
Dim i As Integer

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")

'i = xlBook.Sheets(1).Cells(65536, 1).End(xlUp).Row

xlBook.Sheets(1).Cells(i, 1) = Username
xlBook.Sheets(1).Cells(i, 2) = numberCorrect
xlBook.Sheets(1).Cells(i, 3) = numberFaux

xlBook.Save
xlBook.Close

' fermeture du fichier et du processus excel
Set xlBook = Nothing
xlApp.Application.Quit
xlApp.Quit
Set xlApp = Nothing

End Sub

Hello James,

J'ai testé ta formule, cette fois-ci le fichier s'ouvre mais ne reporte pas mes résultats et ne s'enregistre pas automatiquement ni se se referme d'ailleurs.

Un grand merci pour ton aide!

Flora

Hello Flora,

Malheureusement, sur mon ordinateur ... je n'ai pas Powerpoint ...

Donc, je fais tout à l'aveugle ...

Je vais essayer de mettre la main sur un autre ordinateur pour faire des tests ...

Bonjour Flora,

Ci-dessous ... un code testé qui devrait fonctionner ...

Sub Export_values()
Dim xlApp As Object
Dim xlWorkBook As Object
Dim xlBook As Object
Dim i As Integer

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")

' Déterminer la première ligne disponible
i = xlBook.Sheets(1).Cells.SpecialCells(11).Row + 1
' Copier les variables 
xlBook.Sheets(1).Cells(i, 1) = Username
xlBook.Sheets(1).Cells(i, 2) = numberCorrect
xlBook.Sheets(1).Cells(i, 3) = numberFaux
' fermeture du fichier
xlBook.Save
xlBook.Close
' fermeture du processus excel
xlApp.Application.Quit
Set xlApp = Nothing
Set xlBook = Nothing

End Sub

TOPISSIME!! ca fonctionne! Merci infiniement pour ton aide james je ne devrai plus t'embeter mnt.

Flora

floflo006 a écrit :

TOPISSIME!! ca fonctionne! Merci infiniement pour ton aide james je ne devrai plus t'embeter mnt.

Flora

Ravi que cela fonctionne ...!!!

Merci pour tes remerciements !!!

Hello James,

Comme quoi il ne faut jamais dire jamais. Une petite question: connaitrais-tu une astuce pour empêcher les participants d'éxecuter 2 fois la macro Export values, et ainsi enregistrer plusieurs fois leur participation?

Merci!

Flora

floflo006 a écrit :

Hello James,

Comme quoi il ne faut jamais dire jamais. Une petite question: connaitrais-tu une astuce pour empêcher les participants d'éxecuter 2 fois la macro Export values, et ainsi enregistrer plusieurs fois leur participation?

Merci!

Flora

Bonjour Flora,

Oui ... effectivement, je connais une astuce ...

mais je ne te la dirai pas ...

Blague à part, il faudrait le fichier et la macro ...

Coucou James,

C'est un fichier pro, je crains qu'il n'y ait des infos confidentielles... pourrais-tu m'expliquer stp?

FLora

Re,

Pour faire simple ... avec une variable booléenne ...

Dans ton programme, la logique à construire est la suivante ...

Tu initialises ta variable en Faux ...

tu testes ta variable ...

Si Faux la macro peut être utilisée et

tu modifies la variable en Vrai ...

Si Vrai la macro ne peut pas être utilisée ...

Voilou ...

Hello James,

Nouvelle question: est-il possible, via une macro que les résultats me soient envoyés directement par mail au lieu qu'ils soient exportés vers un fichier excel? Si oui, comment faire?

Merci infiniment pour ton aide!!

Flora

Bonjour,

Dans l'ordre ...

1. As-tu résolu le point précédent ...???

2. Pour ta nouvelle-nouvelle-nouvelle question ... je te conseille d'ouvrir un nouveau sujet ...

Merci pour ton aide James! J'ai fini par réglé mon pb

Bonjour,

Merci pour tes remerciements

Hello James,

Jai un nouveau pb... Je souhaite diffuser le quizz par mail en le mettant en pièce jointes. Pour ce faire je l'ai converti en PPSM (pour qu'il s'ouvre directement en diaporama et prenne en compte les macros). Lorsque j'ouvre mon fichier à partir du réseau : RAS, en revanche quand les destinataires ouvre la PJ du mail, le ppt s'ouvre en mode classique. Du coup, ttes les slides apparaissent sur le côté et donc les destinataires peuvent voir ttes les réponses...

Saurais-tu cmt fr pour que le ppt en PJ s'ouvre directement en mode diaporama?

Merci bcp par avance

Flora

Bonjour,

petite question : est il possible de créer un comptage de bonnes réponses avec VBA si dans le PPT on a mis des liens hypertexte pour renvoyer sur la slide bonne ou mauvaise réponse?

Rechercher des sujets similaires à "quizz powerpoint vba sauter slide"