' Bouton d'export des textes de l'offre dans un fichier .txt, dans le répertoire Mes documents du User
Sub RD_Export_Text()
exportFileName = "D:\" & "_" & ['Donnees'!D34].Value & ".txt"
Open exportFileName For Output As #1 ' Ouvre le fichier en écriture.
With ThisWorkbook.Sheets("Texte_SAP")
For i = 1 To .Range("A65000").End(xlUp).Row
' interlignes
If .Cells(i, 1) = "" Then
Print #1, ""
' ou bien en forçant l'interlignage suivant colonne 8
' If .Cells(i, 8) = "s" Then
' insérer une ligne vide
' Print #1, ""
ElseIf .Cells(i, 8) = 1 Then
' Écrit le texte des colonnes 1 à 7 dans le fichier si colonne 8 = 1
T = .Cells(i, 1)
For j = 2 To 7
T = T & vbTab & .Cells(i, j)
Next
Print #1, T
'elseif .........
' autre action
End If
Next i
End With
Close #1 ' Ferme le fichier txt
' pour ouvrir le fichier txt avec Notepad
ret = Shell("notepad.exe " & exportFileName, vbNormalFocus)
End Sub