Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Boite de dialogue et ouverture de fichier

1 réponse
Avatar
azerty
Bonjour,

Je souhaiterai ouvrir une boite de dialogue qui me permette de choisir
un fichier :


Dim oFd As FileDialog

Set oFd = Application.FileDialog(msoFileDialogOpen)

With oFd


.InitialFileName = "C:\Documents and Settings\"

If .Show Then MsgBox (.SelectedItems(1))


End With



Mais surtout, me permette quand je sélectionne un fichier que celui-ci
s'ouvre.

Je suis sous Access 2007.


Merci

1 réponse

Avatar
Fabien
azerty a écrit :
Bonjour,

Je souhaiterai ouvrir une boite de dialogue qui me permette de choisir
un fichier :


Dim oFd As FileDialog

Set oFd = Application.FileDialog(msoFileDialogOpen)

With oFd


.InitialFileName = "C:Documents and Settings"

If .Show Then MsgBox (.SelectedItems(1))


End With



Mais surtout, me permette quand je sélectionne un fichier que celui-ci
s'ouvre.

Je suis sous Access 2007.


Merci


Salut,
Une piste http://officesystemaccess.seneque.net/msofiledialog.htm

@+