Salut à tousse (pas si fort   )
 
J'ai un p'tit recordset avec tout plein de données dedans.
Sur un évenement click d'un CommandButton, je veux exporter le contenu du recordset dans une feuille excel.
 
J'ai pas la recette.
Z'avez une idée ?
 
Merci
 
Laurent

Bonjour,
C'est ça qu'il te faut ?
 
      ' Création du fichier d'erreurs
      Chemin = App.Path & "\MonFichier.XLS"
      Set fso = CreateObject("Scripting.FileSystemObject" )
      Set a = fso.CreateTextFile(Chemin, True)
      ' Titres des colonnes
      ' chr (34) remplace les guillements à la suite de l'instruction
      a.writeLine "C;Y1;X1;K" & Chr(34) & ("Nom" ) & Chr(34)
      a.writeLine "C;Y1;X2;K" & Chr(34) & ("Prenom" ) & Chr(34)
      Ligne = 2
      Do While Not conn.EOF
               a.writeLine "C;Y" & Ligne & ";X1;K" & Chr(34) & (conn("NOM" )) & Chr(34)
               a.writeLine "C;Y" & Ligne & ";X2;K" & Chr(34) & (conn("PRENOM" )) & Chr(34)
               Ligne = Ligne + 1
            End If
            conn.MoveNext
      Loop
      a.writeLine "E" ' Fin du codage excel
      a.Close

Bah...
ça y ressemble bien.
 
comment définis tu les variables fso et a ?
 
 

Re,
C'est une instance de l'object FileSystemObject :
 
      Set fso = CreateObject("Scripting.FileSystemObject" )  
      Set a = fso.CreateTextFile(Chemin, True)

OK...
Dans les grandes lignes, c'est ce qu'il me faut.
Je vais broder un peu, et je devrais m'en sortir.
 
Merci.
 
Laurent

pc75, ton script correspond plus à de l'export en CSV

Re,
 
Je t'assure qu'il fonctionne.

Une autre solution est d'écrire un fichier .xls
 
Séparer ensuite chaque colone par une tabulation (vbtab) et ça fonctionne excell ne dit rien et ouvre correctement le fichier !
 
Voili voilou.

Re,
Il manque une ligne de code (avant l'écriture du titre des colonnes) dans ce que l'ai posté plus haut
 
      ' Titres des colonnes
      ' chr (34) remplace les guillements à la suite de l'instruction
      a.writeLine "ID;PWXL;N;E" ' Début du codage excel