ouverture de exploreur pour selectionner un fichier

Bonjour.

on n'utilise plus cet ocx mais directement l'api openfilename qui est
beaucoup plus pratique et possède la même interface que tous les produits
office.
http://officesystem.access.free.fr/apiopenfile.htm

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
l'abonnement TechNet !
http://www.microsoft.com/france/technet/presentation/cd/default.mspx


"michel_bdx" <michelbdx@discussions.microsoft.com> a écrit dans le message
de news: CA57AC2A-AF95-41E4-8001-8CF5482AF053@microsoft.com...
| voila cela fonctionnait jusqu'a maintenant
|
| le code etait cela
| Private Sub BT_AjoutDoc_Parcourir_Click()
|
| ' Gestion des erreurs
| MSComDlg.CancelError = True
| On Error GoTo ErrHandler
|
| ' Parametres d'ouverture
| MSComDlg.Flags = &H4 Or &H800
|
| ' Définition du chemin initial
| MSComDlg.InitDir = Current.Rep_Vrac_Site
|
| ' Ouverture de la boite de sélection d'un fichier
| MSComDlg.ShowOpen
|
| ' Affichage du fichier sélectionné
| If Not (IsNull(MSComDlg.Filename)) Then
| Chp_AjoutDoc_Fichier = MSComDlg.Filename
| Call type_fic(MSComDlg.Filename)
| End If
| MSComDlg.Filename = vbNullStringBR
|
| ErrHandler:
|
| ' L'utilisateur a cliqué sur Annuler dans la boite
| Exit Sub
|
| End Sub
|
| il me dit cela la methode ou la propriété non géree pour
| MSComDlg.CancelError = True
| pareil pour le reste
|
|
| j'ai :
| application ole = CommonDialog
| classe objet =MSComDlg.CommonDialog.1
| active =oui
|
|
| merci pour votre aide
|