Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Determiner existance Fichier ou dossier

Determiner existance Fichier ou dossier

2 réponses
Avatar
Emcy
Salut,

Comment faire pour savoir si un fichier ou un dossier existe ?
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Daniel.j
Pour chercher un fichier dans C:ajeter
Sub ChercheFichier()
Set fs = Application.FileSearch
With fs
.LookIn = "c:ajeter"
.Filename = "*.xls"
If .Execute > 0 Then
MsgBox .FoundFiles.Count & " Fichier(s) ont été trouvés."
For I = 1 To .FoundFiles.Count
MsgBox .FoundFiles(I)
Next I
Else
MsgBox "Aucun fichier n'a été trouvé."
End If
End With
End Sub

--
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm
"Emcy" a écrit dans le message de news:
#
| Salut,
|
| Comment faire pour savoir si un fichier ou un dossier existe ?
|
|
Avatar
Emcy
Merci !!!

"Daniel.j" a écrit dans le message de
news:%
Pour chercher un fichier dans C:ajeter
Sub ChercheFichier()
Set fs = Application.FileSearch
With fs
.LookIn = "c:ajeter"
.Filename = "*.xls"
If .Execute > 0 Then
MsgBox .FoundFiles.Count & " Fichier(s) ont été trouvés."
For I = 1 To .FoundFiles.Count
MsgBox .FoundFiles(I)
Next I
Else
MsgBox "Aucun fichier n'a été trouvé."
End If
End With
End Sub

--
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm
"Emcy" a écrit dans le message de news:
#
| Salut,
|
| Comment faire pour savoir si un fichier ou un dossier existe ?
|
|