Création nouveau fichier excel depuis vba

Bonjour,

voilà je voudrais savoir comment faire pour créer un nouveau fichier excel depuis vba pour en suite pouvoir m'en servir.

Car je sais comment me servir d'un fichier déjà existant (mais il faut qu'il est déjà une feuille dedans souvent blanche qui ne sert a rien) et y mettre une nouvelle feuille.

Code:

---

1 2	Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("C:\test_modif.xls")

---

Je sais comment exporter automatiquement une requête via

Code:

---

DoCmd.OutputTo acOutputQuery, "nom_de_la_requete"

---

qui a pour avantage de créer un nouveau fichier après lui avoir dit le type et le nom



Seulement j'ai besoin de faire des tableaux plus complexe qu'une simple requête et je voudrais créer un nouveau fichier a chaque fois.

Donc soit j'ouvre un une boite de dialogue qui demande l'endroit et le nom à l'utilisateur, soit je fais la création tjs au meme endroit avec un nom automatique

Merci bien

Bonjour,
pour le pilotage d'Excel, je te recommande la FAQ
http://access.developpez.com/faq/?page=Excel#PilotExcel

si toutefois, tu cherches d'autres moyens d'intégrer tes données dans Excel,
des sources existent aussi :
http://access.developpez.com/sources...tRapportsExcel

Tiens nous au courant de tes avancées :)

merci pour les 2 liens mais aucun des 2 n'a d'infos sur ma demande (j'avais déjà regarder ^^)

a chaque fois on montre comment se servir d'un fichier existant.

Mais pas comment en faire un nouveau.
Apres ce n'est peut etre pas possible puisqu'il y a pas d'exemple :?

Citation:

---

Tiens nous au courant de tes avancées

---

ba en fait tout le reste de monde code marche mais en utilisant un fichier excel existant. Ce qui veut dire que le jour ou le fichier n'existe plus ba y a un hic ^^

pour en créer un, regarde

Code:

---

1 2 3

Set xlBook = xlApp.Workbooks.Add 'puis xlBook.SaveAs "nomdefichier"

---

rho c'est petit
en gros y a une sorte de fichier tampon qui est créer et le vrai fichier n'est fait qu'a la sauvegarde ^^

Donc en gros je cole ca au debut de mon code et juste apres j'utilise le fichier que je viens juste de faire.

bon par contre je me retrouve avec 3 feuilles vide ^^
Reste plus qu'a les supprimer a la fin avant la sauvegarde a la limite


merci bien :king:



ps : s'il y a une facon de faire un nouveau fichier, une nouvelle feuille (unique donc) et de travailler dessus je suis preneur d'un petit exemple.



Sinon comment on appel la boite de dialogue de Windows qui permet de choisir un emplacement et un nom ? Que je face une recherche sur comment m'en servir pour laisser le choix a l'utilisateur de l'endroit et le nom (comme pour les transfert automatique)

En continuant dans le même raisonnement :

Code:

---

1 2 3 4 5

Dim XLApp As New Excel.Application Dim XLBook As Workbook Dim XLSheet As Worksheet Set XLBook = XLApp.Workbooks.Add Set XLSheet = XLBook.Worksheets.Add

---

les propriétés Name t'aideront pour la suite aussi.

Pour les boîtes de dialogue :
http://access.developpez.com/faq/?pa...#AffBoitDialog

ok merci bien pour toutes ces infos

bon même avec cette méthode les 3 feuilles vides sont présente.

un petit

Code:

---

1 2 3 4 5

Set xlBook = xlApp.Workbooks.Open(fichier) xlBook.Sheets("Feuil1").Delete xlBook.Sheets("Feuil2").Delete xlBook.Sheets("Feuil3").Delete xlBook.Save

---

après le SaveAs et hop plus de feuille 8-)