Discussion :

[nonaparus]

Bonjour,

est-ce possible de récupérer le système de mesure(pouce ou métrique) des paramètres régionaux de windows via VBA d'access 2000.

J'ai une aplication qui imprime différents rapports. Les marges sont différentes entre les rapports. Je pousse donc par programmation avec la commande sendkey les largeurs de mes marges. Le problème est que certain utilisateur utilise le système métrique et les autres les pouces en raison d'un logiciel installé qui nécessite les pouces. Donc, les valeurs que je pousse avec la commande sendkey doivent être différentes selon le système de mesure.

Il doit surement y a voir un moyen, car si on va dans la mise en page d'un rapport et dans l'onglet marge on voit d'inscrit milimètre ou pouce selon les paramètres régionaux de windows

Si quelqu'un connait une autre méthode...

Code :

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

1
2
3
4
5
6
7
 
SendKeys "{f10}"   'active le menu 
SendKeys "{f}"   'choisi le menu fichier 
SendKeys "{p}" 'choisi mise en page 
SendKeys "%{h}" 'poisitionne dans marge haut(équivalent de alt + h) SendKeys "{5}" 'inscrit la valeur de la marge de haut 
... 
SendKeys "{enter}" 'ferme la fenêtre de mise en page

Merci

nonaparus

[Trini]

Bonjour,

Je crois qu'il y a quelque-chose dans la FAQ sur la lecture des paramètres régionaux.

[cafeine]

Et oui ...

http://access.developpez.com/faq/?pa...aram_regionaux

Trini connaît la FAQ sur le bout de son clavier

[nonaparus]

J'ai trouvé le tout à http://vbnet.mvps.org/index.html?cod...alecountry.htm . Il y a plein d'exemples pour récupérer d'autres paramètres régionaux.

Il suffit de copier le code suivant dans un module et à partir du code appeler GetSysMesure.

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
 
Option Compare Database
 
Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, _
    ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
 
Private Declare Function GetUserDefaultLCID Lib "kernel32" () As Long
 
Public Const LOCALE_IMEASURE              As Long = &HD     '0 = metric, 1 = US
 
Public Function GetUserLocaleInfo(ByVal dwLocaleID As Long, ByVal dwLCType As Long) As String
   Dim sReturn As String
   Dim r As Long
 
  'call the function passing the Locale type
  'variable to retrieve the required size of
  'the string buffer needed
   r = GetLocaleInfo(dwLocaleID, dwLCType, sReturn, Len(sReturn))
  'if successful..
   If r Then
     'pad the buffer with spaces
      sReturn = Space$(r)
     'and call again passing the buffer
      r = GetLocaleInfo(dwLocaleID, dwLCType, sReturn, Len(sReturn))
     'if successful (r > 0)
      If r Then
        'r holds the size of the string
        'including the terminating null
         GetUserLocaleInfo = Left$(sReturn, r - 1)
      End If
   End If
End Function
 
 
Public Function getSysMesure() As String
   Select Case GetUserLocaleInfo(LCID, LOCALE_IMEASURE)
      Case "0":  MsgBox "0 - Système métrique utilisé(Mètres)"
      Case "1":  MsgBox "1 - Système U.S utilisé(Pouces)"
   End Select
End Function