Macro Excel 2007 : générer un fichier txt
Fermé
koma_666
Messages postés
429
Date d'inscription
mardi 26 juin 2007
Statut
Membre
Dernière intervention
9 mai 2016
-
13 sept. 2012 à 12:03
Utilisateur anonyme - 13 sept. 2012 à 13:43
Utilisateur anonyme - 13 sept. 2012 à 13:43
A voir également:
- Macro Excel 2007 : générer un fichier txt
- Liste déroulante excel - Guide
- Fichier rar - Guide
- Formule excel - Guide
- Fichier host - Guide
- Fichier iso - Guide
1 réponse
Bonjour,
Exemple type :
Cdt
Lupin
Exemple type :
Option Explicit
'
Const ctePourLecture = 1
Const ctePourEcrire = 2
Const ctePourAjouter = 8
Const cteRapport1 = "Rapport1.txt"
Const cteRapport2 = "Rapport2.txt"
'
Sub EcrireTexteMethode1()
Dim objFSO As Object, objFichier As Object, varNomFic As String
Dim Limite As Long, Boucle As Long
Set objFSO = CreateObject("Scripting.FileSystemObject")
' Localisation du fichier à écrire
varNomFic = ThisWorkbook.FullName
varNomFic = Left(varNomFic, InStrRev(varNomFic, "\"))
varNomFic = varNomFic & cteRapport1
' Valide si fichier existe
If (objFSO.FileExists(varNomFic)) Then
Set objFichier = objFSO.OpenTextFile(varNomFic, ctePourAjouter)
Else
Set objFichier = objFSO.CreateTextFile(varNomFic, ctePourEcrire)
End If
With Sheets("Feuil1")
.Range("C3").Select
Limite = .Range("C65536").End(xlUp).Row
For Boucle = 0 To Limite
objFichier.WriteLine ActiveCell.Offset(Boucle, 0).Value
Next
End With
objFichier.Close
Set objFichier = Nothing
Set objFSO = Nothing
End Sub
'
Sub EcrireTexteMethode2()
Dim objFSO As Object, objFichier As Object, varNomFic As String
Dim Limite As Long, Boucle As Long, Compteur As Long
Set objFSO = CreateObject("Scripting.FileSystemObject")
' Localisation du fichier à écrire
varNomFic = ThisWorkbook.FullName
varNomFic = Left(varNomFic, InStrRev(varNomFic, "\"))
varNomFic = varNomFic & cteRapport2
' Valide si fichier existe
If (objFSO.FileExists(varNomFic)) Then
Set objFichier = objFSO.OpenTextFile(varNomFic, ctePourAjouter)
Else
Set objFichier = objFSO.CreateTextFile(varNomFic, ctePourEcrire)
End If
With Sheets("Feuil1")
.Range("C3").Select
Limite = 2
For Compteur = 0 To 2
For Boucle = 0 To Limite
objFichier.WriteLine ActiveCell.Offset(Boucle, Compteur).Value
Next
Next
End With
objFichier.Close
Set objFichier = Nothing
Set objFSO = Nothing
End Sub
'
Cdt
Lupin