Si Fichier existe

[Flop]

Salut le forum..

voici un bout de code de Jean marie que j'essaye d'utiliser :

'#FONCTION POUR SAVOIR SI LE FICHIER EXISTE
Public Sub Test_Existe(ByVal Chemin_Classeur As String)
If Dir(Chemin_Classeur, vbNormal) = "" Then
Fichier_Existe = False 'le fichier n'existe pas
Else
Fichier_Existe = True 'le fichier existe
End If
MsgBox Fichier_Existe
End Sub


et dans mon sub principal :

Chemin_Classeur = rep & fichier
Test_Existe (Chemin_Classeur)

MsgBox Fichier_Existe

Cad que dans le partie "fonction" la msgbox me renvoie bien vrai ou faux selon si le fichier exsiste, mais dans mon code la msgbox me fait boite vide.
donc mon code si ne marche pas
merci d'avance de votre lumiére, je comprends pas d'ou vient l'erreur, encore beaucoup à apprendre moi !! 😀

 

[PascalXLD]

Re : Si Fichier existe

Bonjour

j'aurais bien vu un truc du genre

'#FONCTION POUR SAVOIR SI LE FICHIER EXISTE
Public Function Test_Existe(ByVal Chemin_Classeur As String)
If Dir(Chemin_Classeur, vbNormal) = "" Then
Test_Existe = False 'le fichier n'existe pas
Else
Test_Existe = True 'le fichier existe
End If
End Sub


et dans mon sub principal :

Chemin_Classeur = rep & fichier
MsgBox Test_Existe (Chemin_Classeur)

 

[Flop]

Re : Si Fichier existe

C'est bon, merci de ton aide, j'ai réussi à faire ce que je voulais : cad dans mon sub principal :

If Test_Existe(Chemin_Classeur) = True Then
  info 1
else
  info 2
end if