Deplacer une feuille excel vers un autre classeur

Question

VOila dc je traville sous access, j ai 10 requete, j exporte ces requetes dans des fichiers excels. Je souhaite pouvoir copier chacune des feuilles provenant des requetes ds un seul fichier excel, ou alors savoir si il est possible d exporter directement mes 10 requetes dans 10 feuilles differentes mais dans le meme classeur.

Je remercie tous ceux qui se pencheront sur mon probleme

cs_jeannot45 · Answer

Bonjour,

Je suis penché sur le même problème actuellement.
J'ai trouvé quelque chose mais j'ai un Bug! 

Je te joins le code peut-être que tu verras le souci :

Dim MaBd As Database, MonJeu As Recordset

Dim ObjetXls As Excel.Application, ObjetClasseur As Workbook, ObjetFeuille As Worksheet

Set MaBd =   CurrentDb
SQL = "Select * From T_Adherent"
  à l'init de la variable MonJeu Access me dit  Incompatibilité de Type   
Set MonJeu   = MaBd.OpenRecordset(SQL)

Set ObjetXls = CreateObject("excel.application")
Set ObjetClasseur = ObjetXls.Workbooks.Add
Set ObjetFeuille = ObjetClasseur.Worksheets.Add

ObjetFeuille.Range("A1").CopyFromRecordset MonJeu
ObjetXls.Visible = True

Si tu as une idée ... 

Jeannot

Deplacer une feuille excel vers un autre classeur

1 réponse

Discussions similaires