Retour à la ligne dans un fichier de log (txt)

Le
Jac
Bonjour à tous,

je réfléchis à la création d'un fichier txt qui consignerait les dates et
heure d'ouverture d'un fichier XL en utilisant la macro suivante :
--
Sub LOG_OUVERTURE_XL()
CreateObject("Scripting.FileSystemObject").OpenTextFile("c:Log " &
ActiveWorkbook.Name & ".txt", 8, True).Write "Fichier ouvert le " &
Format(Now(), "yyyymmdd à hh:mm:ss")
End Sub
--
Ça fonctionne très bien. Mais les valeurs se mettent à la suite les unes des
autres. J'aimerais insérer un retour à la ligne à la fin de chaque texte,
mais je ne trouve pas le caractère ou l'instruction à envoyer au fichier
txt.

Merci d'avance à qui me mettra sur la voie.

Jac
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Youky
Le #4354691
Non testé
Youky

Sub LOG_OUVERTURE_XL()
CreateObject("Scripting.FileSystemObject").OpenTextFile("c:Log " &
ActiveWorkbook.Name & ".txt", 8, True).Write & vbCr & "Fichier ouvert le " &
Format(Now(), "yyyymmdd à hh:mm:ss")
End Sub
Jac
Le #4354681
Salut Youki,
le vbcr ne donne rien d'autre qu'un carré, affichage habituel d'un caractère
qui n'affiche rien.
Par contre vbtab me met une tabulation.
Mais j'aimerais bien un retour à la ligne...

"Youky" eRP4k$
Non testé
Youky

Sub LOG_OUVERTURE_XL()
CreateObject("Scripting.FileSystemObject").OpenTextFile("c:Log " &
ActiveWorkbook.Name & ".txt", 8, True).Write & vbCr & "Fichier ouvert le "
&
Format(Now(), "yyyymmdd à hh:mm:ss")
End Sub




Youky
Le #4354671
Write vbCr & "Fichier ouvert le .........
au lieu de
Write & vbCr & "Fichier ouvert le
"Youky" eRP4k$
Non testé
Youky

Sub LOG_OUVERTURE_XL()
CreateObject("Scripting.FileSystemObject").OpenTextFile("c:Log " &
ActiveWorkbook.Name & ".txt", 8, True).Write & vbCr & "Fichier ouvert le "
&
Format(Now(), "yyyymmdd à hh:mm:ss")
End Sub




Youky
Le #4354651
remplace Vbcr par chr(10)

"Jac" 45f007df$0$6065$
Salut Youki,
le vbcr ne donne rien d'autre qu'un carré, affichage habituel d'un
caractère qui n'affiche rien.
Par contre vbtab me met une tabulation.
Mais j'aimerais bien un retour à la ligne...

"Youky" eRP4k$
Non testé
Youky

Sub LOG_OUVERTURE_XL()
CreateObject("Scripting.FileSystemObject").OpenTextFile("c:Log " &
ActiveWorkbook.Name & ".txt", 8, True).Write & vbCr & "Fichier ouvert le
" &
Format(Now(), "yyyymmdd à hh:mm:ss")
End Sub








Jac
Le #4354631
Ça marche depuis le début de mes essais...
Mais c'est tout simplement le bloc note qui n'affiche pas les retours à la
ligne.
Dans WordPad ou dans Word, les retours à la ligne sont bien là...

Le tout, c'est de prendre les bonnes lunettes pour regarder.

Merci encore,

Jac

"Youky"
Write vbCr & "Fichier ouvert le .........
au lieu de
Write & vbCr & "Fichier ouvert le
"Youky" eRP4k$
Non testé
Youky

Sub LOG_OUVERTURE_XL()
CreateObject("Scripting.FileSystemObject").OpenTextFile("c:Log " &
ActiveWorkbook.Name & ".txt", 8, True).Write & vbCr & "Fichier ouvert le
" &
Format(Now(), "yyyymmdd à hh:mm:ss")
End Sub








Publicité
Poster une réponse
Anonyme