Discussion :

[he-gauth]

Bonjour,

J'ai un pb, je n'arrive pas à utiliser l'objet FileDialog même en cochant Microsoft Office 12.0 Object Library pour mon projet VBA. L'erreur est la suivante :
"Type défini par l'utilisateur non défini"

Y a t il autre chose à faire ?

Voici mon code :

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 Private Sub btnInserer_Click()
 
'Déclaration des variables
Dim strFichier As String
Dim oFD As FileDialog
'Paramètre la fenêtre Ouvrir
Set oFD = Application.FileDialog(msoFileDialogOpen)
With oFD
    'Ajoute les filtres pour fichiers images et tous
    With .Filters
        .Clear
        .Add "Fichiers images", "*.jpg;*.jpeg;*.bmp;*.gif", 1
        .Add "Tous", "*.*", 2
    End With
    'Renseignement du titre
    .Title = "Insérer une image"
    'Ouvre l'explorateur dans le fichier 'Mes documents' du User connecté.
    .InitialFileName = Environ("USERPROFILE") & "\Mes documents\Mes images"
    'Interdit la multi sélection
    .AllowMultiSelect = False
    'Permet de choisir le mode d'affichage dans l'explorateur (ici apperçu)
    .InitialView = msoFileDialogViewPreview
    'Permet de personnaliser le bouton.
    .ButtonName = "Insérer"
    'Affiche la fenêtre
    If .Show Then
        On Error GoTo fini  'gestion erreur pour control importation
        'Retourne un erreur si pas fichier image.
        Me.Image1.Picture = .SelectedItems(1)
        'Vide du cadre image.
        Me.Image1.Picture = ""
        'Extraction du nom du fichier à copier.
        strFichier = Mid(.SelectedItems(1), InStrRev(.SelectedItems(1), "\"))
        'Copie du fichier sélectionné vers le sous dossier de la base.
        FileCopy .SelectedItems(1), CurrentProject.Path & "\images" & strFichier
        'Chargement dans control du chemin de l'image (sous dossier base).
        Me.Photos = CurrentProject.Path & "\images" & strFichier
        'Rafraîchit le Formulaire.
        Me.Refresh
    End If
End With
Exit Sub
fini:
    Select Case Err
        Case 2220
            MsgBox "L'importation du fichier ne c'est pas effectué normalement.", _
                vbCritical, "Erreur fichier Image"
        Case Else
            MsgBox Err.Number & Chr(13) & Err.Description
    End Select
End Sub

J'ai essayer sur 2 ordi : même résultat !

Merci de vos réponses

Henry

[Dolphy35]

Bonjour et bienvenue sur le Forum,

Où s'arrête le pointeur lors de cette erreur ?

Dolphy

[he-gauth]

Merci pour cette réponse rapide, le pointeur s'arréte sur la ligne de code suivante :

Dim oFD As FileDialog

J'ai l'impression qu'il ne va pas faire la référence avec les object office 12

Henry

[Dolphy35]

Merci pour cette réponse rapide, le pointeur s'arréte sur la ligne de code suivante :

Dim oFD As FileDialog

J'ai l'impression qu'il ne va pas faire la référence avec les object office 12

Henry

les objets FileDialog correspondent bien à la référence Microsoft Office 12.0 Object Library.

Esseye de compacter ta base et de la ré-ouvrir ensuite tout en laissant la référence cochée

[Acarp47]

J'ai eu exactement le même problème. J'ai importé une base Access 2000 tournant sur 2003 vers access 2000.
Sous access 2003, il n'y avait aucun probleme pour utiliser un filedialog (La librairie cochée était Microsoft office 11.0 object library)

Lors du passage sur Access 2000, la référence disponible est Microsoft office 9.0 object library.
J'ai copié la référence access 2003 (mso.dll) sur une clé USB et j'ai essayé de l'importer sur l'autre machine (via le bouton "parcourir" de la fenetre "références access 9"), en vain. Ma nouvelle référence n'apparait pas.

J'ai l'impression que cette référence ne peut marcher que sous office 11, et qu'il est impossible d'utiliser filedialog sous 2000...

Si quelqu'un connait un moyen équivalent pour ouvrir une fenetre où l'on peut sélectionner un repertoire....

Edit : j'ajoute que je n'ai pas accès à l'aide d'access 2000, ce qui ne facilite évidemment pas les choses!!!

[loufab]

Bonjour,
Pour qu'une référence apparaisse dans le menu des références il faut qu'elle soit déclaré en base de registre.

Par contre mélanger des versions de dll/olb office n'est pas conseillé.

Cordialement,

[Domi2]

Bonjour,

Sauf erreur de ma part, FileDialog n'est disponible que depuis la version 2002...

Domi2

[Invité]

Bonjour

Bonjour,

Sauf erreur de ma part, FileDialog n'est disponible que depuis la version 2002...

Domi2

Je confirme, personnellement pour une compatibilité totale je passe par les API, le code est dans la ou les sources Access, je ne sais plus laquelle.

Starec

[Domi2]

Bonjour,

Oui, c'est ici.

Avec ça, pas de soucis de versions...

Domi2

[Acarp47]

Merci pour vos réponses, je vais essayer ca tout de suite!

[Acarp47]

Ca marche parfaitement. J'avoue ne pas cerner parfaitement ce qui est fait, mais ca a le mérite de rendre mon appli portable et fonctionnelle. Merci pour votre aide!