Discussion :

[pschmidtke]

Bonjour j'ai le code suivant qui ouvre un nouveau classeur excel à partir d'access 2000 et créé une feuille etc. Ca marche très bien la première fois, mais si j'exécute la deuxième fois j'espérais qu'il allait me créer et travailler sur le nouveau classeur, mais il y a un problème avec ActiveWorkbook et ActiveSheet car ça pointe toujours vers l'ancien classeur. J'ai essayé avec Activate, mais ça ne change rien.

Voici un extrait de mon code (j'ai raccourci le tout):

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
 
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    Dim pt As Excel.PivotTable
    Dim db As DAO.Database, Rst As DAO.Recordset, fld As DAO.Field
 
    Set xlApp = New Excel.Application
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets.Add
 
    xlBook.Sheets.Add
    xlBook.Activate
 
    xlBook.Sheets(1).Activate
    Set xlSheet = ActiveSheet
    MsgBox (xlSheet.Name)

si j'imprime xlSheet.Name il affiche le nom de la feuille du premier classeur et non de la feuille du classeur nouvellement créé.

J'ai cherché dans la FAC sans trouver mon bonheur. Est-ce que quelqu'un a aussi eu ce problème ?

[Arkham46]

Bjr,

Banissez l'utilisation des Activate en automation.
(c'est plus lent, plus complexe à programmer, on ne sait jamais ce qui est réellement activé,...)

Code :

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

1
2
3
4
5
6
Set xlApp = New Excel.Application
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets.Add
    ....
    Set xlSheet = xlBook.Sheets.Add
    MsgBox (xlSheet.Name)

edit : tiens j'avais pas vu, y a deux ajouts de feuille?

[Meduse]

Je dis peut-être une connerie, mais ça pourrait aider d'enregistrer le classeur :

Essaie de mettre après Set xlSheet... :

Code :

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

xlBook.SaveAs  chemin

Si ça ne marche pas, on peut essayer de fermer le classeur et le réouvrir. Un peu pataud, mais bon...

Code :

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

1
2
3
4
xlBook.SaveAs  chemin
xlBook.Close
xlapp.Workbooks.Open chemin
Set xlBook = xlapp.ActiveWorkbook