Recherche
Les mémos
-
Tables
- · Annuler la suppression
- · Attacher feuilles Excel
- · Cacher une table
- · Concaténer une colonne
- · Créer une table
- · Dernière modification
- · Index composé
- · Limiter les enregistrements
- · Liste des champs
- · Modifier valeur de champ
- · Où est la table
- · Peupler une table de Logs
- · Renuméroter un champ
- · Réattacher les liens
- · Réattacher les liens locaux
- · Scinder un champ
- · Supprimer les tables liées
- · Trouver la différence
-
Formulaires
- · Afficher les derniers
- · Ajout à liste modifiable
- · Ajouter enregistrement
- · Barre de progression
- · Click ou double-click
- · Confirmer l'enregistrement
- · Copier - Coller
- · Défilement de la roulette
- · Exporter un graphique
- · Filtres personnalisés
- · Identifiants d'un Form continu
- · Importer les formulaires
- · Langue utilisateur
- · Limiter la saisie
- · Mémoriser une valeur
- · No enregistrement
- · Ouvert en normal
- · Position des formulaires
- · Recopier dernière valeur
- · Scroll automatique
- · Switch Modal
- · Tri manuel dans form
- · Tri personnalisé
- · Verrouillage de formulaire
- · Vérifier les saisies
-
Automation
-
Administration
- · Chemin de la base
- · Déconnecter utilisateur
- · Désactiver le Shift
- · Désactiver le Shift(2)
- · Liste des références
- · Liste des utilisateurs
- · Lister les applications
- · Mode exclusif
- · Nom d'utilisateur
- · Nom de l'ordinateur
- · Paramètres régionaux
- · Propriétés de la base
- · Sauvegarde journalière
- · Sauvegarde mensuelle
- · Shell and Wait
- · Version de Windows
-
Envoyer un mail
-
Outlook
- · Ajouter des contacts
- · Déplacer les messages
- · Enregistrer pièces jointes
- · Est ouvert ?
- · Exporter les contacts
- · Exporter les rendez-vous
- · Importer les messages
- · Integrer un état
- · Lire les contacts
- · Lire les rendez-vous
- · Lister les dossiers
- · Lister les tâches
- · SendMail (MAPI)
- · SendMail Automation
-
Dates - Heures
-
Fichiers
- · Compter les dossiers
- · Créer un dossier
- Générer fichier TXT
- · Importer fichier TXT
- · Le dossier existe ?
- · Le fichier existe ?
- · Lister les fichiers
- · Lister les fichiers (2007)
- · Lister les sous-dossiers
- · Rechercher un répertoire
- · Répertoire dans table
- · Supprimer ReadOnly
- · Sélection de dossier
- · Sélection de dossier (API)
- · Sélection de fichiers
- · Sélection fichier (MOL)
-
Références
Je débute...
-
La normalisation
-
VBA
Visites
1259001 visiteurs
3 visiteurs en ligne
Nous contacter
Contact
Générer fichier TXT
Générer ligne par ligne un fichier texte (.txt) avec entêtes
Sub GenerateTXT(strSource As String, _ Optional strPath As String = "", _ Optional blnAdd As Boolean = False) On Error GoTo errGenerate '/ '/ Générer ligne par ligne un fichier .txt '/ avec les noms de champs comme en-têtes '/ Si strPath est omis: '/ la destination sera le même répertoire que la base '/ Si blnAdd est False ou omis: '/ un nouveau fichier sera créé, sinon ajouter '/ '/ Syntaxe: Call GenerateTXT("LaTableouLaRequete", "C:\Mes Documents", True) '/ ou Call GenerateTXT("LaTableouLaRequete", , True) '/ ou Call GenerateTXT("LaTableouLaRequete") '/ Const Separ = vbTab 'séparateur Const IdVal = Null 'délimiteur Dim Dbs As DAO.Database Dim Rst As DAO.Recordset Dim Fld As DAO.Field Dim strFile As String Dim StrHeadFile As String Dim TxtLine As String Dim Fichier As Integer, i As Integer If strPath = "" Then strPath = CurrentProject.Path End If strFile = strPath & "" & strSource & "_" & DCount("*", strSource) & ".txt" Set Dbs = CurrentDb Set Rst = Dbs.OpenRecordset(strSource) Fichier = FreeFile() If blnAdd = False Then 'Créer un nouveau fichier avec en-tête Open strFile For Output As #Fichier 'Lire le nom des champs For i = 0 To (Rst.Fields.Count - 1) StrHeadFile = StrHeadFile & IdVal & Rst.Fields(i).Name & IdVal & Separ Next i Print #Fichier, Left(StrHeadFile, Len(StrHeadFile) - Len(Separ)) Else 'Ajouter au fichier existant Open strFile For Append As #Fichier End If 'Ecriture des lignes While Not Rst.EOF For Each Fld In Rst.Fields TxtLine = TxtLine & IdVal & Fld.Value & IdVal & Separ Next Fld TxtLine = Left(TxtLine, Len(TxtLine) - Len(Separ)) Print #Fichier, TxtLine Rst.MoveNext TxtLine = "" Wend MsgBox "Fichier " & strFile & " créé.", vbOKOnly, "" exitGenerate: Close #Fichier Rst.Close Dbs.Close Set Rst = Nothing Set Dbs = Nothing Exit Sub errGenerate: MsgBox Err.Number & " " & Err.Description On Error Resume Next Resume exitGenerate End Sub
Catégorie : Les mémos - Fichiers
Page lue 8306 fois
Page lue 8306 fois