Discussion :

[Ma_Mariem]

Bonjour.
j'ai un problème concernant les fonctions et les types utilisateurs en VBA.

j'ai défini deux types:

Code :

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

1
2
3
4
5
6
7
8
9
Public Type Fichier
    nom As String
    corp As String
End Type
 
Public Type corp
    Commentaires As String
    Texte As String
End Type

et j'ai 2 fonctions dont les valeurs de retours sont des types définis:
1/Fun1 as Fichier
2/fun2 as Corp

Ma procédure est comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub Proc()
 
    NomFichier = "....."
    Dim var
    Dim var1 
 
    var = Fun1(ByVal NomFichier).Corp
    Debug.Print var
 
    var1 = Fun2(ByVal var).Texte
    Debug.Print var1
 
End Sub

le problème est que:
Debug.Print var affiche quelque chose alors que Debug.Print var1 n'affiche rien

Une idée pourquoi ?
J'attends vos réponse car c'est vraiment urgent.
Merci d'avance

[Daniel.C]

Bonjour,

Que représentent "Fun1" et "Fun2" ? Si ce sont des fonctions, mets leur code.