Discussion :

[retraite83]

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 :

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

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"

[ARTURO83]

Bonjour,

Faites un test avec ces 2 codes

Code :

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

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

ou

Code :

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

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

Cdlt