Laosurlamontagne
XLDnaute Occasionnel
Bonjour à tous,
Ma problématique est assez simple mais mon niveau en VBA est hélas trop limité...
Je cherche à extraire les données de 4 colonnes excel vers un fichier txt (dans l'objectif de le travailler ensuite sous latex). J'ai trouvé quelques petites macro sur ce site mais je n'arrive pas à la modifier convenablement:
elle extrait bien les données des cellules pleines uniquement mais je souhaiterais "un retour à la ligne" à chaque cellules et dans "l'ordre de lecture" (i.e de gauche à droite).
Que dois-je modifier dans la macro ci-dessus ?
Merci pour votre aide.
Ma problématique est assez simple mais mon niveau en VBA est hélas trop limité...
Je cherche à extraire les données de 4 colonnes excel vers un fichier txt (dans l'objectif de le travailler ensuite sous latex). J'ai trouvé quelques petites macro sur ce site mais je n'arrive pas à la modifier convenablement:
Code:
Sub test()
Dim myFso As Object, csvFile As Object, textLine As String
Dim exportFileName As String
Dim curCell As Range
Dim i As Integer
exportFileName = "C:\test.txt"
' créer le fichier
Set myFso = CreateObject("Scripting.FileSystemObject")
Set csvFile = myFso.CreateTextFile(Filename:=exportFileName, overwrite:=True)
Set curCell = ThisWorkbook.Sheets("MASTER").Range("A1")
With ThisWorkbook.Sheets("MASTER")
For i = 1 To .Range("A" & .Rows.Count).End(xlUp).Row
Set curCell = .Range("A" & i)
textLine = vbNullString
While curCell.Text <> vbNullString
textLine = textLine & IIf(textLine = vbNullString, vbNullString, vbTab) & curCell.Text
Set curCell = curCell.Offset(0, 1)
Wend
' Set curCell = .Range("A" & curCell.Row + 1)
' écrire la ligne dans le fichier
csvFile.WriteLine textLine
Next i
End With
' fermer le fichier
csvFile.Close
Set csvFile = Nothing: Set myFso = Nothing
End Sub
elle extrait bien les données des cellules pleines uniquement mais je souhaiterais "un retour à la ligne" à chaque cellules et dans "l'ordre de lecture" (i.e de gauche à droite).
Que dois-je modifier dans la macro ci-dessus ?
Merci pour votre aide.