sous dossier du bureau et VBA

Bonjour,

mon application marche très bien sur tous les PC sauf un, celui-ci a un répertoire directement sur le bureau contenant l'Excel, avec un sous répertoire "COMPTA" qui n'existe pas sur les autres PC (qui n'ont pas de sous dossier)

dans mon code je vérifie la présence d'un fichier dans ce répertoire COMPA avant de l'ouvrir avec ce code et j'ai toujours le message d'erreur de Msgbox

Code:

---

1 2 3 4 5 6

If Len(Dir(pathJF)) <= 0 Then MsgBox "Le journal des factures n'existe pas" Exit Sub Else ….

---

pathJF a la bonne valeur, mais je me demande si un sous dossier d'un répertoire directement sur le bureau a un "DIR"

Bonjour,

Faites un test avec ces 2 codes

Code:

---

1 2 3 4

If Dir(pathJF, 16) = "" Then MsgBox "Le journal des factures n'existe pas" Exit Sub Else

---

ou

Code:

---

1 2 3 4

If Dir(pathJF, 0) = "" Then MsgBox "Le journal des factures n'existe pas" Exit Sub Else

---

Cdlt