enregistrer des résultats d'une macro dans un fichier txt

[Frenchy]

Bonjour,


J'ai essayé de trouver et de bidouiller des morceaux de codes chopper ici ou là sur le forum mais je bloque toujours au même niveau.

Pour l'instant j'avais décomposé en 2 temps.

1ere partie, je fais mes calculs avec ma macro. Ca me donne l'heure, fait un comptage sur une premiere colonne, fait un comptage sur une autre et une petite moyenne. Bref rien de bien compliqué.

Sub Macro1()
'
' Macro1 Macro
' Calcul avancement
'
'
    Range("V4").Select
    ActiveCell.FormulaR1C1 = "=NOW()"
    Range("V6").Select
    ActiveCell.FormulaR1C1 = "=COUNTA(R[11]C[-19]:R[994]C[-19])"
    Range("V7").Select
    ActiveCell.FormulaR1C1 = "=COUNTA(R[10]C[-4]:R[993]C[-4])"
    Range("V8").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(R[9]C[-9]:R[992]C[-9])"
    Range("V9").Select
 End Sub

2ème partie :
Ensuite j'aimerai pouvoir récupéré ces données dans un fichier txt.

J'ai essayé comme cela :

Sub FichierTexte()
            Open "C:\Documents and Settings\moi\Bureau\calcul avancement.txt" For Append As #1
            Print #1, 
            Close #1
End Sub

J'arrive à mettre un texte dans ce fichier en écrivant "texte" après mon Print #1, mais je n'arrive pas à mettre juste mes cellules (à savoir V4 à V9). J'utilisais ce bout de code pour que ça conserve les précédents résultats à chaque fois que c'est réécrit dedans.

Je sens que c'est tout con mais je n'arrive pas à trouver

Actuellement je le décomposais en 2 macros mais si c'est réalisable sur une seul je suis preneur.


Merci à ceux qui auront la patience de m'aider

 

[Guest]

Re : enregistrer des résultats d'une macro dans un fichier txt

Bonjour,

Sans doute:

Sub FichierTexte()
    Dim i As Long
    Open "C:\Documents and Settings\moi\Bureau\calcul avancement.txt" For Append As #1
    For i = 4 To 9
        Print #1, Range("V" & i).Value
    Next i
    Close #1
End Sub

A+

 

[Frenchy]

Re : enregistrer des résultats d'une macro dans un fichier txt

Me doutait que ce devait être truc tout simple dans la définition...

Merci beaucoup en tout cas