Discussion :

[electrosat03]

Salut à tous,

J'ai placé un contrôle common dialog pour récupérer le chemin d'un fichier sélectionné dans la boite de dialogue ouverte par ce controle.

J'aimerais récupérer l'appuis sur le bouton annuler de cette boite de dialogue.
comment puis-je faire.

Merci A+

[Heureux-oli]

Normalement, il devrait y avoir deux boutons.

Ok et Cancel.

C'est une réponse à l'action de l'utilisateur

Code :

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

1
2
3
If VBOk then
    a faire
End if

l'autre, c'est VBCancel.

Ils ont aussi une valeur numérique que tu peux tester avec un Debug.print

[Faw]

l'erreur déclanchée porte le N° 32755 (Err.Number = 32755) à toi de la
gérer...

[electrosat03]

Salut,

Heureux-oli, ton code ne fonctionne pas, même si je clic sur ouvrir, il exécute le code VBCancel. Merci quand même.

Faw, merci pour ta réponse, je regarde à ça.

A+

[electrosat03]

Re,

Faw, je viens de tester mais ça ne fonctionne pas.

En fait, ma boite de dialogue est celle ouverte par le contôle commondialog.

Cette boite contient deux bouton, Annuler et Ouvrir.

J'aimerais donc si je clic sur annuler, récupérer cette action.

Merci
A+

[Faw]

voici mon exemple et il fonctionne. Common Dialog est utilisée pour ouvrir des
fichiers audio/vidéo avec windows MP.

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
Private Sub Commande6_Click() 'ouvre la boite de dialogue
On Error GoTo ErrComDlg
 
Dim stpath As String
Me.CtlActiveX10.ShowOpen
stpath = Me.CtlActiveX10.FileName
Me.WindowsMediaPlayer9.URL = stpath
 
ExitErrComDlg:
Exit Sub
 
ErrComDlg:
If Err.Number <> 32755 Then 'Err.Number = 32755 = Bouton annuler activé
MsgBox Err.Number & "  " & Err.Description
Resume ExitErrComDlg
End If
 
End Sub

[electrosat03]

Re,

Ok, merci pour ton code, je l'essaye demain.

A+

[electrosat03]

Salut à tous,

OK, l'erreur est bien gérée.

Merci
A+