Discussion :

[pgz]

Bonjour.

Si je crée un classeur et lui ajoute une feuille de travail avec ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim xlApp As Excel.Application
Dim oWbk As Excel.Workbook
 
Set xlApp = New Excel.Application
xlApp.Visible = True
 
Set oWbk = xlApp.Workbooks.Add
oWbk.Worksheets.Add , oWbk.Worksheets(oWbk.Worksheets.Count), 1, xlWorksheet
 
Set xlApp = Nothing
Set oWbk = Nothing

la nouvelle feuille se place bien ou je veux : en dernière position.
Maintenant si je fais la même chose, mais en ajoutant une feuille graphique

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim xlApp As Excel.Application
Dim oWbk As Excel.Workbook
 
Set xlApp = New Excel.Application
xlApp.Visible = True
 
Set oWbk = xlApp.Workbooks.Add
oWbk.Sheets.Add , oWbk.Sheets(oWbk.Sheets.Count), 1, xlChart
 
Set xlApp = Nothing
Set oWbk = Nothing

Elle s'ajoute en avant dernière position

Je cherche l'erreur. Merci d'avance pour vos lumières.

Cordialement,

PGZ

[helas]

Bonjour,
peut être plutôt

Code :

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

1
2
 
ActiveWorkbook.Charts.Add After:=Worksheets(Worksheets.Count)

[PPz78]

Bonsoir,

Avec un code légèrement différent :

Code :

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

1
2
3
4
5
6
7
Sub addChart()
    ActiveWorkbook.Charts.Add after:=Worksheets(Worksheets.Count)
 
End Sub
Sub addSheet()
    ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
End Sub

J'obtiens la même chose, il doit y avoir un bug, Nbug=Nbug+1 :+))

PPz

[pgz]

Bonsoir.

Le code d'helas donne le même résultat, la feuille graphique est ajoutée en avant dernière position.
Les codes de PPz78 agissent comme les miens : la feuille de travail s'ajoute en dernier, mais la feuille graphique en avant dernier.

Ca sent effectivement le bug.

A moins que quelqu'un est une explication?

PGZ

[helas]

Ca bugge effectivement
une solution de secours est de déplacer le graphe

Code :

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

1
2
3
 
ActiveWorkbook.Charts.Add
Charts(Charts(Charts.Count).Name).Move After:=Worksheets(Worksheets.Count)

sous 2007, cela fonctionne

[patricktoulon]

bonjour


situ ajoute ta sheets graffique dans la meme macro que celle de l autre sheets


c'est normal l'utilisation de sheets.count me semble de rigueur et a chaque fois

[pgz]

Bonjour,

bonjour


situ ajoute ta sheets graffique dans la meme macro que celle de l autre sheets


c'est normal l'utilisation de sheets.count me semble de rigueur et a chaque fois

Je n'ai pas compris le message.

Cordialement,

PGZ