Quelle bibliothéque à cocher??Résolu

Question

Bonjour

Je travaille sous access 2000 et quand je compile ce code, ca donne le message suivant : "Type d&#233;fini par l'utilisateur non d&#233;fini" dans la ligne "Dim Fd As FileDialog"

  Dim Fd As FileDialog
  Set Fd = Application.FileDialog(msoFileDialogOpen)
  With Fd
    .AllowMultiSelect = False ' multis&#233;lection interdite
    If .Show = -1 Then
      path= .SelectedItems(1)' m&#233;morisation du fichier s&#233;lectionn&#233;
    Else
      Exit Sub
    End If
  End With
  Set Fd = Nothing

Quelle "biblioth&#232;que" je dois cocher dans "Outils / R&#233;f&#233;rences" ?

N.B : J'ai coch&#233; la biblioth&#232;que "Microsoft Office 9.0 Object Library" , tjrs le m&#234;me message

Merci d'avance

madbob · Accepted Answer

Tout le plaisir est pour nous suggestion : Pourquoi ne pas mettre simplement *.* pour le filter, si c'est que tu veux... observation suite à ton commentaire sur le cancelerror : Le cancel error est en principe initialisé à false : c'est le comportement par défaut. Effectivement si tu le bascules à true (ou à oui) et qu'il est exécuté avec une annulation on obtient un message qui n'est pas un message d'erreur mais l'annulation par l'utilsateur. Cette contreinte bascule si tu maîtrises la gestion des erreurs, car tu sais ce qu'elle veut dire, et tu décides alors de ce que tu en fait. '* Mise en place de la gestion des erreurs onerror goto MesErr set .... With dlg .DialogTitle = "selectionner un fichier" 'titre de la boite .Filter = " (*.*)|*.*" .InitDir = "T:" 'repertoire par defaut .CancelError = True 'pour intercepter toutes les anomalies .Flags = tacmCdlOfnHideReadOnly + tacmCdlOfnPathMustExist .ShowOpen End With 'Doc_Chemin est la zone de texte recevant le chemin du fichier If obj.FileName <> "" Then Doc_Chemin.Value = obj.FileName End If '* gestion des erreur cancelerror paramétré sur oui/true MesErr: If Err.number <> 32755 then msgbox err.number & "#"& err.description endif madbob

cs_ITALIA · Answer

Je crois que c'est :

comdlg32.ocx

It@li@

cs_ITALIA · Answer

dans outils Outils / Composants

It@li@

madbob · Answer

Salut la cie



Moi  &#231;a tourne quand je selectionne la r&#233;f&#233;rence Microsoft office 10 object librairie


madbob

moony01 · Answer

Merci bcp pour vos r&#233;ponses, je trouve pas cette r&#233;f&#233;rence, je n'ai que "Microsoft Office 9.0 Object Library" et ca marche pas avec, qu'est ca que je fais?
Sinon comment je peux sp&#233;cifier un dossier par d&#233;faut &#224; l'ouverture d'une boite de dialogue (Un lecteur r&#233;seau par exemple ou le bureau) avec le controle common dialog?

Merci d'avance.

Moony

N.B: Je travaille avec access 2000 et pas Visual Basic.

madbob · Answer

On a bien compris...



Par contre qu'est-ce que tu voudrai faire &#231;a je suis pas sur d'avoir compris. 



Si tu veux obtenir les fen&#234;tre standtart de bilou du utilise le composant que t'a indiqu&#233; par 
It@li@.



ou tu le fais par la toolbox et en choisissant  microsoft common dialog control....

et en dessinant de suite l'objet dans ton form. apr&#232;s y plus qu'a coder



madbob

cs_ITALIA · Answer

tu dois utiliser le comdlg32.ocx
en cochant Projet...composants....Microsoft Common Dialog Control 6.0

It@li@

moony01 · Answer

Je sais tout ca et c'est deja fait, ce que je veux savoir mnt c'est comment d&#233;finir un dossier par d&#233;faut pour common dialog (Par exemple en cliquant sur ouvrir la boite de dialogue affiche les dossiers du bureau ou un lecteur r&#233;seau)?

Pour le message d'erreur j'ai laiss&#233; tomb&#233;.

Merci encore une fois pour vos r&#233;ponse.

Moony

cs_ITALIA · Answer

' Chemin Initial
CommonDialog1.InitDir = "C:"

It@li@

moony01 · Answer

C'est bien ce que je cherche, Merci.
Une autre petite question: Quand je clique sur "Annuler" sans choisir un fichier j'ai un message d'erreur.
Je dois tester sur le bouton cliqu&#233;? Si oui quelles propri&#233;t&#233;s utiliser ?
Merci les gars pour vos promptes r&#233;ponses.

madbob · Answer

Je pense tr&#232;s sincerement que l'erreur est g&#233;n&#233;r&#233;e apr&#232;s et pas par la commondialogbox...

C'est apr&#232;s la grouille, tu dois faire quelquechose alors que la chaine que tu utilises est vide....

madbob

moony01 · Answer

T'as raison, l'affectation du chemin &#224; une zone du texte  qui causait l'erreur. Voici le code final.

   With dlg
        .DialogTitle = "selectionner un fichier" 'titre de la boite
        .FileName = "" 'on recherche un fichier d'extension txt
        .Filter = "Word (*.doc)|*.doc|Excel (*.xls)|*.xls|PDF (*.pdf)|*.pdf|TIFF (*.tif)|*.tif|RTF (*.rtf)|*.rtf|Tous Les Fichiers (*.*)|*.*"
        .InitDir = "T:" 'repertoire par defaut
        .CancelError = False 'pour ne pas partir en erreur si on click sur annuler
        .Flags = tacmCdlOfnHideReadOnly + tacmCdlOfnPathMustExist
        .ShowOpen
    End With
    'Doc_Chemin est la zone de texte recevant le chemin du fichier
    If obj.FileName <> "" Then
      Doc_Chemin.Value = obj.FileName
    End If

Merci pour votre aide et pour votre temps.

Moony

moony01 · Answer

Merci, t'es vraimant gentil, je rectifierai mon code.

Moony

moony01 · Answer

Je voulais juste ajouter que pour le message d'erreur "Type d&#233;fini par l'utilisateur non d&#233;fini", j'ai t&#233;l&#233;charg&#233; la biblioth&#233;que "Microsoft Office 11.0 Object Library" (mso.dll) &#224; partir du site : http://www.dlldump.com/filelistings/m.shtml et j'obtiens plus ce message, j'ai un autre message   "Membre de m&#233;thode ou de donn&#233;es introuvable" et j'ai le mot en rouge s&#233;lectionn&#233;.

  Dim Fd As FileDialog
  Set Fd = Application.FileDialog(msoFileDialogOpen)
  With Fd
    .AllowMultiSelect = False ' multis&#233;lection interdite
    If .Show = -1 Then
      path= .SelectedItems(1)' m&#233;morisation du fichier s&#233;lectionn&#233;
    Else
      Exit Sub
    End If
  End With
  Set Fd = Nothing

madbob · Answer

Salut



Le message est clair il ne reconnait pas le membre (de la classe)

=> la classe qui contient ce membre n'est pas correctement link&#233; au projet sur lequel tu travaille.

Je ne connais pas les circonstances mais tu as peut &#234;tre un link qui a saut&#233;



As tu fais une recherche via l'explorateur d'objet ?



J'ai xp et access 2000 et &#231;a marche tr&#232;s bien qu'elles sont les autres r&#233;ferences valides associ&#233;es &#224; ton projet

madbob

madbob · Answer

Microsoft common dialog control 6 sp3 m'a l'air indipensable

"Contr&#244;le Microsoft CommonDialog 6.0"


madbob

moony01 · Answer

Voici ttes les r&#233;f&#233;rences coch&#233;es dans mon application :

- Visual Basic For Applications
- Microsoft Access 9.0 Object Library
- Microsoft Office 11.0 Object Library
- Microsoft DAO 3.6 Object Library
- OLE Automation
- Microsoft ActiveX Data Objects 2.1 Library
- Microsoft Windows Common Controls-2-6.0(SP4)
- Microsoft Forms 2.0 Objects Library
- Sinus ActiveX-Steuerelement-Modul
- Microsoft Common Dialog Control 6.0
- FILEMGMT 1.0 Type Library
- DriveListBox
- DirListBox
- FileList
- Cdlg
- MSIOFF ActiveX Control module

Merci.

madbob · Answer

Peut-&#234;tre faut-il que tu hierachises autrement tes ressources avec les
fl&#232;ches de priorit&#233;s tu devrais monter Microsoft Common Dialog Control
6.0 dessous OLE Automation. 

Il faut &#233;viter d'avoir des conflit li&#233;s au polymorphisme, ces conflit
sont r&#233;solus par la hi&#233;rarchisation et les fl&#232;ches sont pr&#233;vues pour &#231;a.

Si vraiment &#231;a ne fonctionne pas, refait un projet minimaliste ins&#232;re
la comon controle par la boite &#224; outil (la r&#233;f&#233;rence correcte et
disponible va &#234;tre impl&#233;ment&#233;e automatiquement)

Mets ton code et faits la fonctionner



J'ai touch&#233; &#224; rien et &#231;a marche et j'ai comme r&#233;f&#233;rence dispo :

VB dor applications

Micr.. Access 10.0 object library

OLE Automation

Microsof ActiveX DAO 2.1 Library

Microsoft Comm Dialog Controle 6.0 (SP3)



La r&#233;f&#233;rence Microsoft Comm Dialog Controle 6.0 (SP3) a &#233;t&#233; ins&#233;r&#233;
directement quand j'ai ins&#233;r&#233; le composant par la boite &#224; outil...

A+
madbob

moony01 · Answer

Toi tu as "Microsoft Access 10.0 object library" et moi je n'ai que "Microsoft Access 9.0 object library", peut &#234;tre c'est ca qui cause le probl&#232;me, Non?

Moony

madbob · Answer

mes certitudes ne sont qu'incertitudes moony01 .  Mais je baisse pas les bras



Ton probleme est peut &#234;tre ailleur moi je ne fait pas de set regarde ce
code et il n'arive pas &#224; instancier il faut peut &#234;tre pas faire de set
Moi je n'en fait pas

et mon controle est sur mon formulaire



Private Sub Commande1_Click()

On Error GoTo Meserr

Me.CD1.DialogTitle = "Selectionner un fichier text &#224; coder"



'* filtres

If P_Crit = 0 Then

    Me.CD1.Filter = "(*.TXT)|*.txt"

ElseIf P_Crit = 1 Then

     Me.CD1.Filter = "(*.BMP)|*.bmp"

End If



'* Ouvre le template MS avec le filtre appropri&#233;

Me.CD1.ShowOpen

 

Meserr:

    If Err.Number <> 32755 Then

        MsgBox Err.Number & Err.Description

    End If

End Sub


madbob

madbob · Answer

Je viens de rev&#233;rifier le set sur 2 env diff&#233;rents

Sur mon poste sans la office 10 je ne peux pas pas utiliset la methode set ! 

On peut v&#233;rifier facilement par l'explorateur d'objet : si tu ne peux
pas remonter &#224; la classe source de filedialogue c que c mort.
madbob

moony01 · Answer

En consultant l'explorateur d'objet, j'ai trouvé la classe "FileDialog" dans la bibliothèque "Office". J'apprécie beaucoup ton aide ainsi que ta patience, mais moi je suis pas patiente et je baisse rapidement les bras, et je laisse tomber. C'est pourquoi j'ai pensé à autre chose, pourquoi ne pas utiliser un simple formulaire d'access où je place un controle treeview et un autre listview et je fais le lien entre les deux (je l'ai vu sur ce site : une source), le problème c'est que l'exemple que j'ai vu n'affiche que les lecteurs locaux et moi je veux afficher les lecteurs réseau. J'ai essayé de réctifier me code mais ca plante. Code Original: Formulaire : Option Compare Database Dim LV1Path, fic, FicOld As String Dim Same As Boolean Dim Ind As Integer Private Sub Form_Load() Dim fs As Object Dim dc, d Dim str, n, img As String Set fs = CreateObject("Scripting.FileSystemObject") Set dc = fs.Drives For Each d In dc If (d.IsReady) Then str = fs.GetDrive(d.Driveletter).RootFolder Else: GoTo suite2 End If Select Case d.DriveType Case 0: n = "Inconnu" Case 1: n = "Amovible" Case 2: n = d.VolumeName img = "HDD" Case 3: n = d.ShareName img = "DR" Case 4: n = "CD-ROM" img = "CD" Case 5: n = "Disque RAM" End Select n = n & " (" & d.Driveletter & ":)" 'Création des noeuds racines des disques) If (d.DriveType <> 3) Then Me.TV1.Nodes.Add , , str, n, img AjouteRep str End If suite2: Next End Sub Private Sub AjouteRep(ByVal str As String, Optional ByRef Node As Object = Nothing) Dim fs, f, fld, fld1, sf Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(str) Set sf = f.SubFolders For Each fld In sf 'Évite les répertoire qui font planter la fonction If fld.Name = "RECYCLER" Then GoTo suite If fld.Name = "System Volume Information" Then GoTo suite If fld.Name = "DO_NOT_REMOVE_NtFrs_PreInstall_Directory" Then GoTo suite 'ajoute les dossier If f.IsRootFolder = True Then Me.TV1.Nodes.Add str, tvwChild, fld.Path, fld.Name, "Dossier" 'Ajoute les sous dossiers AjouteRep fld.Path Else: Me.TV1.Nodes.Add str, tvwChild, fld.Path, fld.Name, "Dossier" AjouteRep fld.Path End If suite: Next End Sub 'Gestion des clics dans le TreeView Private Sub TV1_NodeClick(ByVal Node As Object) Dim li As ListItem Dim li2 As ListItem Dim fld Dim fic, rep, img As String Dim f Dim fldl Dim message As Boolean 'sera utile pour filtrer des dossiers à ne pas afficher Dim fs As Object Dim a As Integer a = 2 Ind = Node.Index Me.LV1.ListItems.Clear 'construit le nom du répertoire While (Mid(Node.FullPath, a, 1) <> ":") a = a + 1 Wend rep = Mid(Node.FullPath, a - 1, 2) & Mid(Node.FullPath, a + 2) 'MsgBox rep If Right(rep, 1) <> "" Then rep = rep & "" LV1Path = rep Set fs = CreateObject("Scripting.FileSystemObject") Set fld = fs.GetFolder(rep) message = False 'ajoute les éléments dossier a LV1 sans prendre en compte la poubelle et l'information de volume systeme. For Each fldl In fld.SubFolders If fldl.Name "RECYCLER" Then message True If fldl.Name "System Volume Information" Then message True 'MsgBox fldl.Name If message = False Then Me.LV1.ListItems.Add , , fldl.Name, "Dossier", "Dossier" End If Next 'ajouter les élément fichier a LV1 For Each f In fld.Files 'On affecte l'image en fonction du type du fichier img = FindImg(f.Name) Me.LV1.ListItems.Add , , f.Name, img, img Next End Sub 'Gestion des clics dans la listeView Private Sub LV1_ItemClick(ByVal Item As Object) Dim fs As Object Dim f, fldl, fld Dim message As Boolean Dim rep As String Dim RetVal 'Construit le nom du répertoire 'GetRep Item 'donne rep, fic et LV1Path fic = Item.Text rep = LV1Path If Right(rep, 1) <> "" Then rep = rep & "" LV1Path = rep 'Stockage du nom du répertoire uniquement rep = rep & fic If Item.Icon <> "Dossier" Then 'MsgBox rep 'Shell (rep), vbMaximizedFocus RetVal = ShellExecuteA(0, "Open", rep, "", "", 10) Exit Sub 's'il ne sagit pas d'un dossier on sort de la sub End If 'Récupération de l'index du node correspondant dans le treeview Ind = Me.TV1.Nodes(Ind).Child.FirstSibling.Index While Me.TV1.Nodes(Ind).Text <> Item.Text Ind = Me.TV1.Nodes(Ind).Next.Index Wend TV1_Expand (Me.TV1.Nodes(Ind)) 'Efface l'ancien ListView Me.LV1.ListItems.Clear 'construit rep 'MsgBox rep LV1Path = rep 'Stockage du nom du nouveau répertoire Set fs = CreateObject("Scripting.FileSystemObject") Set fld = fs.GetFolder(rep) message = False 'Ajoute les éléments dossier à LV1 sans prendre en compte la poubelle et l'information du volume systeme. For Each fldl In fld.SubFolders If fldl.Name "RECYCLER" Then message True If fldl.Name "System Volume Information" Then message True If message = False Then Me.LV1.ListItems.Add , , fldl.Name, "Dossier", "Dossier" End If Next 'Ajouter les élément fichier à LV1 For Each f In fld.Files img = FindImg(f.Name) Me.LV1.ListItems.Add , , f.Name, img, img Next End Sub Public Sub TV1_Expand(ByVal Node As Object) If (Node.Parent Is Nothing = False) Then 'S'il s'agit des lecteurs on ne change pas l'image Node.Image = "DossierOpen" End If End Sub Public Sub TV1_Collapse(ByVal Node As Object) If (Node.Parent Is Nothing = False) Then Node.Image = "Dossier" End If End Sub Private Function FindImg(str As String) As String Select Case Right(str, 3) Case Is "txt": FindImg "Txt" Case Is "doc": FindImg "Doc" Case Is "zip": FindImg "Zip" Case Is "rar": FindImg "Zip" Case Is "exe": FindImg "Exe" Case Is "mdb": FindImg "Mdb" Case Is "xls": FindImg "Xls" Case Is "ppt": FindImg "Ppt" Case Is "tml": FindImg "IE" Case Is "htm": FindImg "IE" Case Is "wav": FindImg "Mp3" Case Is "mp3": FindImg "Mp3" Case Is "dll": FindImg "Dll" Case Is "ini": FindImg "Ini" Case Is "bmp": FindImg "Img" Case Is "jpg": FindImg "Img" Case Is "gif": FindImg "Img" Case Else: FindImg = "Unk" End Select End Function Module : Option Compare Database Public Declare Function ShellExecuteA Lib "shell32" (ByVal hwnd As Long, ByVal LPFile As String, ByVal PathFile As String, ByVal Other As String, ByVal Other2 As String, ByVal Param As Long) As Long P.S : TV1 : Treeview LV1 : Listview

madbob · Answer

Je veux bien me pencher sur ton code, d'ailleurs 
je vais le faire... Mais vois-tu, tu utilises les m&#233;thodes
d'instanciation dynamiques et pour peu que tu n'as pas les
composant/librarie partag&#233;s qui vont pas alors tu retombes dans les
m&#234;mes travers...



D'autant que si je suis ta logique, tu veux faire de l'instanciation
hors dans ton 2 eme exemple, tu utilises les ocx treeview et liste
view.... je vois pas alors l'int&#233;r&#234;t de faire du set !

Autant rester sur la commondialog,  la d&#233;clarer et l'utiliser en tant qu'ocx sans faire de set. 


Pour faire du Set il faut pouvoir instancier la classe m&#232;re dans un module... C'est pas pareil que d'instancier l'objet graphiquement dans un formulaire et c'est pour &#231;a que l'un fonctionne et l'autre pas forc&#233;ment





Question : Esc-ce que tu as essay&#233; au moins de faire fonctionner la
commondialog en tant qu'ocx sans faire appel aux m&#233;thode Set... Le code
est un plus haut dans le post.

Tu l'incorpes via les outils et tu l'utilises sans faire de set !!! Je veux pas me les mordre  et j'aimerai savoir si tu y arrives.



En attendant je zieute plus en d&#233;tail ton source
madbob

moony01 · Answer

ca marche tr&#233;s bien avec l'ocx (sans probl&#232;me, sans message d'erreur), mais comme j'ai dit j'ai besoin d'afficher juste les lecteurs r&#233;seau, dans ma boite de dialogue, That's why je t'ai derang&#233; avec mes messages du plus haut du post.
Mnt je te laisse savourer le code du haut.
Moony

madbob · Answer

Bon bin pour pas qu'il tourne pendant des plombes &#224; scruter toutes les arbo de mes lecteur... J'ai limit&#233; aux lecteurs...



J'ai eu des erreurs notamment avec la listview et un problem avec la
trbx parcequ'elle n'est pas initilis&#233;e. J'ai donc rajout&#233; un bout de
code :

'* On configure le treeview

    With Me.TV1

        .Sorted = True

        Set mNode = .Nodes.Add()

        .LabelEdit = False

        .LineStyle = tvwRootLines

    End With



'* apr&#232;s je rentre dans la boucle pour l'ajout des noeuds

Donc j'ai d&#233;gag&#233; les r&#233;f&#233;rences &#224; la listeview cf la variable img  ',img



Je crois qu'on ne coupe pas &#224; la cr&#233;ation d'un noeud racine ... mais bon l&#224; je l&#224; l'affaire



PS a tourner en rond sur la commoncontrole, j'ai vu qu'on pouvait ouvrir avec la pallette de couleur, et l'imprimente cooool

A+

madbob

moony01 · Answer

Salut, j'ai opt&#233; pour la solution que je t'ai dit hier (formulaire+treeview+listview) et je vois qu'elle fasse l'affaire, sauf que je dois ins&#233;rer un control progressbar, parcqu'il y'a des dossiers qui prend bcp de temps pour se charger / se remplir, et je veux que le progressbar s'incr&#233;mente avec le remplissement de la listview, si tu peux me donner ton adresse email je te l'envoie pour voir de quoi il s'agit.

Moony

madbob · Answer

Salut



Y a pas de probl&#232;me... je t'envois &#231;a par un mail



Ce qu'on veut, ce qu'on peut... Comme il y a toujours plein de
solutions diff&#233;rentes pour finalement arriver au m&#234;me r&#233;sultat...Apr&#232;s
c'est juste au dela de la r&#233;ussite technique le temps qu'on y passe.



Tu veux un browser de fichier qui ne t'affiche que les lecteurs qui
sont d&#233;finis par une unit&#233; logique A:, C:, D:, etc... c'est &#231;a ? et
lorsque tu cliques sur ton choix alors il d&#233;roule comme un browser les
&#233;lements inclus...  J'aurai utilis&#233; les outils driveListebox,
dirlistbox, et filebox qui fonctionnent ind&#233;pendamment et sont
&#233;galement tr&#232;s rapide et ainsi qu'une listebox pour modifier le
comportement &#233;ventuellement non d&#233;sirable de la drive listebox et
encore seulement peut &#234;tre. Puis j'en aurai fait un template
r&#233;utilisable...

madbob

Quelle bibliothéque à cocher??

27 réponses

Discussions similaires