Problème parenthèse

Bonjour, j'ai un problème et je pense que c'est une histoire de parenthèse. En fait avec ce code il me dis que tous mes fichiers sont dans le dossier alors que parfois ils n'y sont pas (si un fichier n'y est pas alors dans mon cas ils sont tous "Inexistant"). Savez vous comment faire ?

Merci

If Len(Dir(mon_chemin & v1)) > 0 Or Len(Dir(mon_chemin & v2)) > 0 Or Len(Dir(mon_chemin & v3) > 0 Then
    MsgBox ("Existe")
Else
    MsgBox ("Inexistant")
End If

Bonjour,

Comme ça, il te manquait une parenthèse dans le dernier Len() :

If Len(Dir(mon_chemin & v1)) > 0 Or Len(Dir(mon_chemin & v2)) > 0 Or Len(Dir(mon_chemin & v3)) > 0 Then

mais tu peux aussi faire ça :

If Dir(mon_chemin & v1) <> "" Or Dir(mon_chemin & v2) <> "" Or Dir(mon_chemin & v3) <> "" Then

C'est bizarre, cela ne fonctionne pas, il me dis que mes fichiers existe toujours même si l'un d'entre eu n'est pas là ?

Personne n'a de solution ? Peut-être que ce n'est pas possible ?

Re,

Il te faut changer Or par And !

Du coup le code ci dessous devrait fonctionner ?

J'ai l'impression qu'il manque des parenthèse pour que tout soit pris en compte ?

If Dir(mon_chemin & v1) <> "" And Dir(mon_chemin & v2) <> "" And Dir(mon_chemin & v3) <> "" Then

Adaptes le chemin et noms des fichiers et testes la procédure :

Sub Test()

    Dim mon_chemin As String
    Dim v1 As String
    Dim v2 As String
    Dim v3 As String

    'adapter !
    mon_chemin = "C:\Dossier1\Dossier2\"
    v1 = "Classeur1.xlsx"
    v2 = "Classeur2.xlsx"
    v3 = "Classeur3.xlsx"

    If Dir(mon_chemin & v1) <> "" And Dir(mon_chemin & v2) <> "" And Dir(mon_chemin & v3) <> "" Then
        MsgBox "Les trois fichiers sont présents !"
    Else
        MsgBox "Un ou plusieurs fichiers sont absents du dossier !"
    End If

End Sub

OK je vais essayer ça merci.