Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Objet FileDialog

Objet FileDialog

14 réponses
Avatar
Stéphane Lavergne
Bonjour,

J'utilise la commande :
Set fd = Application.FileDialog(msoFileDialogFilePicker)

Les propriétés Filters, AllowMultiSelect, InitialFileName sont bien
reconnues, mais pas la propriété :
Title

Faut-il 1 DLL supplémentaire ? ou la syntaxe du mot de la prorité n'est-elle
pas correcte ? ou autre ?

Merci d'avance

Stéphane Lavergne
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Stéphane Lavergne
Bonjour,

A défaut de réponse...
Pouvez-vous vérifier si la proprité Title de l'objet FileDialog fonctionne
chez vous ?

Je suis sur Access XP sur Windows XP Pro

Merci d'avance,
Stéphane Lavergne


"Stéphane Lavergne" a écrit dans le message de
news:
Bonjour,

J'utilise la commande :
Set fd = Application.FileDialog(msoFileDialogFilePicker)

Les propriétés Filters, AllowMultiSelect, InitialFileName sont bien
reconnues, mais pas la propriété :
Title

Faut-il 1 DLL supplémentaire ? ou la syntaxe du mot de la proprité
n'est-elle

pas correcte ? ou autre ?

Merci d'avance

Stéphane Lavergne




Avatar
joyeux atchoum
S'lt

J'utilise la commande :
Set fd = Application.FileDialog(msoFileDialogFilePicker)

Les propriétés Filters, AllowMultiSelect, InitialFileName sont bien
reconnues, mais pas la propriété :
Title


en général c'est lié à un pb de référence
j'avais un truc dans le genre avec l'automation avec word

essaye de savoir a quelle reference appartient ton truc et verifie bien
sa presence dans les references

voili
ja:)
WWWWWWWWWWWoooooooooooooooooouuuuuuuiiiiiiiiiiiiii !!!!!!

Avatar
Anor
Bonjour,


| Bonjour,
|
| A défaut de réponse...
| Pouvez-vous vérifier si la proprité Title de l'objet FileDialog
| fonctionne chez vous ?
|
| Je suis sur Access XP sur Windows XP Pro
|
| Merci d'avance,
| Stéphane Lavergne
|

Patience, Patience :-)
Tu peux tester la fonction suivante :

Function FilePicker() As String
'Nécessite la référence microsoft office x.x object library
Dim fd As FileDialog
Dim lng As Long

Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.title = "Veuillez sélectionner le fichier..."
fd.Show
For lng = 1 To fd.SelectedItems.Count
FilePicker = fd.SelectedItems.item(lng) & ";" & FilePicker
Next
Set fd = Nothing
End Function

Elle fonctionne sous WINXP Pro SP1 + Access 2002 SP2

Sinon, en cas de problèmes de déploiement (références qui ne suivent pas, tu peux utiliser l'API
GetOpenFileName (un exemple parmi d'autres ... http://www.anor.fr.st/files.htm)

--
à+
Arnaud
-------------------------------------------
Conseils d'utilisation, sites recommandés :
http://users.skynet.be/mpfa/
petit à petit, www.anor.fr.st fait son nid
-------------------------------------------
Avatar
Raymond
Bonsoir Arnaud.

Tu peux aussi utiliser:
Dim Dialogue As FileDialog
Dim Fichier As Variant
Set Dialogue = FileDialog(msoFileDialogOpen)
With Dialogue
.AllowMultiSelect = True
.ButtonName = "Ouvrir"
.InitialFileName = "*.mdb"
.Filters.Clear
.Filters.Add "Base de données Access", "*.mdb"
.Filters.Add "Feuilles de données Excel", "*.xls"
.Filters.Add "Documents Word", "*.doc"
.InitialView = msoFileDialogViewList
.Title = "Je recherche un fichier à ouvrir"
If .Show Then
For Each Fichier In .SelectedItems
MsgBox "Chemin du fichier sélectionné: " & Fichier
Next
Else
MsgBox "vous avez cliqué sur Annuler"
End If
End With

cet exemple est sur http://access.seneque.free.fr/dialogue_2002.htm
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Anor" a écrit dans le message de
news:
Patience, Patience :-)
Tu peux tester la fonction suivante :

Function FilePicker() As String
'Nécessite la référence microsoft office x.x object library
Dim fd As FileDialog
Dim lng As Long

Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.title = "Veuillez sélectionner le fichier..."
fd.Show
For lng = 1 To fd.SelectedItems.Count
FilePicker = fd.SelectedItems.item(lng) & ";" & FilePicker
Next
Set fd = Nothing
End Function

Elle fonctionne sous WINXP Pro SP1 + Access 2002 SP2


Avatar
Stéphane Lavergne
Bonjour,

En fait, j'avais déjà tapé ce code, mais c'est la propriété Title qui n'est
pas reconnu.
Pourtant les autres propriétés, tels que AllowMultiSelect, InitialFileName,
... fonctionnent.
La méthode Show fonctionne également.
J'ai bien, entre autres, la référence Microsoft Office 10.0 Object Library
de coché sous Access 2002 SP2 / Windows XP Pro SP1

----- Original Message -----
"Raymond" a écrit dans le message de
news:%23%
Bonsoir Arnaud.

Tu peux aussi utiliser:
Dim Dialogue As FileDialog
Dim Fichier As Variant
Set Dialogue = FileDialog(msoFileDialogOpen)
With Dialogue
.AllowMultiSelect = True
.ButtonName = "Ouvrir"
.InitialFileName = "*.mdb"
.Filters.Clear
.Filters.Add "Base de données Access", "*.mdb"
.Filters.Add "Feuilles de données Excel", "*.xls"
.Filters.Add "Documents Word", "*.doc"
.InitialView = msoFileDialogViewList
.Title = "Je recherche un fichier à ouvrir"
If .Show Then
For Each Fichier In .SelectedItems
MsgBox "Chemin du fichier sélectionné: " & Fichier
Next
Else
MsgBox "vous avez cliqué sur Annuler"
End If
End With

cet exemple est sur http://access.seneque.free.fr/dialogue_2002.htm
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Anor" a écrit dans le message de
news:
Patience, Patience :-)
Tu peux tester la fonction suivante :

Function FilePicker() As String
'Nécessite la référence microsoft office x.x object library
Dim fd As FileDialog
Dim lng As Long

Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.title = "Veuillez sélectionner le fichier..."
fd.Show
For lng = 1 To fd.SelectedItems.Count
FilePicker = fd.SelectedItems.item(lng) & ";" & FilePicker
Next
Set fd = Nothing
End Function

Elle fonctionne sous WINXP Pro SP1 + Access 2002 SP2





Avatar
Raymond
RE.

Il doit y avoir une faute d'orthographe à quelque part.
affiche ta fonction.

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Stéphane Lavergne" a écrit dans le
message de news:
Bonjour,

En fait, j'avais déjà tapé ce code, mais c'est la propriété Title qui
n'est

pas reconnu.
Pourtant les autres propriétés, tels que AllowMultiSelect,
InitialFileName,

... fonctionnent.
La méthode Show fonctionne également.
J'ai bien, entre autres, la référence Microsoft Office 10.0 Object Library
de coché sous Access 2002 SP2 / Windows XP Pro SP1


Avatar
Stéphane Lavergne
Le problème peut-il provenir de ma DLL ?

Je vois bien dans l'explorateur d'objets que :

Class FileDialog
Membre de Office

Library Office
C:Program FilesFichiers communsMicrosoft SharedOffice10MSO.DLL
Microsoft Office 10.0 Object Library

Propriétés du fichier MSO.DLL :
Taille : 9,40 Mo (9 857 608 octets)
Créé le : dimanche 23 juin 2002, 05:37:46
Version : 10.0.4219.0
Avatar
Raymond
RE.

Title n'est pas reconnu, à la compilation ? bizarre.

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Stéphane Lavergne" a écrit dans le
message de news:O%
Le problème peut-il provenir de ma DLL ?

Je vois bien dans l'explorateur d'objets que :

Class FileDialog
Membre de Office

Library Office
C:Program FilesFichiers communsMicrosoft SharedOffice10MSO.DLL
Microsoft Office 10.0 Object Library

Propriétés du fichier MSO.DLL :
Taille : 9,40 Mo (9 857 608 octets)
Créé le : dimanche 23 juin 2002, 05:37:46
Version : 10.0.4219.0




Avatar
Stéphane Lavergne
Ouuppsss...

Désolé, mille fois désolé <implore pardon>

J'avais tapé ceci :
.Title "Sélectionner le fichier"
au lieu de :
.Title = "Sélectionner le fichier"

Je crois que j'ai besoin de vacances :p

Stéphane
Avatar
Raymond
Je te pardonne mon fils, travaille en paix.

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Stéphane Lavergne" a écrit dans le
message de news:
Ouuppsss...

Désolé, mille fois désolé <implore pardon>

J'avais tapé ceci :
.Title "Sélectionner le fichier"
au lieu de :
.Title = "Sélectionner le fichier"

Je crois que j'ai besoin de vacances :p

Stéphane




1 2