demande d'aide concernant un export et de la gestion de fichiers

Calade

Bonjour,

' rstRecordset étant ton recordset contenant les données à transférer sur ta feuille Excel
' Le transfert des données ne copiant pas le nom des colonnes, il faut d'abord récupérer celui-ci

 dim X as integer
 dim lngNewRows as long

        For X = 0 To rstRecordset.Fields.Count - 1
'Le nom de celles-ci seraont en A1 sur ta feuille
         ActiveSheet.Range(Chr$(65 + X) & "1").Select
           ActiveCell = rstRecordset.Fields(X).Name
        Next

' On se positionne en A2 juste sous la ligne des noms de colonnes et on copie le Recordset d'un seul coup
       ActiveSheet.Range("A2").Select
' On se positionne sur le 1er enregistrement du recordset par précaution                     
 rstRecordset.MoveFirst
' et on peuple ta feuille Excel
       lngNewRows = ActiveCell.CopyFromRecordset(rstRecordset)
' Ici lngNewRows contiendra le nombre d'enregistrements copiés
' c'est identique à rstRecordset.Recordcount

Evidemment la copie sera brute de décoffrage, il te faudra donc esthétiser tout ça sous Excel et définir aussi le format éventuel des cellules. Tu n'auras besoin de le faire qu'une seule fois, si tu réexécutes le ActiveCell.CopyFromRecordset(rstRecordset)
la mise en forme sera préservée.

   N'hésites pas à revenir si tu as d'autres questions.

Calade

Calade