[Excel] écrire fichier.txt

Option Explicit
'

Sub CreerFichierTexte()

    Const ForReading = 1, ForWriting = 2, ForAppending = 8

    Dim NouveauTexte, Valeur As String
    Dim Limite, Boucle, Compteur As Integer
    Dim Client As String
    
    Dim oFS, NouveauFichier As Object
    
    NouveauTexte = ThisWorkbook.Path & "\" & "MonFichier.txt"
    Set oFS = CreateObject("Scripting.FileSystemObject")
    Set NouveauFichier = oFS.CreateTextFile(NouveauTexte, ForWriting)
    
    Limite = Range("A65535").End(xlUp).Row
    Client = ""
    For Boucle = 1 To Limite
        For Compteur = 0 To 2
            Client = Client & ActiveCell.Offset(0, Compteur).Value & ";"
        Next Compteur
        NouveauFichier.WriteLine (Client)
        ActiveCell.Offset(1, 0).Select
        Client = ""
    Next Boucle
    
    NouveauFichier.Close
    
End Sub
'

Sub LectureFichierTexte()

    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    
    Dim oFS As Object
    Dim Boucle As Long
    Dim MonFichier, Texte, Reponse, Msg As String
    Dim CheminFichier As String
    
        
    CheminFichier = ThisWorkbook.Path & "\" & "MonFichier.txt"
    Set oFS = CreateObject("Scripting.FileSystemObject")
    Set MonFichier = oFS.OpenTextFile(CheminFichier, ForReading)
    
    While Not MonFichier.AtEndOfStream
        Texte = MonFichier.ReadLine
        MsgBox Texte
    Wend

    MonFichier.Close
    
End Sub
'

<!-- Vérification des champs du formulaire
function verif() 
{ 
	var nom = document.formulaire.nom.value;
	if (document.formulaire.nom.value == "")
	{
		alert ('Veuillez entrer votre nom');
		document.formulaire.nom.focus();
		return false;
	}
	if(document.formulaire.prenom.value == "")
	{
		alert ('Veuillez entrer votre prénom');
		document.formulaire.prenom.focus();
		return false;
	}
	if(document.formulaire.matricule.value == "")
	{
		alert ('Veuillez entrer votre matricule');
		document.formulaire.matricule.focus();
		return false;
	}
	if(document.formulaire.telephone.value == "")
	{
		alert ('Veuillez entrer un n° de téléphone');
		document.formulaire.telephone.focus();
		return false;
	}
	if(document.formulaire.telephone.value.length != 6)
	{ 
		alert ('Le n° de téléphone doit comporter 6 chiffres'); 
		document.formulaire.telephone.focus();
		return false; 
	}

	else {return true;}
}
//-->