Bonjour à tous,

J'ai récupéré un script VBA permettant, via des boites de dialogue, de découper en plusieurs dalles un fichier raster. (via un programme FWtools)
Tout marche bien sauf une chose, lorsqu'une boite de dialogue s'ouvre pour choisir le fichier raster à importer, j'obtiens l'erreur suivante :

Erreur d'exécution '-2147024894 (80070002)':

La méthode 'BrowseForFolder' de l'objet 'IShellDispatch4' a échoué.
Je colle les lignes concernées lorsque je fais un débug :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Set monraster_src = CreateObject("Shell.Application")
 
Set objFichier = monraster_src.BrowseForFolder(&H0&, "Veuillez indiquer le chemin d'accès au fichier " & descrFichier & " à importer", &H4000&)
Le plus étonnant est que ce script fonctionne sans erreur chez la personne m'ayant fourni le code.

Quelq'un pourrait-il m'aider ?

Merci d'avance