[AC-2007] Export Excel doubler un enregistrement [Résolu]

[Marcopololo]

J'ai une requète qui me transfert mes données sur Excel.
Comment puis je faire si je veux quand le nombre de pièces est deux (champnbre) écrire deux lignes dans mon fichier excel ?

J'utilise pour le transfert la fonction suivante :

Code :

Set rec = CurrentDb.OpenRecordset("Export Excel liste", dbOpenSnapshot)

Merci d'avance

Marcopololo

[helas]

Bonjour,
Boucler sur le nombre de pieces

Code :

1
2
3
4
5
6
7
8
 
Do Until rec.EOF
 ....
 For n = 1 To rec!NbPieces
   ....
 Next n
 ....
Loop

[Marcopololo]

Merci hélas, mais cela ne veut pas fonctionner.

Voici mon code, il me semble qu'il est pourtant placé au bon endroit avec la variable N déclarée en As Long.

Code :

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
 
Set rec = CurrentDb.OpenRecordset("Requete liste", dbOpenSnapshot)
 
Do While Not rec.EOF
   For N = 1 To rec!nombre                         'Permet de dupliquer les enregistrements dont le champ nombre est supérieur à 1
          For J = 0 To rec.Fields.Count - 1
 
            '  .Fields(Index).Type renvoie le type du champ
            '   si c'est un Texte (dbText) nous insérons "'" pour
            '   qu'il soit reconnu par Excel comme du Texte
            If rec.Fields(J).Type = dbText Then
                xlSheet1.Cells(I, J + 1) = "'" & rec.Fields(J)
            Else
                xlSheet1.Cells(I, J + 1) = rec.Fields(J)
            End If
             ' Enrichissements de format aux cellules
        With xlSheet1.Cells(I, J + 1)
            .Font.Size = 12
            .Borders(xlEdgeBottom).LineStyle = xlContinuous
            .Borders(xlEdgeBottom).Weight = xlThin
            .Borders(xlEdgeBottom).ColorIndex = xlAutomatic
            .Borders(xlEdgeRight).LineStyle = xlContinuous
            .Borders(xlEdgeRight).Weight = xlThin
            .Borders(xlEdgeRight).ColorIndex = xlAutomatic
            .HorizontalAlignment = xlCenter
        End With
 
        Next J
        I = I + 1
        rec.MoveNext
  Next N
 
    Loop

J'ai mis un msgbox, et ma boucle se fait bien (et le champ nombre est bien pris en compte) mais je ne duplique pas les enregistrements supérieurs à 1. Peut être parce que j'utilise déjà do loop pour enregistrer les enregistrements globaux.

Es ce que l'on peut intercaler plusieurs fonctions do loop ?
Je vais chercher de mon côté.

Merci d'avance

MArcopololo

[Marcopololo]

Voila j'ai trouvé, mon next N était mal placé.

Merci à toi helas

Code :

1
2
3
 I = I + 1
    Next N
        rec.MoveNext