Convertir la taille de l'affichage d'un fichier Xls sur un autre Ordi

Richard · 18 Septembre 2003

Bjr a tous,

J'ai tranfere un classeur qui a ete fait en 800 x 600 sur un ordi de bureau vers mon portable qui est en 1024. A part ajuster la taille feuille par feuille, existe il un moyen de convertir la totalité du classeur d'un seul coup.
Merci par avance

Vériland · 18 Septembre 2003

Bonsoir Richard et toi le Forum,

Essaye avec cette macro...

Option Explicit
' appel DLL...sans cela c'est pas possible
Declare Function GetSystemMetrics32 Lib "User32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Declare Function GetDesktopWindow Lib "User32" () As Long
Declare Function GetWindowRect Lib "User32" (ByVal WND As Long, rectangle As RECT) As Long
' déclaration des variables x y
Type RECT
x1 As Long
y1 As Long
x2 As Long
y2 As Long
End Type
' Vériland Septembre 2003
' http://www.excel-downloads.com/html/French/forum/messages/1_49863_49863.htm
Sub AdapteEcran()
Dim R As RECT
Dim WND As Long
Dim Val As Long
Dim Resolution As Variant
Dim Feuille As Variant
Dim Col As Variant
Dim Lig As Variant
' déclaration en boucle
WND = GetDesktopWindow()
Val = GetWindowRect(WND, R)
Col = (R.x2 - R.x1)
Lig = (R.y2 - R.y1)
' boucle sur feuille présentes
For Each Feuille In Sheets
Application.ScreenUpdating = False
With Feuille.Activate
Resolution = GetSystemMetrics32(0)
' on adapte le zoom selon résolution
ActiveWindow.Zoom = 100 * Col / Lig
End With
Next Feuille
Application.ScreenUpdating = True
' un p'tit message pour informer
' de la résolution écran utilisée
MsgBox "Vous avez une résolution écran de : " & Col & " x " & Lig, vbInformation
End Sub

Bon j'vais pas rentrer dans les détails...mais le principe est de faire une boucle sur toutes les feuilles et d'adapter la taille de chacune d'elles selon la résolution écran en vigueur...

PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...

Convertir la taille de l'affichage d'un fichier Xls sur un autre Ordi

Richard

Guest

Vériland

Guest

Discussions similaires