Exporter des données sur Excel depuis powerpoint

Bonjour,

Je suis débutante en vba sur powerpoint et j'espère que vous pourrez m'aider.

Je réaliser un questionnaire sur powerpoint. Les réponses sont entrées dans des textbox et j'aimerai que le résultats des textbox soient enregistrés sur un fichier excel.

J'arrive à faire cela mais mon problème c'est que j'aimerai que mes résultats s'enregistrent à la dernière ligne non vide de mon tableau excel.

Voici la macro que j'utilise (dans cette macro le résultat de la textbox s'affiche dans la case que je lui dis sous excel):

Private Sub TextBox1_Change()
'Dim osld As Slide
'Set osld = ActivePresentation.SlideShowWindow.View.Slide
' Set osld = ActivePresentation.Slides(2)
'current = osld.SlideIndex
Dim xlApp As Object
Dim xlWorkbook As Object
Dim derniereligne As Integer
Set xlWorkbook = GetObject(ActivePresentation.Path & "\Suivi_accueil_sécurité.xlsm")
xlWorkbook.sheets(1).Range("B11").Value = Slide4.TextBox1
End Sub

Pour écrire le résultat de la textbox à la dernière ligne de mon tableau j'utilise la macro suivante :

Private Sub TextBox1_Change()
'Dim osld As Slide
'Set osld = ActivePresentation.SlideShowWindow.View.Slide
' Set osld = ActivePresentation.Slides(2)
'current = osld.SlideIndex
Dim xlApp As Object
Dim xlWorkbook As Object
Dim derniereligne As Integer
Set xlWorkbook = GetObject(ActivePresentation.Path & "\Suivi_accueil_sécurité.xlsm")
derniereligne = xlWorkbook.sheets(1).Range("B65536").End(xlup).Row --> Problème au niveau de cette ligne
xlWorkbook.sheets(1).Cells(2, derniereligne).Value = Slide4.TextBox1
End Sub

Or cela ne marche, il y a une erreur définie par l'application ou par l'objet au niveau de la ligne suivante :
derniereligne = xlWorkbook.sheets(1).Range("B65536").End(xlup).Row --> Problème au niveau de cette ligne

Je sais que cette formule fonctionne si je l'écris dans vba sous excel, est-ce que vous savez comment je peux régler mon problème ?
Est-ce qu'il y a une autre méthode ?

Merci d'avance,

Marie

Bonjour,

Premièrement une chose très importante pour garder le soutien des autres, c'est de baliser ton code. (Tu sélectionnes ton code et tu cliques sur le dièse (#))

Tu peux toujours essayer d'exécuter ta sub au pas-à-pas et de vérifier si ton objet xlworkbook, existe bel et bien.

J'ai pris note de la question, mais pour l'instant, je ne peux pas essayer pour voir ce que cela donne.

Bonjour,

Merci pour votre réponse.

Ci-dessous le code balisé:

Code:

---

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

Private Sub TextBox1_Change() 'Dim osld As Slide 'Set osld = ActivePresentation.SlideShowWindow.View.Slide ' Set osld = ActivePresentation.Slides(2) 'current = osld.SlideIndex Dim xlApp As Object Dim xlWorkbook As Object Dim derniereligne As Integer Set xlWorkbook = GetObject(ActivePresentation.Path & "\Suivi_accueil_sécurité.xlsm") derniereligne = xlWorkbook.sheets(1).Range("B65536").End(xlup).Row --> Problème au niveau de cette ligne xlWorkbook.sheets(1).Cells(2, derniereligne).Value = Slide4.TextBox1 End Sub

---

Je vais chercher de mon côté si je ne trouve pas un solution et creuser pour voir si mon xlworbook existe bien.

Merci,

Marie

dans VBA regarde dans Outils-->Références et vérifie si t'as bien coché "Microsoft Excel 14.0 Object Library" sur mon pc c'est 14.0 c'est peut etre un autre chiffre sur le tien mais c'est pas grave, faut que la librairie soit cochée

Bonjour,

Merci pour votre réponse,

Je viens de vérifier c'est bien coché mais moi c'est 15.0

Marie

c'est bizarre parce que chez moi en cochant la librairie Excel cette ligne marche tres bien

Code:

---

1 2	derniereligne = xlWorkbook.sheets(1).Range("B65536").End(xlup).Row

---

désolé d'etre insistant mais je parle pas de la librairie Office mais bien de la librairie Excel (c'en est une différente), après si c'est pas ça je sais pas

Oui en effet, ça marche !!

Désolé vous avez bien fait d'insister !

Merci beaucoup

Marie