Discussion :

[maxtin]

Bonjour, jai un petit probleme avec mon code....lorsque jecris dans un nouveau document Excel et que jai deja un document Excel ouvert....mon code utilise le meme fichier et lui ajoute un workbook. Jaimerais que mon code crée un autre document séparé et indépendant de celui/ceux ouvert(s).

voici ma structure de code:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
 
 
Set xlBook = xlApp.Workbooks.Add
...
 
Set xlBook = Nothing
Set xlApp = Nothing

merci

[ouskel'n'or]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Test()
Dim xlApp As New Excel.Application
Dim xlBook As Workbook
Dim xlWkst As Worksheet
     Set xlBook = xlApp.Workbooks.Add
     Set xlWst = xlBook.Worksheets("feuil1")
     xlApp.Visible = True 'juste pour tester
     xlBook.Activate 'Idem
     xlWst.Cells(1, 1) = "Ça gaze !"
     xlWst.Cells(2, 1) = "Attendre que ça se ferme"
     Application.Wait (Now + TimeValue("0:00:03"))
 
     xlBook.Close False
     xlApp.Quit
     Set xlBook = Nothing
     Set xlApp = Nothing
End Sub