Discussion :

[pyloupylou]

Bonjour à tous,

Quelqu'un sait-il comment afficher la mémoire vive dispo de la machine ?
Mon problème est le suivant, je travaille avec de nombreux fichiers que je charge directement en mémoire, dans des tableaux.
Je cherche le moyen d'afficher ce qui reste pour anticiper les problèmes de saturation.
Une piste de réflexion à m'indiquer?

merci pour votre aide

[Marc-L]

Bonjour,

formule à saisir dans une cellule :

Code :

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

=INFORMATIONS("memdispo")

Voir l'aide d'Excel concernant les Fonctions d'information …
_______________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[pyloupylou]

j'ai honte....

comme un gros naze, j'étais parti dans les api....

Merci de me rappeler ce que je fais pourtant systématiquement

raté:

Aide 2010
Important Dans les précédentes versions de Microsoft Excel, les valeurs type_texte « memdispo », « memutil » et « memtot » renvoyaient des informations relatives à la mémoire. Ces valeurs ne sont plus prises en charge et renvoient désormais une valeur d’erreur #N/A.

autre piste ?

un ptit up

[pyloupylou]

bon c'est pas un up !

j'ai trouvé ce bout de code sur http://www.java2s.com/Code/VBA-Excel...rd/Windows-API

Mais là je reconnais être à la limite de mes compétences
ça affiche en effet des informations mais je n'arrive pas à faire le rapprochement avec mon besoin initial et afficher la quantité de mémoire dispo.

Y aurait-il un expert de passage qui puisse me donner quelques indications ?

Merci

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
 
Type MEMORYSTATUS
   dwLength As Long
   dwMemoryLoad As Long
   dwTotalPhys As Long
   dwAvailPhys As Long
   dwTotalPageFile As Long
   dwAvailPageFile As Long
   dwTotalVirtual As Long
   dwAvailVirtual As Long
End Type
 
Type SYSTEM_INFO
   dwOemID As Long
   dwPageSize As Long
   lpMinimumApplicationAddress As Long
   lpMaximumApplicationAddress As Long
   dwActiveProcessorMask As Long
   dwNumberOrfProcessors As Long
   dwProcessorType As Long
   dwAllocationGranularity As Long
   dwReserved As Long
End Type
Declare Sub abGlobalMemoryStatus Lib "kernel32" Alias "GlobalMemoryStatus" (lpBuffer As MEMORYSTATUS)
 
Sub GetSysInfo()
    Dim intMousePresent As Integer
    Dim strBuffer As String
    Dim intLen As Integer
    Dim MS As MEMORYSTATUS
    Dim SI As SYSTEM_INFO
 
 
    'Set the length member before you call GlobalMemoryStatus
    MS.dwLength = Len(MS)
    abGlobalMemoryStatus MS
    Debug.Print "MemoryLoad" & MS.dwMemoryLoad & "%"
    Debug.Print "TotalPhysical" & Format(Fix(MS.dwTotalPhys / 1024), "###,###") & "K"
    Debug.Print "AvailablePhysical" & Format(Fix(MS.dwAvailPhys / 1024), "###,###") & "K"
    Debug.Print "TotalVirtual" & Format(Fix(MS.dwTotalVirtual / 1024), "###,###") & "K"
    Debug.Print "AvailableVirtual" & Format(Fix(MS.dwAvailVirtual / 1024), "###,###") & "K"
 
 
End Sub

[pyloupylou]

Bonjour,

je n'ai toujours pas trouvé ma réponse.
Questions aux modérateurs, pensez vous que je devrais déplacer ma question sur le forum d'un autre langage, car en effet on est en vba, mais la problématique est beaucoup plus système.

merci.

[Marc-L]

A quoi bon chercher du code sur le net si c'est pour ne pas l'analyser ou le traduire (y a quand même des traducteurs en ligne) ?!

Car tu as déjà ta réponse en ligne n°39 ‼


________________________________
Une lesbienne qui n'a pas de seins, c'est une omoplate ?