Discussion :

[Sylv@in]

Bonjour,

J'ai réussi à mettre en place un formulaire (questionnaire de satisfaction) que j'envoie à mes collègues afin d'améliorer la qualité du service.

Par la suite nous aurions besoins de regrouper certains champs du formulaire dans un fichier Excel afin d'en faire des stats.

Seul problème je n'arrive pas à extraire les champs dont j'ai besoins

Merci par avance.

Je n'ai besoins que de 12 champs particuliers situés dans le formulaire de réponse

[Sylv@in]

C'est bon c'est résolu.

Voici ma macro :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
Sub stats_questionnaire()
 
    Dim Exp As Explorer
    Dim Sel As Selection
    Dim Itm As MailItem
    Dim lig As Integer
 
    Set Exp = ActiveExplorer
    Set Sel = Exp.Selection
    lig = 1
 
    reportfilename = "C:\Fichiers\" & "test.xls"
 
' Ouvre l'application excel'
Set es = CreateObject("Excel.Application")
es.Visible = True
' Ouvre le bon fichier de mise en page
es.Workbooks.Open FileName:=reportfilename
 
 
        For Each Itm In Sel
 
 
 
            While es.Sheets("export").Cells(lig, 1).Value <> ""
                lig = lig + 1
            Wend
 
            es.Sheets("export").Cells(lig, 1).Value = Itm.UserProperties("identifiant")
            es.Sheets("export").Cells(lig, 2).Value = Itm.UserProperties("cai1")
            es.Sheets("export").Cells(lig, 3).Value = Itm.UserProperties("cai2")
            es.Sheets("export").Cells(lig, 4).Value = Itm.UserProperties("cai3")
            es.Sheets("export").Cells(lig, 5).Value = Itm.UserProperties("cai4")
            es.Sheets("export").Cells(lig, 6).Value = Itm.UserProperties("cai5")
            es.Sheets("export").Cells(lig, 7).Value = Itm.UserProperties("getro1")
            es.Sheets("export").Cells(lig, 8).Value = Itm.UserProperties("getro2")
            es.Sheets("export").Cells(lig, 9).Value = Itm.UserProperties("getro3")
            es.Sheets("export").Cells(lig, 10).Value = Itm.UserProperties("getro4")
            es.Sheets("export").Cells(lig, 11).Value = Itm.UserProperties("getro5")
            es.Sheets("export").Cells(lig, 12).Value = Itm.UserProperties("commentaire")
 
            lig = lig + 1
 
        Next Itm
 
        es.ActiveWorkbook.Save
            es.ActiveWorkbook.Close
 
    Set Itm = Nothing
    Set Sel = Nothing
    Set Exp = Nothing
 
 
End Sub

[Freiya]

Bonjour Sylvain,

Peux-tu m'expliquer comment tu as fais ou me donner un exemple pas à pas svp ?

Example avec 1 question : Avez-vous un chat ? bouton radio Yes/No
Création du formulaire : détail
Envoie du formulaire : détail
Récupération des données : détail

Ce seraitvraiment sympa.
Merci