Salut,

la moitié de programme est réalisée mais le problème il m'affiche la boite de dialog et quand je clique sur un fichier il ne me retourne pas son nom et il me génère encore un erreur de type différent,cette fois ci :"la méthode 'BrowseForFolder' de l'objet ' IShellDispatch5' a échoué"

voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub tets()
 
 
Dim monraster_src, descrFichier, objFichier, objDialog, OpenFile, strFileName
 
Set monraster_src = CreateObject("Shell.Application")
 
'Ouverture de la boîte de dialogue pour sélectionner le fichier voulu
Set objFichier = monraster_src.BrowseForFolder(&H0&, "Veuillez indiquer le chemin d'accès au fichier" & descrFichier & " à importer", &H4000&)
Set objDialog = CreateObject("SAFRCFileDlg.FileOpen")
objDialog.OpenFileOpenDlg
OpenFile = objDialog.Filename
 
strFileName = objDialog.Filename
MsgBox strFileName
 
End Sub
merci d'avance pour vos intervention