Equivalent sérialisation sous VBA

Version imprimable

Bonjour,
Sous VB, lorsque je voulais sauvegarder une variable tableau, j'utilisais la sérialisation. Existe-t-il un équivalent sous VBA ?

Code:

1
2
3
4
5
6
7
8
9
Imports System
Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Runtime.Serialization
 
Dim myFileStream As Stream = File.Create("SaveTableau.xml")
    Dim serializer As New soapFormatter
    serializer.Serialize(myFileStream, MonTableau)
    myFileStream.Close()

10/11/2013, 21h37
clementmarcotte

Bonjour,

Il n'y a pas d'équivalent direct de la sérialisation en VBA.

À partir d'Excel 2003 (je pense) Excel peut sauvegarder au format XML. Tu pourrais envisager de mettre tes paramètres dans un classeur Excel que tu pourrais envisager de sauvegarder au format XML ou encore dans un classeur Excel indépendant.

Tu peux aussi envisager une sauvegarde dans le registre avec SaveSettings. Sauf que tu ne peux pas choisir dans quel endroit du registre. L'endroit est imposé par Microsoft. Pour les récupérer, c'est getSettings.

Ou, tu peux utiliser in fichier texte avec Open(). En fait, tu peux même formater manuellement ton fichier au format XML dans les opérations d'écriture. Je dis manuellement, parce que l'instruction Open date depuis des lustres (du BASIC original ou presque) et n'a jamais été actualisée pour manipuler automatiquement le format XML.

En utilisant l'API Windows, tu peux utiliser tout le registre au lieu des barrières de SaveSettings, ou les fichiers .ini

Mais comme je disais, ce ne sont pas des équivalents directs, et cela demande sans doute plus de travail (et de prudence) que la sérialisation pure et simple.

Désolé pour la déception. ;)
10/11/2013, 22h25
laguernette

Merci pour votre réponse.

Je vais tenter de sauvegarder au format XML.
Pour le moment je sais le faire en récupérant une plage sur excel mais ça ne me tente pas de recopier ma variable tableau dans une feuille pour ensuite la sauvegarder en XML, autant le faire directement depuis la variable tableau, en espérant que cela soit réalisable.
12/11/2013, 06h26
AlainTech

Bonjour,

Une possibilité avec la librairie Microsoft XML:
http://arkham46.developpez.com/artic...b/?page=page_4

Pas aussi direct qu'une Sérialisation mais permet, au moins, de ne pas devoir s'occuper de la fermeture des balises et gère des notions de Parent/Enfant et d'attribut.
12/11/2013, 11h42
Marc-L

Bonjour laguernette,

si la variable tableau ne dépasse pas deux dimensions, le XML n'est pas obligatoire sauf besoin spécifique.

J'ai codé quelque chose dans le genre avant l'apparition du XML mais limité à deux dimensions …
14/11/2013, 12h29
laguernette

Merci AlainTech, j'avais déjà lu cet article, cela prouve que je suis sur la bonne voie.

Marc-L, ma variable tableau à 3 dimensions pour le moment et pourrait en avoir plus. Mais pour ma propre culture perso, je suis intéressée par ta solution avec un tableau à 2 dimensions, on ne sait jamais, ça pourrait servir un jour.

Voici un exemple pour tableau de 3 dimensions (exécuter les procédures Demo) :

Code:

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
Function IsEmptyArray(V) As Boolean
         On Error Resume Next
                    U = UBound(V)
         IsEmptyArray = U = ""
End Function
 
 
Function NbDim%(V)
    On Error Resume Next
    Do
        U& = UBound(V, N% + 1):  If Err Then NbDim = N: Exit Do Else N = N + 1
    Loop
End Function
 
 
Sub Array3Load(AR, FILE$)
    Dim D&(1 To 3, 1 To 2), DP$(), SP$(), TL$()
    If Dir(FILE) = "" Then Exit Sub
    F% = FreeFile
    Open FILE For Input As #F
    TL = Split(Input(LOF(F), #F), vbNewLine)
    Close #F
    SP = Split(TL(0), "¤"):  If UBound(SP) <> 3 Then Exit Sub
 
    For L& = 1 To 3
        DP = Split(SP(L), ":"):  If UBound(DP) <> 1 Then Exit Sub
        For F = 1 To 2:  D(L, F) = DP(F - 1):  Next
    Next
 
    ReDim AR(D(1, 1) To D(1, 2), D(2, 1) To D(2, 2), D(3, 1) To D(3, 2))
 
    For L = 1 To UBound(TL)
        SP = Split(TL(L), "=")
 
        If UBound(SP) = 1 Then
            DP = Split(SP(0), ":")
            If UBound(DP) = 3 Then AR(DP(1), DP(2), DP(3)) = SP(1)
        End If
    Next
End Sub
 
 
Sub Array3Save(AR, FILE$)
    If Dir(Left(FILE, InStrRev(FILE, Application.PathSeparator)), vbDirectory) = "" _
        Or NbDim(AR) <> 3 Then Beep: Exit Sub
 
    For D1& = 1 To 3:  T$ = T$ & "¤" & LBound(AR, D1) & ":" & UBound(AR, D1):  Next
 
    For D1 = LBound(AR) To UBound(AR)
        For D2& = LBound(AR, 2) To UBound(AR, 2)
            For D3& = LBound(AR, 3) To UBound(AR, 3)
                T = T & vbNewLine & ":" & D1 & ":" & D2 & ":" & D3 & "=" & AR(D1, D2, D3)
            Next D3
        Next D2
    Next D1
 
    F% = FreeFile
    Open FILE For Output As #F
    Print #F, T
    Close #F
End Sub
 
 
Sub DemoEcrire()
    Dim TB%(1 To 2, 3 To 4, 5 To 6)
 
    For D1% = 1 To 2
        For D2% = 3 To 4
            For D3% = 5 To 6:  TB(D1, D2, D3) = D1 * D2 * D3:  Next
        Next
    Next
 
    Array3Save TB, "D:\Tests\Array3.txt"
End Sub
 
 
Sub DemoLire()
    Dim TB%()
    Array3Load TB, "D:\Tests\Array3.txt"
    If IsEmptyArray(TB) Then Beep: Exit Sub
 
    For D1& = LBound(TB) To UBound(TB)
        For D2& = LBound(TB, 2) To UBound(TB, 2)
            For D3& = LBound(TB, 3) To UBound(TB, 3)
                Debug.Print "(" & D1 & ", " & D2 & ", " & D3 & ") = " & TB(D1, D2, D3)
            Next
        Next
    Next
End Sub

__________________________________________________________________________________________

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

__________________________________________________________________________________________
A celle qui dit que les hommes sont tous pareils, lui répondre qu'il ne fallait pas tous les essayer !

14/11/2013, 21h47
laguernette

Bonsoir,

J'ai testé le code et il me note une erreur "chemin introuvable" sur la ligne :
Open FILE For Output As #F dans la procédure "Array3Save(AR, FILE$)" et comme je ne comprend pas cette commande je n'arrive pas à la modifier.

Pouvez-vous m'aider svp ?
15/11/2013, 11h59
Marc-L

Ah ouais quand même, à ce point là ‼ 8O

Le code proposé fonctionne comme un charme de mon côté sur des ordinateurs avec différentes versions d'Excel !
(voilà c'est dit !)

Donc surtout ne pas toucher à la ligne car, même si elle déclenche l'erreur, elle est tout à fait correcte !
C'est le B-A-BA du VBA, du VB - et dire que tu nous as laissé penser que tu développais en VB ! (cela c'est fait) - et
même précédemment du BASIC ! En fait dans un tel cas quel que soit le langage,
le code de la procédure n'est pas en cause mais plutôt comment on l'utilise …

Rien qu'en lisant le message d'erreur pourtant posté … A se demander s'il a été lu & compris !
C'est le problème avec les écervelés du net champions du Copier / Coller mais pour chercher à comprendre … (là aussi)

Je viens donc de modifier la procédure Array3Save (ligne n°44) pour contrôler spécialement ce cas.

PS : j'allais oublier : au cas où un bip retentisse, c'est que l'utilisateur s'est juste contenté de copier
sans se préoccuper de vérifier et d'adapter selon son besoin !

Pour rappel, les procédures Array3 ont pour premier paramètre une variable (tableau tant qu'à faire …)
et en second un fichier (évidemment lecteur & répertoire doivent exister, là aussi c'est préférable !) …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé …

__________________________________________________________________________________________
Il n'y a pas que les aigles qui atteignent les sommets, les escargots aussi mais ils en bavent !