VBA pour arcgis9.3

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:

---

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