Discussion :

[kirtap]

Bonjour,
Je ne parviens pas à réaliser ce que je définis dans l'intitulé.
Avant d'y accéder, je contrôle depuis A, l'existence du dossier sur B (A & B sont sur le même réseau domestique), par ce code :
(Pour information, le dossier existe bien sur B)

Sub proc1
msgbox DossierExiste("\\PC_B\Dossier_B")
End sub

Sub DossierExiste(NomDossier as String) as Boolean
DossierExiste = Dir(NomDossier, vbSystem + vbDirectory + vbHidden)
end sub

En retour, j'obtiens une Erreur d'exécution 13 - Incompatibilité de type

Sauriez vous m'aider ?
Je vous en remercie par avance
Kirtap

[jurassic pork]

Hello,
et avec un \ à la fin de la chaîne ?

Code :

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

msgbox DossierExiste("\\PC_B\Dossier_B\")

ou alors faire un montage par mklink.

Ami calmant, J.P

[kirtap]

Merci de votre suggestion.
Concernant la ponctuation, je pense avoir tout essayé ... mais non, même avec un '\' en fin ça ne fonctionne pas ....
Depuis A, j'ai accédé manuellement au dossier voulu sur B et fait un copier/coller de l'adresse de l'explorateur dans ma procédure.
Je ne connais pas mklink (?)

[jurassic pork]

Regarde ici pour savoir comment utiliser mklink.

[kirtap]

merci pour le lien ...
mais ensuite, je peux utiliser ce lien et le transposer dans ma procédure ?

[jurassic pork]

non il faut recréer le lien par mklink sur tous les ordinateurs où il doit être utilisé.

[Thumb down]

bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub proc1()
MsgBox DossierExiste("\\PC_B\Dossier_B")
End Sub
Function DossierExiste(NomDossier As String) As Boolean
    ' Ignorer les erreurs et continuer l'exécution du code en cas d'erreur
    On Error Resume Next
 
    ' Accéder à l'objet FileSystemObject et au dossier spécifié
    With CreateObject("Scripting.FileSystemObject").GetFolder(NomDossier)
        ' Vérifier si une erreur s'est produite lors de l'accès au dossier
        If Err.Number = 0 Then
            ' Si aucune erreur, vérifier les attributs du dossier
            If (.Attributes And (vbSystem + vbDirectory + vbHidden)) = 0 Then
                ' Si les attributs système, dossier et caché sont absents, le dossier existe
                DossierExiste = True
            Else
                ' Sinon, le dossier existe mais il possède des attributs spéciaux (système, caché, etc.)
                DossierExiste = False
            End If
        Else
            ' Si une erreur s'est produite lors de l'accès au dossier, déclarer que le dossier n'existe pas
            DossierExiste = False
        End If
    End With
 
    ' Rétablir le comportement normal de gestion des erreurs
    On Error GoTo 0
End Function

[kirtap]

merci pour votre réponse ..
c'est effectivement Function() et non pas Sub() comme écrit dans mon msg initial ... mal recopié à la main !!
j'essaie votre code ....

[kirtap]

c'est toujours retourné "faux" dans le cas suivant :

Else
' Sinon, le dossier existe mais il possède des attributs spéciaux (système, caché, etc.)
DossierExiste = false

J'y accède sans difficulté via l'explorateur ...
Très cher Windows où rien est simple !!

[Thumb down]

Tu clicks sur la ligne 2 de mon code MsgBox DossierExiste, tu appuis plusieurs fois sur la touche [F8] et tu regardes part ou ça passe dans le code.

[kirtap]

c'est ce que j'ai écrit lorsque j'exécute le code pas à pas ... !

[Thumb down]

Dans ton exécution pas à pas donnes le Nº de lignes où DossierExiste = false, 15?

[kirtap]

c'est aux lignes du code que vous proposez (citées dans msg précédent) :

If (.Attributes And (vbSystem + vbDirectory + vbHidden)) = 0 Then
' Si les attributs système, dossier et caché sont absents, le dossier existe
DossierExiste = True
Else
' Sinon, le dossier existe mais il possède des attributs spéciaux (système, caché, etc.)
DossierExiste = False
End If

[Thumb down]

désolé pour l'inversion

Code :

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

1
2
If (.Attributes And (vbSystem + vbDirectory + vbHidden)) <> 0 Then
' Si les attributs  dossier   et (système ou caché ) sont pressants , le dossier existe

[kirtap]

Ca retourne Vrai !!
Je vais intégrer Proc & Func dans mon code principal ... qui devrait fonctionner sans pb !!
Mais comme je ne vais le faire de suite, je laisse la discussion ouverte et vous tiendrai au courant.
Merci
pour votre aide !!

[kirtap]

Cela fonctionne parfaitement ! Merci !!!

[Thumb down]

Bonjour,
A ton service