Enum Type dans paramètres de Sub

Version imprimable

Bonjour,

J'essaie d'utiliser un type lors d'une Sub (shellExecute en l'occurence).

Début de mon code :

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
Option Compare Database
Option Explicit
 
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
        ByVal hwnd As Long, _
        ByVal lpOperation As String, _
        ByVal lpFile As String, _
        ByVal lpParameters As String, _
        ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As Long
 
Public Enum TypeOuverture
 
    impression = 1
    ouverture = 2
 
End Enum
 
Public Sub OuvrirDocument(strCheminFichier As String, strTypeOuverture As TypeOuverture)
 
'--------------------------------------------------------------------------------------------
' Projet          : Interface Windows
' Auteurs         : Romain Puyfoulhoux - http://access.developpez.com
'                   Christophe Warin (Tofalu) - http://access.developpez.com
'                   pour la gestion des erreurs
' Version / Date  : 1.0 / 01.01.2008
' Révision / Date : -
' Commentaires    : Permet d'ouvrir un fichier sans déclarer l'application a utiliser
'
'                   Exemple d'appel OuvrirDocument ("C:\Projets Access\Exemple.doc")
'
' Lien            : http://access.developpez.com/faq/?page=Automation#shellexecute
'--------------------------------------------------------------------------------------------
 
    'Déclaration des variables
    Dim strDescriptionErreur As String
 
    'Select Case ShellExecute(0, "open", strCheminFichier, vbNullString, vbNullString, 1)
    Select Case ShellExecute(0, strTypeOuverture, strCheminFichier, vbNullString, vbNullString, 1)

Le but étant bien entendu de passer le paramètre impression ou ouverture.

Lorsque je veux appeler ma sub, l'éditeur me propose bien mon Type, ça c'est ok, mais j'ai une erreur à la compilation : Attendu : =

Voici l'appel :

Code:

OuvrirDocument("C:\Projets Access\Test.doc", ouverture)

Merci de votre aide.

Domi2

04/03/2008, 16h39
mikeGo20
Ton appel doit référer à une valeur de format texte

alors essaie ceci
Code:

1 2 3 4 5 Public Enum TypeOuverture impression = "1" ouverture = "2" End Enum
04/03/2008, 16h43
Domi2

Bonjour,

Malheureusement, même résultat...

Merci de ton aide.

Domi2

Faudrait peut-être reconsidérer la procédure

Code:

1
2
 
Public Sub OuvrirDocument(strCheminFichier As String, strTypeOuverture As TypeOuverture)

par

Code:

1
2
 
Public Sub OuvrirDocument(strCheminFichier As String, strTypeOuverture As String)

car le 2ième argument de la fonction ShellExecute exige une valeur de type String et non de type TypeOuverture ....

Code:

1
2
3
4
5
6
7
8
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
        ByVal hwnd As Long, _
        ByVal lpOperation As String, _
        ByVal lpFile As String, _
        ByVal lpParameters As String, _
        ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As Long

04/03/2008, 17h29
Domi2

Bonjour,

Merci de te pencher sur mon problème...

Je vais faire des tests sur une sub plus simple pour vérifier les valeurs obtenues...

Domi2

Au lieu de déclarer un Enum,

je déclarerais deux constantes ...

Code:

1
2
3
 
Public Const IMPRESSION As String = "1"
Public Const OUVERTURE As String = "2"

Puis

Code:

1
2
 
Public Sub OuvrirDocument(strCheminFichier As String, strTypeOuverture As String)

Finalement

Code:

1
2
 
OuvrirDocument("C:\Projets Access\Test.doc", OUVERTURE)

04/03/2008, 20h33
marot_r

Je pense que le problème vient du fait que les énumérations sont en réalité des long et comme ta fonction attend un string ça marche pas :-(.

L'aide dit ceci à propos des valeurs :

Citation:

constantexpression Facultatif.

Valeur de l'élément (correspond à valeur de type Long). Si aucun élément constantexpression est spécifié, la valeur affectée est soit zéro (s'il s'agit du premier élément membername), soit la valeur de l'élément membername précédent plus 1.

Bonjour,

j'ai fait quelques essais. En fait, le problème venait déjà de l'appel (manquait le Call). Donc :

Code:

Call OuvrirDocument("C:\Projets Access\Test.doc", imprimer)

Puis, effectivement, le Type est un long alors que la Sub attend une string. Correction :

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
Option Compare Database
Option Explicit
 
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
        ByVal hwnd As Long, _
        ByVal lpOperation As String, _
        ByVal lpFile As String, _
        ByVal lpParameters As String, _
        ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As Long
 
Public Enum TypeOuverture
 
    imprimer = 1
    ouvrir = 2
 
End Enum
 
Public Sub OuvrirDocument(strCheminFichier As String, intTypeOuverture As TypeOuverture)
 
'--------------------------------------------------------------------------------------------
' Projet          : Interface Windows
' Auteurs         : Romain Puyfoulhoux - http://access.developpez.com
'                   Christophe Warin (Tofalu) - http://access.developpez.com
'                   pour la gestion des erreurs
' Version / Date  : 1.0 / 01.01.2008
' Révision / Date : -
' Commentaires    : Permet d'ouvrir un fichier sans déclarer l'application a utiliser
'
'                   Exemple d'appel OuvrirDocument ("C:\Projets Access\Exemple.doc")
'
' Lien            : http://access.developpez.com/faq/?page=Automation#shellexecute
'--------------------------------------------------------------------------------------------
 
    'Déclaration des variables
    Dim strTypeOuverture As String
    Dim strDescriptionErreur As String
 
    'Action selon valeur de intTypeOuverture
    If intTypeOuverture = 1 Then
 
        strTypeOuverture = "print"
 
    Else
 
        strTypeOuverture = "open"
 
    End If
 
    'Select Case ShellExecute(0, "open", strCheminFichier, vbNullString, vbNullString, 1)
    Select Case ShellExecute(0, strTypeOuverture, strCheminFichier, vbNullString, vbNullString, 1)

Comme ceci, le Type m'est bien proposé lors de l'appel de la sub, c'est ce que je désirais obtenir.

Encore que je me passerais bien de faire la conversion, mais je ne pense pas que cela soit possible.

Merci à tous les deux pour votre aide.

Domi2