Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel vérifier si le nom d'un fichier existe

vérifier si le nom d'un fichier existe

2 réponses
Avatar
xavier
bonjour,


je s=E9l=E9ctionne une date (ex 042004) qui correspond au=20
fichier F042004.txt mais je souhaiterais v=E9rifier que le=20
fichier existe bien et s'il n'existe pas m'afficher un=20
message d'erreur=20
tout =E7a par macro

merci
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
papou
Bonjour
If Dir("C:Par ExempleF042004.txt") <> "" Then
Msgbox "Le fichier est bien là !"
Else: Msgbox "Le Fichier n'est pas là !"
End If

Cordialement
Pascal

"xavier" a écrit dans le message de
news:19ee901c44e05$4a64f5b0$
bonjour,


je séléctionne une date (ex 042004) qui correspond au
fichier F042004.txt mais je souhaiterais vérifier que le
fichier existe bien et s'il n'existe pas m'afficher un
message d'erreur
tout ça par macro

merci
Avatar
Kamel
Essaye cela

Sub openFile()

Dim file As String
On Error GoTo err

file = InputBox("Date à saisir")

Workbooks.OpenText _
Filename:="chemin du fichierF" & file & ".txt", _
DataType:=xlDelimited, Tab:=True

err:
MsgBox "Message d'erreur"

End Sub

"xavier" wrote in message
news:19ee901c44e05$4a64f5b0$
bonjour,


je séléctionne une date (ex 042004) qui correspond au
fichier F042004.txt mais je souhaiterais vérifier que le
fichier existe bien et s'il n'existe pas m'afficher un
message d'erreur
tout ça par macro

merci