Bon ben comme d'habitude on va se la faire à la one-again...
Résolu en utilisant la propriété Dir :
Code :
- 'Vérifie si le chemin est valide
- MyPath = Dir(Chemin.Value)
- If MyPath = "" Then
- MsgBox "Chemin d'accès au dossier inexistant"
- Exit Sub
- Else
- chemin_export = Chemin.Value
- End If
|
Je ne sais pas trop ce que Dir renvoit au juste (à part une chaine de caractères). Tout ce que je sais, c'est que quand le chemin argument n'existe pas, il renvoit une chaine vide. Donc voilà.
---------------
Dyslexics have more fnu.
