Discussion :

[itwoo]

Bonjour,

Tout d'abord un grand MERCI à tous pour votre aide qui a toujours été forte utile

Il y a peu de temps j'ai découvert (merci Eriic!!!) qu'il était possible possible d'ouvrir une 2° session excel ce qui peut faciliter la tâche...
Perso je fais des essais en ce moment et le code suivant ne performe pas du tout de la même façon suivant les versions excel et windows mais surtout attention de ne pas bloquer votre ordi en testant...
Cette discussion pour essayer de résoudre des questions svp:

Pour le moment je bute sur la taille de la feuille graphique dans le classeur de la 2° session Excel car autant les feuilles de calcul excel classique sont de taille 100% autant le graphique lui s'affiche à 115% et pas moyen de le faire revenir à 100% car la fenêtre active n'est pas celle du graphique...pourtant Activewindow.zoom existe, ou même pagesetup.zoom...
voici le code:

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Dim Excel2 As Object
Dim wb2 As Workbook
 
Sub Recap() 'pour tester la création d'une 2° session Excel
Dim sh2 As Worksheet
Dim graph2 As Chart 
 
elmnt = "test_graph1"
Set Excel2 = CreateObject("Excel.Application")
Excel2.Visible = True 
reper1 = ThisWorkbook.Path
reper1 = reper1 & "\test_excel"
On Error Resume Next
MkDir reper1
Err.Clear
On Error GoTo 0
flnc = reper1 & "\" & elmnt & ".xls"
 
Set wb2 = Excel2.Workbooks.Add
Excel2.Application.DisplayAlerts = False
Excel2.ActiveWorkbook.SaveAs Filename:=flnc, FileFormat:=xlExcel8, CreateBackup:=False
Excel2.Application.DisplayAlerts = True
 
wb2.Sheets.Add(Before:=wb2.Sheets("Feuil1")).Name = "Test"
Set sh2 = wb2.Sheets("Test")
With sh2
        .Cells(1, 2).Value = "Nombre"
        .Cells(1, 3).Value = "Quantité"
        For i = 0 To 20
        .Cells(i + 2, 2).Value = i
        .Cells(i + 2, 3).Value = 2 * i
        Next
End With
sh2.Cells(1, "M").Select
Set graph2 = wb2.Charts.Add 'la feuille graphique est à 115%!!!
wb2.ActiveChart.ChartType = xlXYScatterLines
wb2.ActiveChart.Name = "Graph1"
wb2.ActiveChart.SeriesCollection.NewSeries
wb2.ActiveChart.SeriesCollection(1).Formula = _
        "=SERIES('Test'!C1,'Test'!B2:B" & 22 & " ,'Test'!C2:c" & 22 & ",1)"
graph2.Activate
ActiveWindow.Zoom = 100 'ne réduit pas la taille de la feuille graphique toujours zoomée à 115%
'wb2.ActiveChart.Zoom = 100 'ne marche pas
graph2.PageSetup.Zoom = 100 'ne réduit pas la taille de la feuille graphique toujours zoomée à 115%
 
wb2.Save
wb2.Close
 
Excel2.Application.DisplayAlerts = False
Excel2.Visible = False 
Set Excel2 = Nothing
End Sub

[patricktoulon]

re
je sais pas si on peut piloter le zoom d'un sheets graphique en vba etant donné que cela se fait automatiquement en fonction de la fenetre application contrairement a un sheets classique

a ne pas confondre avec un graph dans un sheets
ce que je soupconne etant donné ta Selection en colonne "M"

[itwoo]

Salut,

En fait ce wb2 fait un peu / beaucoup ce qu’il veut pour le moment...
Le graphique s’ouvre parfois en 118% en 108% en 93%...et il y a plein d’autres trucs bizarre qui se produisent...

En 1° j’aimerais régler cette histoire de taille graphique et pour cela il faut que wb2 devienne le classeur actif (ce que je n’arrive pas à faire !!!) puis ensuite que la feuille graphique de wb2 devienne elle aussi active et la c’est gagné...

mais est il possible de rendre wb2 (le 2° workbook qui est lui sous excel2 ) actif???

[patricktoulon]

j'avoue que je pige pas ta question
quand tu ouvre une new cession d'excel avec un new workbook c'est lui qui est actif

[itwoo]

ben c'est ce que je croyais aussi mais non ce n'est pas le cas (enfin sur l'ordi qui veut bien marcher parce que l'autre refuse l'ouverture d'une 2° session excel: problème à voir plus tard)...il ne va quand même pas falloir utiliser une API pour simplement détecter ce wb2 et le rendre actif...

PS: fais bien attention à vba et excel en utilisant excel2 parce qu'ici j'ai le 1° et 2° ordi qui ont pris un shoot je crois que c’est parce que lors de la fermeture d’excel (la 1° session) il reste malgré tout la session Excel2 d’ouverte (tu la verras dans le gestionnaire de tâche ) et si tu rouvres un classeur excel et bien tu risques de travailler sous cette 2° session excel, et là je crois que ca a perturbé vba en mettant du désordre dans les DLL !!!donc termine le processus de la 2° session excel dans le gestionnaire de tâche (pour l’instant pas mieux comme idée)

tu peux tester le code et me dire le résultat chez toi stp:
pour info le nom du classeur sous excel pour faire le test est : excel2_test4

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Dim Excel2 As Object
Dim wb2 As Workbook
 
Sub Recap() 'pour tester la création d'une 2° session Excel
 
Dim sh2 As Worksheet
Dim graph2 As Chart
Dim test_AWbook  As Workbook
 
Sheets(1).Select
Cells.Clear
 
Set Excel2 = CreateObject("Excel.Application")
Excel2.Visible = True 'pour afficher Excel2 'attention si en mode sans échec il faut cliquer sur débogage puis F8
'ou F5 pour relancer
Set wb2 = Excel2.Workbooks.Add
MsgBox "Nom du classeur actif " & ActiveWindow.Caption 'probléme c'est ce classeur excel2_test4 qui est actif sous Excel et non wb2 sous excel2 !!!
MsgBox "Nom de la fenêtre active " & ActiveSheet.Name 'c'est Feuil1 de ce classeur qui est active
 
 
wb2.Sheets.Add(Before:=wb2.Sheets("Feuil1")).Name = "Test"
MsgBox "Nom du classeur actif " & ActiveWindow.Caption 'probléme c'est ce classeur excel2_test4 qui est actif sous Excel et non wb2 sous excel2 !!!
MsgBox "Nom de la fenêtre active " & ActiveSheet.Name 'c'est Feuil1 de ce classeur qui est active
 
Excel2.Application.DisplayAlerts = False
wb2.Close
Excel2.Application.DisplayAlerts = True
 
Excel2.Visible = False
Set Excel2 = Nothing
End Sub

[patricktoulon]

re
et oui comme je te l'ai dis il y a des chose que vba seul ne peut pas faire
activewindow te donne le classeur actif de l'instance de l'application qui pilote le fichier qui execute la macro
parti de la c'est choux blanc

pourquoi tu le fait pas dans la meme instance de excel ?
tu n'aura pas de soucis d'instance a gérer
et tu pourra piloter le zoom

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Dim wb2 As Workbook
 
Sub Recap() 'pour tester la création d'une 2° session Excel
Dim sh2 As Worksheet
Dim graph2 As Chart
 
elmnt = "test_graph1"
reper1 = ThisWorkbook.Path
reper1 = reper1 & "\test_excel"
On Error Resume Next
MkDir reper1
Err.Clear
On Error GoTo 0
flnc = reper1 & "\" & elmnt & ".xls"
Application.ScreenUpdating = False
Set wb2 = Workbooks.Add
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=flnc, FileFormat:=xlExcel8, CreateBackup:=False
Application.DisplayAlerts = True
 
wb2.Sheets.Add(Before:=wb2.Sheets("Feuil1")).Name = "Test"
Set sh2 = wb2.Sheets("Test")
With sh2
        .Cells(1, 2).Value = "Nombre"
        .Cells(1, 3).Value = "Quantité"
        For i = 0 To 20
        .Cells(i + 2, 2).Value = i
        .Cells(i + 2, 3).Value = 2 * i
        Next
End With
sh2.Cells(1, "M").Select
Set graph2 = wb2.Charts.Add 'la feuille graphique est à 115%!!!
wb2.ActiveChart.ChartType = xlXYScatterLines
wb2.ActiveChart.Name = "Graph1"
wb2.ActiveChart.SeriesCollection.NewSeries
wb2.ActiveChart.SeriesCollection(1).Formula = _
        "=SERIES('Test'!C1,'Test'!B2:B" & 22 & " ,'Test'!C2:c" & 22 & ",1)"
graph2.Activate
ActiveWindow.Zoom = 80 'ne réduit pas la taille de la feuille graphique toujours zoomée à 115%
'wb2.ActiveChart.Zoom = 100 'ne marche pas
graph2.PageSetup.Zoom = 80 'ne réduit pas la taille de la feuille graphique toujours zoomée à 115%
 
wb2.Save
wb2.Close
 
Application.DisplayAlerts = False
End Sub