Discussion :

[salivie]

voila je vx creer un classeur j'ai réussi a faire ce code mais le classeur creer est en lecture seul.

Code :

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

1
2
3
4
5
6
Dim XLApp As New Excel.Application
Dim XLBook As Workbook
 
set XLBook = XLApp.Workbooks.Add
XLBook.SaveAs "G:\ArcGis\menu.xls"
Workbooks.Open "G:\ArcGis\menu.xls"

[mercatog]

Avec

Code :

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

Workbooks.Add

c'est déjà ouvert
Je ferai plutôt ceci (créé et ouvert à partir d'un autre classeur

Code :

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

1
2
3
4
5
6
7
8
Dim XLBook As Workbook
Workbooks.Add(2)   'Avec seulement 2 feuilles
Set XLBook = ActiveWorkbook
XLBook.SaveAs Filename:="G:\ArcGis\menu.xls"
'....ton code
XLBook.Save
XLBook.Close
Set XLBook = Nothing

Edit: En respectant ta notation