test de presence d'un fichier

[man95]

Bonjour a vous tous,

Je voudrais savoir comment faire pour tester la présence d'un fichier .txt dans un répertoire particulier.

1 le fichier existe alors je le supprime
2 le fichier n'existe pas, je continue ma macro

A la fin de ma macro je crée un nouveau fichier .txt

Merci de vos réponses en espérant avoir été assez explicite.

Man

 

[tototiti2008]

Re : test de presence d'un fichier

Bonjour man95,

Tu devrais utiliser un code du type :

Function ExisteFic(Chemin As String) As Boolean
Dim fs
    Set fs = CreateObject("Scripting.FileSystemObject")
    ExisteFic = fs.FileExists(Chemin)
End Function

Où Chemin représente le chemin complet du fichier (nom et extension comprise)

Dis-moi si ça marche... 🙂

 

[BOISGONTIER]

Re : test de presence d'un fichier

Bonjour,

Fichier="c:\xx.txt")
If Dir(fichier)<>"" Then
  Msgbox "Existe"
Else
  Msgbox "Inconnu"
End if

Le test n'est peut être pas nécessaire: La création d'un fichier txt avec le même nom efface l'ancien

JB
Formation Excel VBA JB

 

[man95]

Re : test de presence d'un fichier

merci de vos réponses.
Je vais essayé de ce pas.

merci encore
A bientôt

man

 

[man95]

Re : test de presence d'un fichier

je viens de faire le test et c'est nickel.
j'ai utilisé la solution de Boisgontier qui est plus simple pour moi à mettre en oeuvre.

par contre j'aimerai savoir comment depuis Excel et en vba je peux ouvrir Notepad

merci encore à vous pour vos réponses rapides et votre implication

 

[BOISGONTIER]

Re : test de presence d'un fichier

retour = Shell("c:\windows\notepad.exe c:\x.txt")

JB

 

[mutzik]

Re : test de presence d'un fichier

bonjour à tous,

pour ma part, dans le cas d'un 'écrasement voulu' de fichier, je fais tout simplement un :
application.displayalerts = false avant d'enregistrer le fichier
et je le remets à true après l'enregistrement
si le fichier existe, il l'écrase sans mettre de msg d'erreur, sinon ben il le crée sans autre forme de procès ...

 

[man95]

Re : test de presence d'un fichier

merci a vous tous mais il faut qbsolument que je supprime ce fichier en départ de procedure je m"explique.
chaque nuit je fait une macro qui compile x fichiers. Une fois tous les fichiers faient je crée un fichier "Top.txt"

Seulement et seulement si le ce fichier TXT est présent une autre routine type prends la main pour envoyer les données de mes fichiers dans une base Oracle
D'ou mon besoin de supprimer le TXT en début de procédure et la creation d'un fichier txt en fin de macro.
j'ai eu la solution de la premiere partie (sup du fichier Txt) maintenant je cherche à le recreer.

merci pour tout et à vous tous

 

[tototiti2008]

Re : test de presence d'un fichier

Tu veux compiler le contenu de plusieurs fichiers textes en un seul ?
Ou si j'ai mal compris, d'où viennent les données à mettre dans ton fichier texte ?

 

[man95]

Re : test de presence d'un fichier

non pas excactement

chaque nuit je produit 15 fichiers excel si les 15 fichiers sont présent dans mon répertoire alors je créé un fichier Top.txt pour q'un autre outil (Control M)puisse entamer la récuperation des ces fichiers

Alors je cherche le moyen le plus simple de créer ce fichier TXT

j'espere que cela est plus clair pour vous

 

[tototiti2008]

Re : test de presence d'un fichier

Un lien sur les tutoriaux de MichelXLD concernant les fichiers texte :

https://www.excel-downloads.com/thr...oter-dautres-applications-depuis-excel.92359/

 

[man95]

Re : test de presence d'un fichier

merci a vous tous j'ai trouvé mon bonheur grace au lien de tototiti2008 et biensur Michel XLD