svp je je veux programmer un bouton parcourir pour récupérer les couches d'une base de donner j'ai utiliser ce code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
On Error Resume Next
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .Show
        projet1.TextBox2.Text = .SelectedItems(1)
    End With
mais il me génère une erreur 438 car msoFileDialogOpen= empty je programme avec VBA pour arcgis9.3 pouvez vous me corriger cette erreurs merci d'avance