format txt

bonjour
as tu essayée l'enregistreur de macro ?

Le 27/10/2003, "Muriel" a supposé :

Bonjour,

Existe-t'il un moyen pour enregistrer automatiquement un
fichier xls en fichier txt, sans faire fichier /
enregistrer sous/ format txt
Je précise que le fichier xls est modifié tous les jours,
et donc uil faudrait que le fichier txt le soit également
automatiquement

Merci de vos réponses.

Muriel

--
Ceci est une signature automatique de MesNews.
Site : http://mesnews.no-ip.com

Salut Muriel !

Ben pour faire tout cela automatiquement, il faudrait utiliser
l'enregistreur de macro et, après cela, tester ton code (voir l'améliorer
;-)) et ensuite, le faire correspondre à l'événement suivant :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
' ton code pour faire l'enregistrement en TXT ...
End Sub


Est-ce que tu connais un peu le VBA ?

Si non, tu pourrais revenir par là après avoir fait l'enregistrement de ton
code via l'enregistreur de macro ;-))

Salutations
Dédé
--
Pour répondre, enlever les lettres N O S P A M
"Muriel" <info@siam-ringspann.fr> a écrit dans le message de
news:06d301c39c6f$d35fce00$a301280a@phx.gbl...
Bonjour,

Existe-t'il un moyen pour enregistrer automatiquement un
fichier xls en fichier txt, sans faire fichier /
enregistrer sous/ format txt
Je précise que le fichier xls est modifié tous les jours,
et donc uil faudrait que le fichier txt le soit également
automatiquement

Merci de vos réponses.

Muriel

En VBA !
'adapter de la macro de Charles Balch.
Sub FichierTexte() 'séparateur de colonne "," Voir***
Dim Var As Object
Set Var = Application.InputBox(Prompt:="Sélectionner votre zone: (Ex. A1:B10) ", _
Title:="Sélection de zone ", Default:="$A$1", Type:=8)

FichierTXT = "C:ajeteressai.txt" 'à modifier

NbColonne = Var.Columns.Count
NbLigne = Var.Rows.Count
CalcState = Application.Calculation
StatusBarState = Application.DisplayStatusBar
Application.Calculation = xlManual
Calculate
Application.StatusBar = "Patientez SVP...création du fichier"

If Len(Dir(FichierTXT)) > 1 Then Kill FichierTXT
Open FichierTXT For Output As 1
'création du fichier texte
Print #1, "Fichier texte crée à partir du tableau Excel"
Print #1, " - Départ du tableau - "
Print #1, ""

While Row < NbLigne
Row = Row + 1
DoEvents
Application.StatusBar = Str$(Int((Row / NbLigne) * 100)) & "% achevé"
If (Not Var.Rows(Row).Hidden) Then
MV = ""
Col = 0
While Col < NbColonne
Col = Col + 1
If (Not Var.Columns(Col).Hidden) Then
CellV = Var.Cells(Row, Col).Text
End If

MV = MV & CellA & "," & CellV
'*** changer ici le séparateur & ","
Wend
Print #1, MV
End If
Wend

Print #1, ""
Print #1, " - Fin du tableau - "
Print #1, "Nota: Fichier généré par la macro de création de fichier texte "
Print #1, "Nota: Le séparateur de colonne est la virgule "
Close
DoEvents
Application.Calculation = CalcState
Application.StatusBar = ""
Application.DisplayStatusBar = StatusBarState
End Sub


--
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm


"Muriel" <info@siam-ringspann.fr> a écrit dans le message de news:
06d301c39c6f$d35fce00$a301280a@phx.gbl...
Bonjour,

Existe-t'il un moyen pour enregistrer automatiquement un
fichier xls en fichier txt, sans faire fichier /
enregistrer sous/ format txt
Je précise que le fichier xls est modifié tous les jours,
et donc uil faudrait que le fichier txt le soit également
automatiquement

Merci de vos réponses.

Muriel