J'utilise un objet FileDialog pour s=E9lectionner des=20
fichiers dans une appli Access 2003.
Le code pour utiliser mon objet est le suivant:
Set oDialog =3D FileDialog(msoFileDialogFilePicker)
With oDialog
.AllowMultiSelect =3D False
.ButtonName =3D "S=E9lectionner"
.InitialFileName =3D PhotosFormPath
.Filters.Clear
.Filters.Add "Photos", "*.jpg"
.Filters.Add "Tous", "*.*"
.InitialView =3D msoFileDialogViewThumbnail
.Title =3D "S=E9lectionnez une photo pour ce dispositif"
If .Show Then
iPos =3D InStrRev(.SelectedItems(1), "\")
DisPho =3D Right(.SelectedItems(1), Len
(.SelectedItems(1)) - iPos)
End If
End With
Mon soucis est que certaines fois (la reproduction n'est=20
pas automatique, j'ai pas trouv=E9 la s=E9quence), une erreur=20
est lev=E9e lors du passage sur .Filters.Clear...
Avez-vous des pistes de correction?
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
Raymond [mvp]
Bonjour.
je n'ai pas de réponses mais je me pose un question : tu utilises msoFileDialogFilePicker pour récupérer le chemin complet et ensuite tu partages l'item en chemin et nom de fichier, ça semble bizarre comme idée ? quelques remarques sur la page : http://officesystem.access.free.fr/msofiledialog.htm
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"karim" a écrit dans le message de news: 10a701c4e1c5$74496330$ Bonjour,
J'utilise un objet FileDialog pour sélectionner des fichiers dans une appli Access 2003.
Le code pour utiliser mon objet est le suivant:
Set oDialog = FileDialog(msoFileDialogFilePicker) With oDialog .AllowMultiSelect = False .ButtonName = "Sélectionner" .InitialFileName = PhotosFormPath .Filters.Clear .Filters.Add "Photos", "*.jpg" .Filters.Add "Tous", "*.*" .InitialView = msoFileDialogViewThumbnail .Title = "Sélectionnez une photo pour ce dispositif" If .Show Then iPos = InStrRev(.SelectedItems(1), "") DisPho = Right(.SelectedItems(1), Len (.SelectedItems(1)) - iPos) End If End With
Mon soucis est que certaines fois (la reproduction n'est pas automatique, j'ai pas trouvé la séquence), une erreur est levée lors du passage sur .Filters.Clear... Avez-vous des pistes de correction?
Merci d'avance
Karim
Bonjour.
je n'ai pas de réponses mais je me pose un question : tu utilises
msoFileDialogFilePicker pour récupérer le chemin complet et ensuite tu
partages l'item en chemin et nom de fichier, ça semble bizarre comme idée ?
quelques remarques sur la page :
http://officesystem.access.free.fr/msofiledialog.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"karim" <karim.hasnaoui.nospam@estuaire-isi.com> a écrit dans le message de
news: 10a701c4e1c5$74496330$a501280a@phx.gbl...
Bonjour,
J'utilise un objet FileDialog pour sélectionner des
fichiers dans une appli Access 2003.
Le code pour utiliser mon objet est le suivant:
Set oDialog = FileDialog(msoFileDialogFilePicker)
With oDialog
.AllowMultiSelect = False
.ButtonName = "Sélectionner"
.InitialFileName = PhotosFormPath
.Filters.Clear
.Filters.Add "Photos", "*.jpg"
.Filters.Add "Tous", "*.*"
.InitialView = msoFileDialogViewThumbnail
.Title = "Sélectionnez une photo pour ce dispositif"
If .Show Then
iPos = InStrRev(.SelectedItems(1), "")
DisPho = Right(.SelectedItems(1), Len
(.SelectedItems(1)) - iPos)
End If
End With
Mon soucis est que certaines fois (la reproduction n'est
pas automatique, j'ai pas trouvé la séquence), une erreur
est levée lors du passage sur .Filters.Clear...
Avez-vous des pistes de correction?
je n'ai pas de réponses mais je me pose un question : tu utilises msoFileDialogFilePicker pour récupérer le chemin complet et ensuite tu partages l'item en chemin et nom de fichier, ça semble bizarre comme idée ? quelques remarques sur la page : http://officesystem.access.free.fr/msofiledialog.htm
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"karim" a écrit dans le message de news: 10a701c4e1c5$74496330$ Bonjour,
J'utilise un objet FileDialog pour sélectionner des fichiers dans une appli Access 2003.
Le code pour utiliser mon objet est le suivant:
Set oDialog = FileDialog(msoFileDialogFilePicker) With oDialog .AllowMultiSelect = False .ButtonName = "Sélectionner" .InitialFileName = PhotosFormPath .Filters.Clear .Filters.Add "Photos", "*.jpg" .Filters.Add "Tous", "*.*" .InitialView = msoFileDialogViewThumbnail .Title = "Sélectionnez une photo pour ce dispositif" If .Show Then iPos = InStrRev(.SelectedItems(1), "") DisPho = Right(.SelectedItems(1), Len (.SelectedItems(1)) - iPos) End If End With
Mon soucis est que certaines fois (la reproduction n'est pas automatique, j'ai pas trouvé la séquence), une erreur est levée lors du passage sur .Filters.Clear... Avez-vous des pistes de correction?
Merci d'avance
Karim
Karim
Merci pour le lien
Je continue l'étude, et si je trouve qqchose, je posterai une réponse.
Karim
-----Message d'origine----- Bonjour.
je n'ai pas de réponses mais je me pose un question : tu utilises
msoFileDialogFilePicker pour récupérer le chemin complet et ensuite tu
partages l'item en chemin et nom de fichier, ça semble bizarre comme idée ?
quelques remarques sur la page : http://officesystem.access.free.fr/msofiledialog.htm
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"karim" a écrit dans le message de
news: 10a701c4e1c5$74496330$ Bonjour,
J'utilise un objet FileDialog pour sélectionner des fichiers dans une appli Access 2003.
Le code pour utiliser mon objet est le suivant:
Set oDialog = FileDialog(msoFileDialogFilePicker) With oDialog .AllowMultiSelect = False .ButtonName = "Sélectionner" .InitialFileName = PhotosFormPath .Filters.Clear .Filters.Add "Photos", "*.jpg" .Filters.Add "Tous", "*.*" .InitialView = msoFileDialogViewThumbnail .Title = "Sélectionnez une photo pour ce dispositif" If .Show Then iPos = InStrRev(.SelectedItems(1), "") DisPho = Right(.SelectedItems(1), Len (.SelectedItems(1)) - iPos) End If End With
Mon soucis est que certaines fois (la reproduction n'est pas automatique, j'ai pas trouvé la séquence), une erreur est levée lors du passage sur .Filters.Clear... Avez-vous des pistes de correction?
Merci d'avance
Karim
.
Merci pour le lien
Je continue l'étude, et si je trouve qqchose, je posterai
une réponse.
Karim
-----Message d'origine-----
Bonjour.
je n'ai pas de réponses mais je me pose un question : tu
utilises
msoFileDialogFilePicker pour récupérer le chemin complet
et ensuite tu
partages l'item en chemin et nom de fichier, ça semble
bizarre comme idée ?
quelques remarques sur la page :
http://officesystem.access.free.fr/msofiledialog.htm
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"karim" <karim.hasnaoui.nospam@estuaire-isi.com> a écrit
dans le message de
J'utilise un objet FileDialog pour sélectionner des
fichiers dans une appli Access 2003.
Le code pour utiliser mon objet est le suivant:
Set oDialog = FileDialog(msoFileDialogFilePicker)
With oDialog
.AllowMultiSelect = False
.ButtonName = "Sélectionner"
.InitialFileName = PhotosFormPath
.Filters.Clear
.Filters.Add "Photos", "*.jpg"
.Filters.Add "Tous", "*.*"
.InitialView = msoFileDialogViewThumbnail
.Title = "Sélectionnez une photo pour ce dispositif"
If .Show Then
iPos = InStrRev(.SelectedItems(1), "")
DisPho = Right(.SelectedItems(1), Len
(.SelectedItems(1)) - iPos)
End If
End With
Mon soucis est que certaines fois (la reproduction n'est
pas automatique, j'ai pas trouvé la séquence), une erreur
est levée lors du passage sur .Filters.Clear...
Avez-vous des pistes de correction?
Je continue l'étude, et si je trouve qqchose, je posterai une réponse.
Karim
-----Message d'origine----- Bonjour.
je n'ai pas de réponses mais je me pose un question : tu utilises
msoFileDialogFilePicker pour récupérer le chemin complet et ensuite tu
partages l'item en chemin et nom de fichier, ça semble bizarre comme idée ?
quelques remarques sur la page : http://officesystem.access.free.fr/msofiledialog.htm
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"karim" a écrit dans le message de
news: 10a701c4e1c5$74496330$ Bonjour,
J'utilise un objet FileDialog pour sélectionner des fichiers dans une appli Access 2003.
Le code pour utiliser mon objet est le suivant:
Set oDialog = FileDialog(msoFileDialogFilePicker) With oDialog .AllowMultiSelect = False .ButtonName = "Sélectionner" .InitialFileName = PhotosFormPath .Filters.Clear .Filters.Add "Photos", "*.jpg" .Filters.Add "Tous", "*.*" .InitialView = msoFileDialogViewThumbnail .Title = "Sélectionnez une photo pour ce dispositif" If .Show Then iPos = InStrRev(.SelectedItems(1), "") DisPho = Right(.SelectedItems(1), Len (.SelectedItems(1)) - iPos) End If End With
Mon soucis est que certaines fois (la reproduction n'est pas automatique, j'ai pas trouvé la séquence), une erreur est levée lors du passage sur .Filters.Clear... Avez-vous des pistes de correction?
