Flop
XLDnaute Occasionnel
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 !!
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 !!