Discussion :

[juanpa]

Bonjour,

Etant un newbie sur Access, j'aurais besoin de lumières.

Dans le cadre d'un stage on m'a demander d’améliorer une "appli" access.

Le but était de rajouter un bouton pour ouvrir l'explorateur windows afin d'y sélectionner un dossier et de récupérer son chemin d'accès.
J'ai trouvé un script, ayant aucun connaissance en vba, qui faut ce qu'on lui demande, je récupère le chemin dans une variable, ça marche bien.

Mais après j'ai une fonction qui parcourt les dossiers et éventuellement sous-dossiers quand il y en a, afin d'y chercher des fichiers.

Seulement voilà, j'aimerais savoir comment faire un genre de catch error, afin d'éviter la fenêtre debug avec le message : "erreur .... droit accès" lorsque que l'on veut parcourir un dossier ( ou un dossier contenant un sous-dossier) avec des droits restreint, comme le dossier windows par exemple.

merci.

PS: après réflexion me demande si j'ai posté au bon endroit :s

EDIT :

Bon bah en cherchant un peu j'ai trouvé plus ou moins comment gérer les erreurs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On Error GoTo Err_Browser

..et plus loi le traitement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Err_Browser:
    MsgBox Err.Description
    Resume Next

Maintenant comment rajouter un bouton genre Skip pour interrompre la fonction plutôt que de la poursuivre.


Merci

[loufab]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Exit sub

au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 resume next

,
tout simplement !

Cordialement,

Ps : Non tu n'as pas posté au bon endroit, les problèmes VBA c'est dans le forum VBA.

[juanpa]

Merci beaucoup !