Discussion :

[Pitou5464]

salut à tous,

j'ai un navigateur dans un de mes formulaires, qui sur l'evenement sur activation de mon formulaire, execute ce code:

Code :

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

1
2
3
4
5
 
Dim sta as string
sta = Me.N°.value
        WebBrowser1.Visible = True
        WebBrowser1.Navigate "\\Lenovo-01\sfca travail\DossiersAccess\" & sta

Le probleme c'est que quand le dossier n'existe pas, il rame.
Je voudrais faire une vérification de l'existence du dossier et faire un exit sub si il n'existe pas ou msgbox"voulez-vous créer le dossier car il n'existe pas.
Merci pour votre aide

[Pitou5464]

en fait il fallait rajouter dans le code

Code :

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

1
2
3
4
5
6
7
Dim fso As New FileSystemObject
If fso.FolderExists("\\Lenovo-01\sfca travail\DossiersAccess\" & sta) Then
        WebBrowser1.Visible = True
        WebBrowser1.Navigate "\\Lenovo-01\sfca travail\DossiersAccess\" & sta
Else
    MsgBox ("Il n'existe pas de dossier pour cette personne ou cette entreprise. veuillez en créer un.")
End If