Discussion :

[Roddy8]

Bonjours,

je n'arrive pas en VBA à agrandir excel et qu'il prenne une taille supérieure au premier écran.

Ma macro prend la taille à l'ouverture du classeur, l'enregistre, le redimensionne à la taille voulu, et le referme à l'ancienne taille.

Merci aux personnes qui font vivre ce forum, et qui apportent des solutions aux personnes en difficulté....

[erfindel]

Essaye sur l'open

Code :

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

"Application.DisplayFullScreen=False".

[Roddy8]

Merci erfindel pour ta reponse mais ca ne marche pas, excel lui seul ne peut se dimensionner d'une taille plus grande que le premier ecran (peut être que c'est possible mais je ne sais pas comment????)

J'ai trouvé une "usine à gaz", j'ai utilisé AutoIt avec un petit script;
on premier lancement il demande de mettre excel à la taille voulu et après il lance excel à cette taille.

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
ShellExecute(@ScriptDir & "\INDEX.xls","","","",@SW_DISABLE)
	If FileExists(@ScriptDir & "\1.txt") Then
	$file = FileOpen("1.txt", 0)
	   If $file = -1 Then
	   MsgBox(0, "Error", "Unable to open file.")
	   Exit
	   EndIf
	WinMove("Microsoft Excel", "",FileReadLine($file,1),FileReadLine($file,2),FileReadLine($file,3),FileReadLine($file,4))
	FileClose($file)							WinSetState("Microsoft Excel","",@SW_RESTORE)
	Else						WinSetState("Microsoft Excel","",@SW_SHOWNORMAL)
	MsgBox(262144, "Configuration d'Excel", "Validez après avoir dimensionné Excel")
	$file = FileOpen("1.txt", 1)
	   If $file = -1 Then
	   MsgBox(0, "Error", "Unable to open file.")
	   Exit
	   EndIf
	$size = WinGetPos("Microsoft Excel")
	FileWrite($file, $size[0] & @CRLF)
	FileWrite($file, $size[1] & @CRLF)
	FileWrite($file, $size[2] & @CRLF)
	FileWrite($file, $size[3] & @CRLF)
	FileClose($file)
            EndIf

Dans excel une macro prend la taille de l'application ou lancement donc avant la modification l'enregistre et l'applique à la fermeture d'excel.

Ainsi je peux utiliser excel sur un écran étendue