Copier Ligne dans fichier texte
Résolu
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
Je dois copier chaque ligne Excel dans un fichier texte unique.
J'arrive à copier seulement les valeur de la première colonne, est-il possible de m'aider pour copier toute la ligne (De colonne A à colonne J) s'il vous plaît ?
Voici la macro :
Sub TestMacro()
Dim cell As Range, FF&, Counter&
For Each cell In Range("A4", Range("A" & Rows.Count).End(xlUp))
If Len(cell) > 0 Then
FF = FreeFile()
Open "C:\Users\xxxxx\Desktop\Test\" & Range("A" & cell.Row).Value & ".txt" For Output As #FF
Print #FF, cell.Text
Close #FF
Counter = Counter + 1
End If
Next cell
MsgBox Counter & " Ok ", , "Fin de traitement"
End Sub
Merci d'avance de votre aide.
Je dois copier chaque ligne Excel dans un fichier texte unique.
J'arrive à copier seulement les valeur de la première colonne, est-il possible de m'aider pour copier toute la ligne (De colonne A à colonne J) s'il vous plaît ?
Voici la macro :
Sub TestMacro()
Dim cell As Range, FF&, Counter&
For Each cell In Range("A4", Range("A" & Rows.Count).End(xlUp))
If Len(cell) > 0 Then
FF = FreeFile()
Open "C:\Users\xxxxx\Desktop\Test\" & Range("A" & cell.Row).Value & ".txt" For Output As #FF
Print #FF, cell.Text
Close #FF
Counter = Counter + 1
End If
Next cell
MsgBox Counter & " Ok ", , "Fin de traitement"
End Sub
Merci d'avance de votre aide.
