Discussion :

[Zebulon777]

Pour tester l'existence d'un dossier et d'un fichier, j'utilise ce code :

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
 
Function Test_Dossier(P_Dossier, P_Message)
 On Error GoTo Error
    Dim fs, f, ts
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(P_Dossier)
    Test_Dossier = True
Exit Function
 
Error:
    Test_Dossier = False
    If P_Message Then
        MsgBox "Le dossier '" & P_Dossier & "' n'est pas accessible." & vbCrLf & "Veuillez vérifier les connexions réseau ou vous connecter au réseau (utilisateur et mot de passe) pour activer cette connexion."
    End If
End Function
 
Function Test_Fichier(P_Fichier, P_Message)
    If Dir(P_Fichier) <> "" Then
        Test_Fichier = True
    Else
        Test_Fichier = False
        If P_Message Then
            MsgBox "Le fichier '" & P_Fichier & "' n'existe pas, les valeurs sont initialisées à 0."
        End If
    End If
End Function

Est-ce que c'est bon, où est-ce qu'il y a mieux à faire ?

[patricktoulon]

bonjour

il te faut absolument tester le dossier du fichier ??????

si ca n'est pas forcé
tu peut simplement tester l'existance du fichier avec son chemin complet

Code :

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

1
2
3
function fichier_ existe (chemin) as boolean 
if dir(chemin)<>"" then fichier_ existe=true
end function

Code :

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

1
2
3
4
sub test()
chemin="c:\mondossier\classeur1.xls"
msgbox  fichier_ existe(chemin)
end sub

Code :

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

1
2
3
4
5
6
sub test2()
chemin="c:\mondossier\classeur1.xls"
if fichier_ existe(chemin) then 
workbooks.open(chemin)
end if 
end sub

[Philippe Tulliez]

Bonjour Patrick,
Peut-être plus simple qu'un Si c'est VRAI alors c'est VRAI

Code :

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

1
2
3
Function IsFileExist(FullName As String) As Boolean
 IsFileExist = Dir(FullName) <> ""
End Function

[patricktoulon]

oui philippe
tu a raison j'ai mis mon exemple tel qu'il me sert a moi
car dans la fonction chez moi il y a d'autre lignes de code qui utilise le fichier (fonction move) et newname avec le string du chemin
la fonction deviens true que l'orsque le fichier est copié c'est pour ca j'avais simplement supprimé les lignes qui etait inutiles dans son cas

j'aurais pu faire l'effort de faire un plus joli code mais bon tu t'en es chargé

[Zebulon777]

En fait, j'ai mal posé ma question.

Au lancement de nos applications, nous testons toutes les connexions réseau et chemins indispensables avec la procédure Test_Dossier et je trouve que la réponse est assez lente.
Et comme nous testons aussi l'existence des fichiers, j'ai voulut avoir votre avis sur ces 2 fonctions.

Ce que je voulais savoir c'est si ces 2 fonctions étaient correctes et optimisées ou est-ce qu'il y a mieux à faire (surtout au niveau des temps de réponse) ?

[Marc-L]

Bonjour,

les temps de réponse sont déjà intrinsèquement liés à ceux du réseau bien plus lent qu'en local !

Et une mauvaise conception avec des traitements inutiles augmente de facto le temps d'exécution global
comme l'a déjà justement souligné Patrick …

Une librairie externe comme FileSystemObject peut s'avérer plus lente qu'une fonction VBA interne …

_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse