Discussion :

[delphineleclerc1]

Bonjour,

J'ai une commande qui permet de lancer l'explorateur sur un sous dossier portant un numéro de client , lorsque je sélectionne ce no de client dans un formulaire. Avec la fonction MkDir stDossier, si le sous dossier n'existe pas, Access le créé automatiquement. Jusque là, ça marche au poil!

Le pb est quà chaque fois que le sous dossier existe, l'explorateur s'ouvre bien mais le message d'erreur suivant apparaît, ce qui est particulièrement pénible :

Erreur d'éxécution '75'
Erreur d'accès chemin/Fichier

Si qqun a une idée, surtout qu'il n'hésite pas ! Merci d'avance !



Ci-joint le code utilisé si besoin.

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande136_Click()
Dim stNumClient As String
Dim stDossier As String
stNumClient = N° ' N° = liste client...
stDossier = "mes documents\CLIENTS\" & stNumClient & "\" 'Construit le nom du répertoire à ouvrir... "
Shell "explorer " & stDossier, vbNormalFocus
MkDir stDossier
End Sub

Si je n'ai pas été suffisamment claire, n'hésitez pas à me contacter...

Delph

[stan21]

bonjour,

pour supprimer tous les messages d'erreur, ajout la ligne suivant au debut de ta fonction :

Code :

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

on error goto fin

puis celle ci a la fin :

Code :

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

fin:

[delphineleclerc1]

Service rapide et de qualité !!!! Whaouu ! Merci beaucoup, Ca marche impec !

Bonne journée


Delph