Création automatique d'un fichier .txt

[Troudz]

Bonjour,

Je viens de créer une petit application en VBA et il me reste une dernière erreur à gérer.

Pour me prémunir d'une suppression intempestive du fichier "Log.txt", je teste sa présence avant chaque écriture et, dans la négative, je voudrais le recréer automatiquement.

Pour le test, pas de problèmes, j'utilise :

If Dir("C:\Log.txt", vbDirectory) = "" then Msgbox "Fichier Log absent"

Mais comment faire pour recréer mon fichier Log.txt ???

Je vous remercie par avance de votre aide.

 

[Dranreb]

Re : Création automatique d'un fichier .txt

Bonjour
Voir du coté des instructions Open, Print, Write, Close
À +

 

[Troudz]

Re : Création automatique d'un fichier .txt

Bonjour et merci,

J'ai effectivement cherché du côté de ces instructions mais je n'ai pas trouvé comment créer un fichier.

 

[TempusFugit]

Re : Création automatique d'un fichier .txt

Bonjour


Ton fichier Log.txt est censé contenir quoi ?

Pour information, voila ce que dit l'aide VBA

Open "FICHTEST" For Output As #1 ' Ouvre le fichier en écriture.
Print #1, "Ceci est un test" ' Écrit le texte dans le fichier.
Print #1, ' Insère une ligne vierge dans le fichier.
Print #1, "Zone 1"; Tab ; "Zone 2" ' Sépare la chaîne en deux.
' Sépare les chaînes de caractères avec des espaces.
Print #1, "Bonjour" ; " " ; "à tous"
Print #1, Spc(5) ; "5 espaces à gauche" ' Écrit cinq espaces à gauche.
Print #1, Tab(10) ; "Bonjour" ' Écrit le mot à partir de la colonne 10.

' Affecte les valeurs de type Boolean, Date, Null et Error.
Dim MyBool, MyDate, MyNull, MyError
MyBool = False : MyDate = #February 12, 1969#
MyNull = Null
MyError = CVErr(32767)
' True, False, Null et Error sont traduits en fonction
' des paramètres régionaux de votre système. Les
' littéraux date sont écrits au format de date abrégée standard.
Print #1, MyBool ; " est une valeur booléenne"
Print #1, MyDate ; " est une date"
Print #1, MyNull ; " est une valeur nulle"
Print #1, MyError ; " est une valeur d'erreur"
Close #1 ' Ferme le fichier.

 

[Troudz]

Re : Création automatique d'un fichier .txt

Les Log de mon application.
Je prévois juste le cas où le fichier aurait été supprimé.
Je voudrais qu'en cas d'absence, il soit automatiquement recréé.

Edit : Je n'avais pas vu ton extrait de l'aide VBA. Malheureusement, je n'ai pas accès à l'aide depuis mon poste (demande de réinstallation transmise au service info il y a deux ans... 😛)

Mon problème n'est pas d'écrire dans ce fichier log. Je me suis fait une petite procédure très pratique pour ça.

Mon problème est tout simplement de créer un nouveau fichier txt dans un emplacement donné.

 

[TempusFugit]

Re : Création automatique d'un fichier .txt

Et comment ce fichier est crée normalement ?

Tu as vu l'exemple extrait de l'aide VBA dans mon précédent message ?

 

[Dranreb]

Re : Création automatique d'un fichier .txt

Mon problème est tout simplement de créer un nouveau fichier txt dans un emplacement donné.

Il suffit de spécifier le nom complet avec son chemin dans l'Open
Au Close il est créé.
À +

 

[Troudz]

Re : Création automatique d'un fichier .txt

@TempusFugit : Oui j'avais bien vu ton exemple mais je n'ai aucun problème pour écrire dans mon fichier.

@Dranreb : Merci beaucoup, je ne pensais pas que cette création se faisait automatiquement. Du coup je n'avais strictement aucune erreur à gérer ^^

Merci à vous deux et bonne aprèm