Bonjour. visiteurs jour : 46       Au président     Beauté santé     Infos loisirs     Ensemble      Jean      Informatique     Robert-Arlette     Santé corona



Informatique

Accueil  Excel  Informatique  Infos  Internet  Forum  Javascript  logiciels   Programation  Sites RJ  Vidéo  Plan du site 



VBA fichiers

Simuler les touches du clavier senkeys

Traitement des fichiers et gestion des erreurs

Cours VBA - Gestion des erreurs - Débogage -

http://jml85.pagesperso-orange.fr/Pages/Excel/Cours/Ecrit/Cours14.html


changer les attributs d'un fichier

Sub ChangeAttributAlternatif() SetAttr "F:AtelierTest.txt", vbReadOnly + vbHidden End Sub


Fichier WRITE

Tabulation dans un fichier texte = variable vba = vbTab

On Error Resume Next

Kill sRepertoire & sNomFichier '// effacer le fichier existant

iFile = FreeFile

Open sRepertoire & sNomFichier For Output As #iFile '// crée le fichier texte

ar = Sheets(1).Cells(1).CurrentRegion.Value '// valeurs dans un array (plus rapide)

For i = 1 To UBound(ar, 1) '// boucle sur les lignes

  str = ""

    For j = 1 To UBound(ar, 2)'// boucle sur les colonnes

      str = str & ar(i, j) & vbTab'// valeurs séparées par tabulations dans une seule variable

    Next j

Next i

Close #iFile '// Fermer le fichier

On Error GoTo 0


For i = 1 To UBound(ar, 1) '// boucle sur les lignes

    dDateNaissance = ar(i, 1)

        sNom = ar(i, 2)

    sPrenom = ar(i, 3)

    sAdresse = ar(i, 4)

    sVille = ar(i, 5)

        Write #iFile, dDateNaissance, sNom, sPrenom, sAdresse, sVille '// écrire dans le fichier

        'Une ligne avec chaque données entre "" et séparées par une virgule et la date enter ##

Next i


Total des visiteurs  :    635682   dont aujourd'hui :   46    En ligne actuellement :  3      Total des clics_1516083