Je continue à profiter des lumières de ce forum - Ma question :
Comment tester en VBA l'existence d'un fichier (quel que soit son
emplacement, et quel que soit son format) et sans chercher à l'ouvrir (avec
l'application adaptée) ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ST
Tu peux essayer ce code :
Function FichierExiste(Chemin As String) As Boolean On Error Resume Next FichierExiste = GetAttr(Chemin) End Function
Sub Test() MsgBox FichierExiste("c:TRUC") End Sub
ST
"Alain" a écrit dans le message de news:
Bonjour,
Je continue à profiter des lumières de ce forum - Ma question : Comment tester en VBA l'existence d'un fichier (quel que soit son emplacement, et quel que soit son format) et sans chercher à l'ouvrir (avec
l'application adaptée) ?
Merci d'avance pour votre aide
Tu peux essayer ce code :
Function FichierExiste(Chemin As String) As Boolean
On Error Resume Next
FichierExiste = GetAttr(Chemin)
End Function
Sub Test()
MsgBox FichierExiste("c:TRUC")
End Sub
ST
"Alain" <Alain@discussions.microsoft.com> a écrit dans le message de
news:96F9D601-2D0B-4F21-9511-0AF12EEBBE30@microsoft.com...
Bonjour,
Je continue à profiter des lumières de ce forum - Ma question :
Comment tester en VBA l'existence d'un fichier (quel que soit son
emplacement, et quel que soit son format) et sans chercher à l'ouvrir
(avec
Function FichierExiste(Chemin As String) As Boolean On Error Resume Next FichierExiste = GetAttr(Chemin) End Function
Sub Test() MsgBox FichierExiste("c:TRUC") End Sub
ST
"Alain" a écrit dans le message de news:
Bonjour,
Je continue à profiter des lumières de ce forum - Ma question : Comment tester en VBA l'existence d'un fichier (quel que soit son emplacement, et quel que soit son format) et sans chercher à l'ouvrir (avec
