Discussion :

[charleshbo]

Bon, j'ai quelques problèmes lors de l'exportation vers excel...

Premièrement, je passe des champs vers certaines colonnes et rien ne s'y inscrit. Et je passe d'autre infos dans un autre champ, mais il ne se met pas dans la bonne colonne...

Voici mon code pour exporter dans Excel...

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
 
 
rstListeTotale.MoveFirst
            While Not rstListeTotale.EOF
 
                appExcelFeuille.Cells(Y, 1) = rstListeTotale.Fields("NoAspectImpact")
                appExcelFeuille.Cells(Y, 2) = rstListeTotale.Fields("noaspect")
                appExcelFeuille.Cells(Y, 3) = rstListeTotale.Fields("noSecteur")
                appExcelFeuille.Cells(Y, 4) = rstListeTotale.Fields("secteur")
                appExcelFeuille.Cells(Y, 5) = rstListeTotale.Fields("contexte")
                appExcelFeuille.Cells(Y, 6) = rstListeTotale.Fields("procede")
                appExcelFeuille.Cells(Y, 7) = rstListeTotale.Fields("aspect")
                appExcelFeuille.Cells(Y, 8) = rstListeTotale.Fields("impact")
                appExcelFeuille.Cells(Y, 9) = rstListeTotale.Fields("dureeAspect")
                appExcelFeuille.Cells(Y, 10) = rstListeTotale.Fields("echelle")
                appExcelFeuille.Cells(Y, 11) = rstListeTotale.Fields("gravite")
                appExcelFeuille.Cells(Y, 12) = rstListeTotale.Fields("probabilite")
                appExcelFeuille.Cells(Y, 13) = rstListeTotale.Fields("respectLoisReglements")
                appExcelFeuille.Cells(Y, 14) = rstListeTotale.Fields("relationsPubliques")
                appExcelFeuille.Cells(Y, 15) = rstListeTotale.Fields("impactProduit")
                appExcelFeuille.Cells(Y, 16) = rstListeTotale.Fields("consequencePenalite")
                appExcelFeuille.Cells(Y, 17) = rstListeTotale.Fields("multiplicationTotaleEnvironnement")
                appExcelFeuille.Cells(Y, 18) = rstListeTotale.Fields("multiplicationTotaleCommerciale")
                appExcelFeuille.Cells(Y, 19) = rstListeTotale.Fields("total")
                appExcelFeuille.Cells(Y, 20) = rstListeTotale.Fields("Action")
                appExcelFeuille.Cells(Y, 21) = rstListeTotale.Fields("controle")
                appExcelFeuille.Cells(Y, 22) = rstListeTotale.Fields("remarque")
                'Ajoute toute les lois et reglements liees a cet aspect/impact
                Set rstLR = CurrentDb.OpenRecordset("select * from tblLoisEtReglementsAspectImpact where NoAspectImpact = " & rstListeTotale.Fields("NoAspectImpact"), dbOpenDynaset)
                While Not rstLR.EOF
                    appExcelFeuille.Cells(Y, 22 + A) = rstLR.Fields("NomLoi")
                rstLR.MoveNext
                A = A + 1
                Wend
                A = 1
                rstLR.Close
                Set rstLR = Nothing
 
            rstListeTotale.MoveNext
            Y = Y + 1
            Wend

Voici le fichier Excel :



Donc, je ne comprends pas trop pourquoi ça l'arrive... je ne sais pas si vous avez déjà eu ce genre d'erreur. Aidez-moi svp!
Il ne me reste que 2 jours de stage, apres ça je vais pouvoir arreter de vous achaler!

[charleshbo]

oubliez-ça, la meilleure solution était en fait de refaire un nouveau fichier xls

[Heureux-oli]

C'est cool, tu fais les questions et les réponses.