Discussion :

[bossLINDROS]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jean-Philippe André]

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

[bossLINDROS]

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

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 ^^

[Jean-Philippe André]

pour en créer un, regarde

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bossLINDROS]

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



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)

[Jean-Philippe André]

En continuant dans le même raisonnement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bossLINDROS]

ok merci bien pour toutes ces infos

[bossLINDROS]

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

un petit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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