Philippe63000
XLDnaute Junior
Bonsoir,
Je cherche à copier une feuille excel dans un fichier ASCII.
Le programme ci-dessous convient mais j'ai des problèmes de largeur. La feuille excel contient les mois de l'année écrits en toutes lettres et il faudrait que je les transforme (les raccourcisse). De même j'aimerais que les chiffres qui composent le reste du tableau soient limités à deux chiffres après la virgule.
Mais les instructions :
A = .Cells(i, j).Value
' b = Int(A * 100) / 100
ne sont pas correctes.
Pourriez-vous s'il vous plaît m'aider à résoudre ce problème.
Merci d'avance.
Je cherche à copier une feuille excel dans un fichier ASCII.
Le programme ci-dessous convient mais j'ai des problèmes de largeur. La feuille excel contient les mois de l'année écrits en toutes lettres et il faudrait que je les transforme (les raccourcisse). De même j'aimerais que les chiffres qui composent le reste du tableau soient limités à deux chiffres après la virgule.
Mais les instructions :
A = .Cells(i, j).Value
' b = Int(A * 100) / 100
ne sont pas correctes.
Pourriez-vous s'il vous plaît m'aider à résoudre ce problème.
Merci d'avance.
Code:
Sub creer_TXT(plage)
'-------------------------------------------------------------------------------------
chemin="c:\Mes documents\"
sous_titre ="essai"
Dim Fs As Object, A As Object
Dim i As Long
Set Fs = CreateObject("Scripting.FileSystemObject")
Set A = Fs.CreateTextFile(chemin & sous_titre(0) & annee_etudiee & ".txt", True)
With Sheets("Feuil1")
'For i = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 1 To 35
For j = 2 To 13
A.Write (.Cells(i, j).Value) & " "
Next j
A.writeLine ' on passe à la ligne
Next i
End With
A.Close
Set A = Nothing
Set Fs = Nothing