Salut
j'avais déjà déterré un topic pour tester l'existence d'un dossier ou fichier mais la probleme ne venait pas de la.
Donc j'ai reussi a coder pour détecter mon fichier non cacher sur le disque dur C ca donne
reste le test sur le dossier caché du disque commun P qui ne fonctionne pas
je pense qu'il ne reste pas grand chose à modifier mais je bloque
j'avais déjà déterré un topic pour tester l'existence d'un dossier ou fichier mais la probleme ne venait pas de la.
Donc j'ai reussi a coder pour détecter mon fichier non cacher sur le disque dur C ca donne
'test fichier pour le C
Sub Testeee()
MsgBox FichierExiste("C:\fichiertoto.txt")
End Sub
Function FichierExiste(NomFichier As String) As Boolean
FichierExiste = Dir(NomFichier, vbDirectory) <> ""
End Function
reste le test sur le dossier caché du disque commun P qui ne fonctionne pas
Sub Testee()
'test Dossier pour le P
MsgBox DossierExiste("P:\dossiertoto")
End Sub
Function DossierExiste(NomDossier As String) As Boolean
DossierExiste = Dir(NomDossier, vbDirectory, ) <> ""
End Function
je pense qu'il ne reste pas grand chose à modifier mais je bloque