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 URGENT Boite de dialog windows (pour les pros)

URGENT Boite de dialog windows (pour les pros)

4 réponses
Avatar
lolo
bonjour,
j'utilise ce code pour ouvrir la fenetre windows de=20
selection de fichier.
Sa fonctionne du tonner avec access mais sa marche pas=20
avec access runtime.
Quelqu'un a t'il une solution?
Merci d'avance

Dim Fd As FileDialog
Dim Path As String
' choix du fichier par l'explorateur
Set Fd =3D Application.FileDialog(msoFileDialogOpen)
' r=E9cup=E9ration du nom et du chemin du fichier s=E9lectionn=E9
With Fd
.Filters.Clear
If Extension <> "" Then
.Filters.Add "Texte", "*." & Extension, 1
End If
.AllowMultiSelect =3D False ' multis=E9lection interdite
If .Show =3D -1 Then
Path =3D .SelectedItems(1) ' m=E9morisation du fichier=20
s=E9lectionn=E9
OuvrirRechFichier =3D Path
Else
'The user pressed Cancel.
Exit Function
End If
End With

Set Fd =3D Nothing
Signaler un problème avec ce contenu

4 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
Avatar
Raymond
Bonjour.

pas de réponse mais une question:
le pc avec le runtime est-il en access 2002 mini ?

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


"lolo" a écrit dans le message de
news:093201c39ed2$2ec30780$
bonjour,
j'utilise ce code pour ouvrir la fenetre windows de
selection de fichier.
Sa fonctionne du tonner avec access mais sa marche pas
avec access runtime.
Quelqu'un a t'il une solution?
Merci d'avance

Dim Fd As FileDialog
Dim Path As String
' choix du fichier par l'explorateur
Set Fd = Application.FileDialog(msoFileDialogOpen)
' récupération du nom et du chemin du fichier sélectionné
With Fd
.Filters.Clear
If Extension <> "" Then
.Filters.Add "Texte", "*." & Extension, 1
End If
.AllowMultiSelect = False ' multisélection interdite
If .Show = -1 Then
Path = .SelectedItems(1) ' mémorisation du fichier
sélectionné
OuvrirRechFichier = Path
Else
'The user pressed Cancel.
Exit Function
End If
End With

Set Fd = Nothing
Avatar
il est en office XP
-----Message d'origine-----
Bonjour.

pas de réponse mais une question:
le pc avec le runtime est-il en access 2002 mini ?

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


"lolo" a écrit dans le message
de

news:093201c39ed2$2ec30780$
bonjour,
j'utilise ce code pour ouvrir la fenetre windows de
selection de fichier.
Sa fonctionne du tonner avec access mais sa marche pas
avec access runtime.
Quelqu'un a t'il une solution?
Merci d'avance

Dim Fd As FileDialog
Dim Path As String
' choix du fichier par l'explorateur
Set Fd = Application.FileDialog(msoFileDialogOpen)
' récupération du nom et du chemin du fichier sélectionné
With Fd
..Filters.Clear
If Extension <> "" Then
.Filters.Add "Texte", "*." & Extension, 1
End If
..AllowMultiSelect = False ' multisélection interdite
If .Show = -1 Then
Path = .SelectedItems(1) ' mémorisation du fichier
sélectionné
OuvrirRechFichier = Path
Else
'The user pressed Cancel.
Exit Function
End If
End With

Set Fd = Nothing

.



Avatar
Benoit Compoint
Bonjour,

Effectivement la méthode FileDialog ne fonctionne pas avec le runtime
d'Access 2002.
Ce problème est décrit dans l'article technique 510291 (allemand) de la base
de connaissances Microsoft :
http://support.microsoft.com/default.aspx?scid=KB;DE;510291

Cet article fournit comme solution le code source VBA d'une fonction
"OpenDialog" qui fait appel à la fonction API GetOpenFileName.

Benoît Compoint.

wrote in message
news:037001c39ed7$cc8150d0$
il est en office XP
-----Message d'origine-----
Bonjour.

pas de réponse mais une question:
le pc avec le runtime est-il en access 2002 mini ?

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


"lolo" a écrit dans le message
de

news:093201c39ed2$2ec30780$
bonjour,
j'utilise ce code pour ouvrir la fenetre windows de
selection de fichier.
Sa fonctionne du tonner avec access mais sa marche pas
avec access runtime.
Quelqu'un a t'il une solution?
Merci d'avance

Dim Fd As FileDialog
Dim Path As String
' choix du fichier par l'explorateur
Set Fd = Application.FileDialog(msoFileDialogOpen)
' récupération du nom et du chemin du fichier sélectionné
With Fd
..Filters.Clear
If Extension <> "" Then
.Filters.Add "Texte", "*." & Extension, 1
End If
..AllowMultiSelect = False ' multisélection interdite
If .Show = -1 Then
Path = .SelectedItems(1) ' mémorisation du fichier
sélectionné
OuvrirRechFichier = Path
Else
'The user pressed Cancel.
Exit Function
End If
End With

Set Fd = Nothing

.



Avatar
Raymond
Bonjour Benoit.

je complète la réponse.
même en Mdb l'option opensave ne fonctionne pas.
Il faut obligatoirement passer par l'api openfilename qu'on trouve sur tous
les sites dont: http://access.seneque.free.fr/ouverture_document.htm
Apparemment en 2003 ça fonctionne mieux mais je n'ai pas testé sur le
runtime.

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


"Benoit Compoint" a écrit dans le message de
news:
Bonjour,

Effectivement la méthode FileDialog ne fonctionne pas avec le runtime
d'Access 2002.
Ce problème est décrit dans l'article technique 510291 (allemand) de la
base

de connaissances Microsoft :
http://support.microsoft.com/default.aspx?scid=KB;DE;510291

Cet article fournit comme solution le code source VBA d'une fonction
"OpenDialog" qui fait appel à la fonction API GetOpenFileName.

Benoît Compoint.