Salut,
Sous VB6 et dans une routine qui me permet d' envoyer des
données vers un classeur Excel, j' ai ceci:

Sub ENVOYER()

'OUVRIR LA TABLE

    Dim rs As Recordset
    Set rs = pDB.OpenRecordset("INSCRIPTIONS", dbOpenDynaset)

'- Ouvrir un fichier Excel
'Déclaration des variables
    Dim appExcel As Excel.Application 'Application Excel
    Dim wbExcel As Excel.Workbook 'Classeur Excel
    Dim wsExcel As Excel.Worksheet 'Feuille Excel

'Ouverture de l'application
    Set appExcel = CreateObject("Excel.Application")
  'Ouverture d'un fichier Excel
    Set wbExcel = appExcel.Workbooks.Open(App.Path & "\NXLS.xls")

rs.MoveFirst
Dim i As Integer, y As Integer, xPage As Integer

  y = 0
   xPage = 1
  'wsExcel correspond à la première feuille du fichier
  Set wsExcel = wbExcel.Worksheets(xPage)
 
  With wsExcel
     .Activate
    Do While Not rs.EOF
            'LIRE L' ENREGISTREMENT
            'ET
            'ECRIRE DANS EXCEL
            y = y + 1
    
           'pour avoir 12 lignes par page
             If y = 12 Then  
               If xPage = wbExcel.Worksheets.Count Then
                 'AJOUTER UNE FEUILLE
                  wbExcel.Worksheets.Add , , xPage, 1
               End If
                 xPage = xPage + 1
                
                 'ACTIVER LA DERNIERE PAGE
                 Set wsExcel = wbExcel.Worksheets(xPage)
                .Activate
                y = 1
             End If
           
            .Cells(y, 1) = rs!Nom
            .Cells(y, 2) = rs!Prenom
            .Cells(y, 3) = rs!Ne_le
             .Cells(y, 3) = rs!ArNom
             wsExcel.Cells(y, 3) = rs!ArPrenom
         
            'IMPRIMER
            '.PrintOut
           
            'SUIVANT
            rs.MoveNext
    Loop
MsgBox "TERMINE"

'AFFICHER EXCEL
     wbExcel.Windows.Application.Visible = True

'FERMER EXCEL
   ' .Close False
 
 End With

'
'...DETRUIRE LES OBJETS
 Set appExcel = Nothing
 Set wbExcel = Nothing
 Set wsExcel = Nothing
  MsgBox " Objet fermé"
End Sub

Je sais qu' au niveau code, c' est un peu juste,
mais c' est tout ce que j' ai pu faire :-).
Et à vrai dire le problème se situe ailleurs.
En effet, lorsque j' ajoute une nouvelle feuille,
celle ci se retrouve à gauche de celle qui était la dernière.
Quelqu' un peut-il m' aider à faire en sorte que la
dernière ajoutée soit toujours à droite.

Merci.

NB: Vous m' excuserez si j' ai mal choisi le thème.

 				 						 								
... Y'en a même qui disent qu'ils l'ont vu voler. 				 		

^^
déplacé de VBA vers VB6
(j'crois que c'est la première fois, pour moi en tout cas)

je me doutais bien que je suis trompé de rubrique.

En tout cas, problème résolu en ce qui concerne
l' ordre des sheets.
Un argument mal placé , comme ma question :)
Il fallait mettre
'AJOUTER UNE FEUILLE
   wbExcel.Worksheets.Add , xPage, 1

xPage en deuxième position .Ce qui correspond à After.
Reste l' optimisation du code.
Je compte sur les Eperts.Ils se reconnaiteront.
Merci

... Y'en a même qui disent qu'ils l'ont vu voler.

avec excel..., pas dans le lot

peut-être un .Application.ScreenUpdating = False sous le WITH, et True en sortie

ton .Cells(y, 3) prend 3 valeurs, peut-être ne garder que la 3e (à moins que çà soit juste pour des tests...)

un petit rs.close et set rs = nothing en sortie

sinon à première vue çà semble correct

et si on doit passer par le .activate, tu peux supprimer le 1er et descendre le 2e de 2 lignes

...avec excel..., pas dans le lot
On est au moins deux


...Efectivement
 .Cells(y, 1) = rs!Nom
 .Cells(y, 2) = rs!Prenom
 .Cells(y, 3) = rs!Ne_le
 .Cells(y, 4) = rs!ArNom
 .Cells(y, 5) = rs!ArPrenom

j' ai fait un copier/coller sur la 3 ligne
et j' ai omis de changer l' index .

...un petit rs.close et set rs = nothing en sortie
Accordé !

Peut être aussi déplacer 
'IMPRIMER
  '.PrintOut

vers
If y = 12 Then  
'>> en pensant bien sûr à l' activer

Pour le
peut-être un .Application.ScreenUpdating = False sous le WITH, et True en sortie

Peut être..

J' ai pensé à

'AFFICHER EXCEL
     wbExcel.Windows.Application.Visible = True

pour ouvrir directement Excel et constater les modifs.

En tout cas compte tenu de tes remarques, c' est un bn début

... Y'en a même qui disent qu'ils l'ont vu voler.

Passer le problème de l' ordre, je viens de constater
que seule la première feuille est remplie.
Même en déplaçant le .Activate , comme suggèré.
T' as bien mis le doigt dessus.. Reste à trouver ou le caser.

 

 				 						 								
... Y'en a même qui disent qu'ils l'ont vu voler. 				 		

Salut,

moi je ferai bien un truc comme ça :

les modif en bleu et rouge

  With wbExcel
     .Activate
    Do While Not rs.EOF
            'LIRE L' ENREGISTREMENT
            'ET
            'ECRIRE DANS EXCEL
            y = y + 1
    
           'pour avoir 12 lignes par page
             If y = 12 Then  
               If xPage = .Worksheets.Count Then
                 'AJOUTER UNE FEUILLE
                  .Worksheets.Add , xPage, 1
               End If
                 xPage = xPage + 1
                
                 'ACTIVER LA DERNIERE PAGE
                 Set wsExcel = wbExcel.Worksheets(xPage).Activate <--- a suprimer
                y = 1
             End If
            with .Worksheets(.Worksheets.Count) 'ici tu sera toujours certain de travailler sur la derniere
                .Cells(y, 1) = rs!Nom
                .Cells(y, 2) = rs!Prenom
                .Cells(y, 3) = rs!Ne_le
                .Cells(y, 4) = rs!ArNom
                .Cells(y, 5) = rs!ArPrenom
             End With
         
            'IMPRIMER
            '.PrintOut
           
            'SUIVANT
            rs.MoveNext
    Loop
MsgBox "TERMINE"

'AFFICHER EXCEL
     wbExcel.Windows.Application.Visible = True

'FERMER EXCEL
   ' .Close False
 
 End With

Salut bigfish_levrai,

Je ne sais pas pourquoi mais avec ce que tu 
préconises, les données se retrouvent tous à 
la dernière page (24 pour être précis)
Alors ne prend t-il pas en compte que les 
derniers ?
J' ai rajouter un compteur, et 
.Cells(y,7)=enr

et enr prend les valeurs des 12 derniers.
Les autres pages sont vides.			

... Y'en a même qui disent qu'ils l'ont vu voler.

Comprend pas !!!
La condition if y=12 oblige excel ecrire sur douze ligne avant de creer une page... comment peut il creer les page ecrire apres ?!?!?

Ah oui ! compris

             If y = 12 Then   'si y = 12 on doit changer de page
               If xPage = .Worksheets.Count Then 'si on est a la derniere page deja existante
                 'AJOUTER UNE FEUILLE
                  .Worksheets.Add , xPage, 1
               Else 'si un certain nombre de page existe deja on passe a la suivante
                   xPage = xPage + 1
               End If
                y = 1
             End If
            with .Worksheets(xPage)
                .Cells(y, 1).Value = rs!Nom
                .Cells(y, 2).Value = rs!Prenom
                .Cells(y, 3).Value = rs!Ne_le
                .Cells(y, 4).Value = rs!ArNom
                .Cells(y, 5).Value = rs!ArPrenom
             End With

cela devrait aller mieux... je doit dire que j'ai zapper le cas des feuilles deja existantes