VBA création d'un classeur dans une destination choisie

Bonsoir à vous,

question:lorsque je créé un classeur en vba, la destination est choisie ( ds mes documents) je voudrais modifier cette destination...Merci

Code:

---

1 2 3 4 5 6

Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook   Set xlApp = CreateObject("Excel.Application")   Set xlBook = xlApp.Workbooks.Add

---

Que devrais je rajouter??

Bonjour Mikeactuaire ;)

Tu peux changer le répertoire par défaut d'Excel

Code:

---

Application.DefaultFilePath = "C:\"

---

Essaye comme ça

Code:

---

1 2 3 4 5 6

Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook   Application.DefaultFilePath = "C:\" Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add

---

A+

Excellent Merci Bruno.

Dernière chose, lorsque je souhaite continuer le code avec ceci:

Code:

---

1 2	xlApp.Visible = True xlApp.Quit

---

Ceci me permets de fermer ces classeurs nouvellement créer mais le soucis c'est qu'avant la fermeture, on me demande si je souhaite enregistrer les modifications apportées au classeur.
Ceci ne serais pas trop un problème si je ne devais pas créer plus de 250 nouveaux classeurs....

Merci pour votre temps.

Re,

Il ne faut pas quitter directement,
le mieux est d'enregistrer le classeur puis de quitter

Code:

---

1 2 3 4 5 6 7

Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Application.DefaultFilePath = "C:\" Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add xlbook.Close SaveChanges:=True xlApp.quit

---

Je ne sais pas ce que tu souhaites faire exactement,
donc je te mets le code tel quel ;)

A+

Merci Bruno, ça m'a beaucoups aidé.
A+