Discussion :

[mikeactuaire]

Bonsoir à vous,

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

Code :

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

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

[Invité]

Bonjour Mikeactuaire

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

Code :

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

Application.DefaultFilePath = "C:\"

Essaye comme ça

Code :

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

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+

[mikeactuaire]

Excellent Merci Bruno.

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

Code :

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

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.

[Invité]

Re,

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

Code :

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

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+

[mikeactuaire]

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