Discussion :

[jiang]

Bonjour,


J'aurais besoin de votre aide!

j'ai réalisé un questionnaire pps, et je voudrais récupérer les valeurs des réponses dans un fichier Excel pour que je puisse traiter ces informations.

Vous trouverez dans la pièce jointe un exemple de mon questionnaire.

Comme je suis vrai débutant en VBA, comment faire?

Merci d'avance!!!

Marc

[Xpmich]

Salut,
bon j'ai commencé un petit bout de code mais je ne vais pas tout faire

je pense qu'il y a plus simple à toi de voir
Regarde le code du fichier (Alt+F11)

Bonne programmation

Xpmich

[jiang]

Merci beaucoup votre aide!

C'est vraiment sympa!

Je vais essayer de me débrouiller avec votre code.

[jiang]

Je suis vraiment nul en VBA. Votre code me semble difficil. En tout cas, merci bcp bcp pour votre aide.

Finalement, j'ai fait mon propre code très "naif" dans le questionnaire ppt

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
17
18
19
20
21
22
23
24
25
26
27
Sub récupération_données_dans_un_FeuilleExcel()
 
'Déclaration des variables
Dim xlApplication As Object
Dim nom_feuille As String
Dim sld As Slides
 
nom_feuille = "questionnaire1"
 
 
Set xlApplication = CreateObject("excel.application")
 
With xlApplication
.Workbooks.Open ("c:\mes documents\questionnaire à traiter (version 1).xls")
 
.sheets(nom_feuille).Cells(7, 3) = Slide118.CheckBox2.Value
.sheets(nom_feuille).Cells(8, 3) = Slide122.CheckBox2.Value
.sheets(nom_feuille).Cells(9, 3) = Slide123.CheckBox2.Value
.....
.....ici, 800 lignes pour copier les valeurs de checkbox ou textbox dans le fichier Excel :(
 
 
.Save
.Quit
End With
 
End Sub

j'ai fait 800 lignes pour copier les valeurs de checkbox ou textbox dans le fichier Excel, car je ne sais pas comment faire une boucle dans vb ppt, comme

Code :

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

1
2
3
4
5
6
for i=7 to 200
for j=2 to 20
.sheets(nom_feuille).cells(i,j)=slides(i+111).checkboxs(j).value :oops::oops:
 
next j
next i