Discussion :

[modus57]

Bonjour.

Je n'ai pas trouvé de réponse malgré mes recherches sur internet concernant l'erreur provoquée lorsque je sélectionne un dossier avec Application.FileDialog(msoFileDialogFolderPicker) sur le réseau cela n'active pas l'Userform et ça affiche le message "erreur d'exécution '35601': élément introuvable".

Par contre si je sélectionne un dossier sur le poste local, aucuns soucis l'Userform s'affiche normalement.

Je suis bloqué, avez-vous une petite idée.

Merci d'avance pour vos réponses.

[modus57]

Bonjour.

Après avoir longuement chercher la cause de ce message et bidouiller j'ai fini par trouver une solution bâtarde.

J'ai ajouter :

Code :

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

On Error Resume Next

avant

Code :

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

Set tw = Me.TreeView1

Et ça fonctionne !

Ceci dit je ne comprends et je m'explique pas pourquoi ce message ?

Merci pour un petit commentaire de votre part qui serait le bienvenu.

[unparia]

Bonjour regarde ce que te retourne ce que je mets ici en rouge lorsque tu as choisi un fichier et lorsque tu n'en as pas choisi. Cela devrait t'éclairer et éviter de traiter en gestion d'erreur, non ? --->>

Code :

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

1
2
3
4
with application.filedialog(msofiledialogopen)
        .show
        msgbox .selecteditems.count
 end with

[modus57]

Bonsoir.

Lorsque je choisi un fichier, au clic sur "Ouvrir" la MsgBox contient la valeur "1" et aucune erreur se produit.

Si je n'ai pas choisi de fichier, au clic sur "Annuler" la MsgBox contient la valeur "0"" et aucune erreur se produit.

Cela m'évite de traiter la gestion d'erreur.

Mais je souhaiterai ne pas avoir à choisir de fichier et simuler le clic sur "Annuler" pour automatiser la procédure.

Comment procéder ?

Merci d'avance pour votre réponse @+

[unparia]

Mais je souhaiterai ne pas avoir à choisir de fichier et simuler le clic sur "Annuler"

Euh ...
Pourquoi alors afficher cette boîte de dialogue ?
Je ne te comprends vraiment pas, là ...

[modus57]

C'est un malentendu, dans mon post initial je parle de sélection d'un dossier :

Application.FileDialog(msoFileDialogFolderPicker)

J'étais septique et je ne comprenais pas la démarche, mais bon j'ai quand même testé, c'est pas négatif puisque j'évite la gestion de l'erreur.

Effectivement dans ce cas cela affiche la boîte de dialogue "msoFileDialogFolderPicker" et ensuite "msofiledialogopen".

Alors, soit je gère l'erreur ou il faut simuler le clic sur "Annuler" pour automatiser la procédure.