Discussion :

[chimay62]

Bonjour,

Je viens d'ajouter un variable public de type single dans mon projet et depuis quand je passe dans le code ci-dessous pour ouvrir un fichier binaire (2ko) j'ai l'erreur 7 - Mémoire insuffisante dans l'open.
J'ai tester en supprimant ma nouvelle variable public est je n'ai plus de message d'erreur 7.

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
 
 
  On Error GoTo ErrHandle
 
  '-1- Test existance fichier -------------------------------
  If Not Fs.FileExists(sPath) Then
    LoadPreBinFile = -1
    Exit Function
  End If
  '-2- Ouvre et charge le contenu du fichier ----------------
  Open sPath For Binary As #1
  Get #1, 1, PH
  Close #1
  LoadPreBinFile = 0
  Exit Function
ErrHandle:
  LoadPreBinFile = -1

Apparemment il y a une limite dans le nombre de variable Public. Peut-on augmenter cette valeur?

[ProgElecT]

Une précaution qui peut être résoudra ton problème

Code :

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

1
2
3
4
5
Dim NumFich As Integer
NumFich = FreeFile
  Open sPath For Binary As #NumFich
  Get #NumFich, 1, PH
  Close #NumFich

[chimay62]

Oui merci pour l'info, mais j'ai trouvé une piste.

Le problème ne vient pas de la limite du nombre de variable public mais plutôt de mon ajout de variable dans une structure qui elle même appartient à ma structure d'historique.