Open file dialogRésolu

Question

Salut,

Je voudrais savoir comment faire ouvrir une boite de dialogue d'ouveture de fichier avec Access 2000.

Merci

azt

aztcaLISS · Accepted Answer

Salut, 

J'ai trouvé un example sur ce site:
http://www.databasedev.co.uk/common_dialog.html

azt

Molenn · Answer

Une copie d'un bout de code que j'ai mis dans un autre post récemment. C'est dans PowerPoint, mais ça doit aussi fonctionner dans ACCESS (puisque lorsque je l'ai pondu pour PowerPoint, j'avais repris un truc que j'avais fait dans ACCES, ça devrait coller :p) :

Private Sub CommandButton1_Click()

    Dim OuvrirFichier As FileDialog
    Dim FichierSélectionné As Variant
    
    Set OuvrirFichier = Application.FileDialog( _
        Type:=msoFileDialogOpen)
        
    With OuvrirFichier
        .AllowMultiSelect = True
        .Show
        For Each FichierSélectionné In .SelectedItems
            MsgBox "Chemin du fichier sélectionné : " & FichierSélectionné
        Next
    End With
    
    Set OuvrirFichier = Nothing
    
End Sub

Molenn

aztcaLISS · Answer

Merci Molenn


Je vais essayer.

azt

sifflet_ · Answer

Moi, j'ai dû faire ça pour mon projet, mais il y a pas mal de cases à
cocher dans les références de Visual-Basic (tools->references...) .


Entre autres, il faut importer la bibliothèque "Comdlg32.ocx" dans
C:\WINNT\SYSTEM32 qui correspond au "Microsoft Common Dialog Control
6.0 (SP3)". Si t'arrives pas, je t'énumèe la liste de ce qui est coché
chez moi. A+


Sifflet

aztcaLISS · Answer

En fait j'ai pris l'example trouvé sur: http://www.databasedev.co.uk/common_dialog.html

Merci quand meme.

azt

jamil1976 · Answer

de Jamil BETTAIEB:  


------------------------------


Private Sub CommandButton1_Click()
    'Declare a variable as a FileDialog object.
    Dim fd As FileDialog


    'Create a FileDialog object as a File Picker dialog.
    Set fd = Application.FileDialog(msoFileDialogFilePicker)


    'Declare a variable to contain the path
    Dim vrtSelectedItem As Variant


    'Use a With...End With block to reference the FileDialog object.
    With fd


        'Add a filter that includes GIF and JPEG images and make it the first item in the list.
        .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
       
        'If the user presses the action button...
        If .Show = -1 Then


            'Step through each string in the FileDialogSelectedItems collection.
            For Each vrtSelectedItem In .SelectedItems


                'vrtSelectedItem is a String that contains the path of each selected item.
                'You can use any file I/O functions that you want to work with this path.
                'This example simply displays the path in a message box.
                MsgBox "Selected item's path: " & vrtSelectedItem


            Next vrtSelectedItem
        'If the user presses Cancel...
        Else
        End If
    End With


    'Set the object variable to Nothing.
    Set fd = Nothing




End Sub

HansPrestat · Answer

Sous VBA j'ai essayé mais ça ne marche pas.

Zozo le clown

jamil1976 · Answer

Non ça c'est avec VB.Net, 
avec VBA il faut faire tes modifs
a+

Open file dialog

8 réponses

Votre réponse

Discussions similaires