Discussion :

[pschmidtke]

Bonjour j'ai le code suivant qui ouvre un nouveau classeur excel 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 ?

[pschmidtke]

j'ai oublié de préciser quelque chose. Le premier classeur ouvert est visible, le nouveau n'est pas visible lors sa création et sera rendu visible en fin de création...est-ce que l'invisibilité peut jouer sur la fonction activate quand un classeur visible existe?

[Ania]

j'avais aussi à gérer différents classeurs par le code

et la méthode la plus simple que j'ai trouvée est de créer 2 variables
une pour chaque et ainsi tu as juste à utiliser les variables.

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim MonClasseur1 As Workbook  
Dim MonClasseur2 As Workbook 
 
'Avant la création du nouveau classeur
Set MonClasseur1 = ActiveWorkbook
 
'Apres la création du nouveau classeur
Set MonClasseur2 = ActiveWorkbook

peut etre ca pourra t'aider

[pschmidtke]

le problème c'est que ce ne sont pas toujours forcément deux classeurs, l'utilisateur peut avoir plusieurs classeurs ouvert lors de l'extraction vers Excel et je ne peux donc pas me baser sur deux variables...

[Ania]

peut etre peux tu utiliser un tableau de classeur à dimension variable

Code :

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

Dim MesClasseurs() as Workbook

[pschmidtke]

non car j'ai besoin de la fonction activate et de la variable ActiveWorkbook et ActiveSheet, car sinon chez moi la fonction PivotCaches ne marche pas (je ne sais pas pourquoi d'ailleurs), car j'essaie avec ActiveWorkbook.PivotCaches... ça marche, quand j'essaie avec xlBook.PivotCaches il me donne une erreur (résoudre ce problème pourrait aussi résoudre l'autre

[Ania]

dans ce cas si tu utilises le tableau de classur

Code :

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

1
2
MesClasseurs(1).Activate
ActiveWorkbook.PivotCaches

Est-ce que ca t'aide ??

[Ania]

sinon peux nous donner ton message d'erreur

[Edit...]
En supprimant une ligne (en gras) de ton code ca marche correctement car en fait tu ne peut pas ouvrir deux fois Excel

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

Et comme ca fonctionne dans le MsgBox j'ai bien Feuil5

[pschmidtke]

super c'était effectivement l'ouverture répétée d'Excel Merci bcp en tout cas.

Pour info, maintenant je teste de la façon suivant si excel est déjà ouvert et si ce n'est pas le cas je l'ouvre :

Code :

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

1
2
3
4
5
 
Set xlApp = GetObject(, "Excel.Application")
If xlApp Is Nothing Then
                Set xlApp = New Excel.Application
End If

[pschmidtke]

ahh, j'ai mis l'affaire trop tôt comme étant résolu

J'ai un problème avec le GetObject, car si je mets ça autour du Set New Application il me sort des résultats tout bizarres.

Comment je peux effectivement récupérer l'objet Excel et s'il n'existe pas en créer un nouveau?