[VBA-A] CommonDialog

**Miss Gaelle** · 12/05/2006, 15h20

Bonjour,

j'ai repris un programme où dans plusieurs formulaires on peut ouvrir l'explorateur de fichierw Windows en cliquant sur un bouton. Le code est le même partout, mais dans un des formulaires cela ne fonctionne pas. Je clique dans le vide.

voici le code de la fonction :

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
 
'----------------------------------------------------------
'  Manage Inject tab
'----------------------------------------------------------
Private Sub btnOpen_Click()
Dim xlApp As Excel.application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim nbSheet As Integer
Dim frm As Form
Dim i As Integer
 
    ' La propriété CancelError a la valeur True.
    On Error GoTo ErrHandler
    ' Définit les filtres.
 
    commonDlg.Filter = "Fichier Excel|*.xls"
 
 
    ' Spécifie le filtre par défaut.
    commonDlg.filterIndex = 2
 
    ' Affiche la boîte de dialogue Ouvrir.
    commonDlg.ShowOpen
    ' Appelle la procédure d'ouverture de fichier.
    txtPathname = commonDlg.fileName
 
   Exit Sub
 
ErrHandler:
' L'utilisateur a sélectionné le bouton Annuler.
    Exit Sub
 
End Sub

Si je mets

Code :

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

On Error GoTo ErrHandler

en commentaire, il plante de suite systématiquement à la 1ère ligne où il ya d'écrit commonDlg.

Je remets le

Code :

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

On Error GoTo ErrHandler

et dès qu'il arrive sur un commondlg il passe sur le label ErrHandler

Merci par avance pour votre aide,

**HPJ** · 12/05/2006, 15h38

Es-tu sûr d'avoir un composant CommonDialog nommé commonDlg sur ta form ? et un Button nommé btn_Open ?
Et quelle est le message d'erreur quand ton code plante ?

**SfJ5Rpw8** · 12/05/2006, 15h39

et lorsqu'il plante, il n'y as pas de message ?

**Faith's Fall** · 12/05/2006, 15h48

Bon en fait, j'ai tester son programme (access), et j'ai fait un debugage, en fait dès qu'il va sur une ligne qui appel commonDlg, il se dirige sur le label ErrHandler. Au niveau du débugage il affiche:

Propriété ou méthode non gérée par cet objet

Pour commonDlg il y a le composant sur la fiche.

Le problème est lié a commonDlg, sa je pense qu'il y a aucun doute.

Je suis même partit du début en mettant simplement:

Code :

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

1
2
3
4
 
Dim cDlg as CommonDialog
 
cDlg.ShowOpen

mais la non plus sa marche pas.

**Miss Gaelle** · 12/05/2006, 15h52

Alors en fait, j'ai bien un composant nommé CommonDlg sur ma form oui.
Quant au bouton, il s'appelle bien btnOpen.

Quand il plante lorsque que l'étiquette d'erreur est active, il n'y a aucun message, il sort de la procédure juste, i lne se passe strictement rien.

Si je mets le code comme ça :

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
 
'----------------------------------------------------------
'  Manage Inject tab
'----------------------------------------------------------
Private Sub btnOpen_Click()
Dim xlApp As Excel.application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim nbSheet As Integer
Dim frm As Form
Dim i As Integer
 
    ' La propriété CancelError a la valeur True.
    'On Error GoTo ErrHandler
    ' Définit les filtres.
 
    commonDlg.Filter = "Fichier Excel|*.xls"
 
 
    ' Spécifie le filtre par défaut.
    commonDlg.filterIndex = 2
 
    ' Affiche la boîte de dialogue Ouvrir.
    commonDlg.ShowOpen
    ' Appelle la procédure d'ouverture de fichier.
    txtPathname = commonDlg.fileName
 
   Exit Sub
 
'ErrHandler:
' L'utilisateur a sélectionné le bouton Annuler.
    'Exit Sub
 
End Sub

J'ai alors l'erreur 438 "Propriété ou méthode non géré par cet objet sur la ligne

Code :

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

 commonDlg.Filter = "Fichier Excel|*.xls"

Info supplémentaire : je suis une débutante, on ne m'a pas laisssé le choix

[edit] Merci BWP pour ta participation

Il a passé une bon partie de l'aprem à tester avec moi! [/edit]

**jmfmarques** · 12/05/2006, 16h14

Comprends pas !
il semble que ton composant commondialog a un problème !
Tu ne veux pas le remplacer par une api efficace ? Je te fais ça, si tu veux ...(avec un résultat garanti : même aspect et tout et tout...et, en plus, indépendance totale...)
Tu dis !

**SfJ5Rpw8** · 12/05/2006, 16h14

si tu clique avec bouton droit sur la variable commonDlg.. de façon à avoir menu contextuel puis tu chois InfoExpress ou InfoParamétre et tu nous dis les résultats..

**SfJ5Rpw8** · 12/05/2006, 21h41

Envoyé par bbil

si tu clique avec bouton droit sur la variable commonDlg.. de façon à avoir menu contextuel puis tu chois InfoExpress ou InfoParamétre et tu nous dis les résultats..

juste pour ma culture personelle ... le menu contextuel il n'existe pas sous Access 2000 ..?

**ThierryAIM** · 13/05/2006, 13h51

la y'a un truc qui m'échappe

Dèjà, est-ce qu'on parle de VB6 ou d'Access ?

Ensuite le code fonctionne très bien sous VB6

vous pouvez mettre le code complet en piece jointe, car à mon avis, y'a autre chose qui cloche

on va pas mettre 2km de fonctions API, parce qu'un commondialog est récalcitrant

**AlainTech** · 12/05/2006, 19h16

Je n'ai pas testé pour provoquer l'erreur mais ca:

Code :

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

1
2
    commonDlg.Filter = "Fichier Excel|*.xls"
    commonDlg.filterIndex = 2

me tracasse.

Tu n'as qu'un filtre et tu demandes l'index 2 des filtres...

**Faith's Fall** · 12/05/2006, 19h33

Envoyé par AlainTech

Je n'ai pas testé pour provoquer l'erreur mais ca:

Code :

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

1
2
    commonDlg.Filter = "Fichier Excel|*.xls"
    commonDlg.filterIndex = 2

me tracasse.

Tu n'as qu'un filtre et tu demandes l'index 2 des filtres...

Exact, mais ce n'est pas sa qui pose problème car au niveau du debugueur, il s'arrete sur le premier commonDlg, cad commonDlg.Filter = "Fichier Excel|*.xls". Il ne passe pas sur commonDlg.filterIndex ...

**jmfmarques** · 12/05/2006, 19h36

Je reviens avec ma proposition : par API, en parfaite indépendance et sans faille !
Te fais cela au retour du restaurant si tu veux !

**Faith's Fall** · 12/05/2006, 19h57

Envoyé par jmfmarques

Je reviens avec ma proposition : par API, en parfaite indépendance et sans faille !
Te fais cela au retour du restaurant si tu veux !

Propose le code on testera

**jmfmarques** · 12/05/2006, 21h10

OK !
me voilà de retour (c'était bon)
Trente minutes de préparation et j'envoie

**AlainTech** · 12/05/2006, 19h38

Oui, en relisant, je m'en suis rendu compte.

Juste pour être certain qu'on s'adresse au bon composant:

Code :

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

Me.commonDlg.Filter = "Fichier Excel|*.xls"

**AlainTech** · 13/05/2006, 15h07

Voilà pourquoi j'avais écrit:

Envoyé par AlainTech

Juste pour être certain qu'on s'adresse au bon composant:

Code :

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

Me.commonDlg.Filter = "Fichier Excel|*.xls"

Le fait de taper Me. dans l'éditeur permet de voir si le CommonDialog est présent sur le form contenant le code.

**Miss Gaelle** · 15/05/2006, 09h32

Re à tous,
tout d'abord merci pour toutes ces réponses! un problème de connexion internet m'a empêché de venir ce week-end, donc désolée pour mon silence.

Je vais essayer les différentes choses que vous m'avez conseillé. Par contre, de là à changer tout le code du formulaire ... en tout cas jmfmarques merci pour le temps que tu as consacré à mon programme.

Je reviens vous donner des nouvelles dès que j'ai un café dans l'estomac

[VBA-A] CommonDialog

VBA Access

Vue hybride

Discussions similaires

Partager

Partager