Sub test()
ActiveCell.FormulaR1C1 = "1"
Range("B3").Select
ActiveCell.FormulaR1C1 = "2"
Range("B2:B3").Select
Selection.AutoFill Destination:=Range("B2:B35"), Type:=xlFillDefault
Range("B2:B35").Select
Range("C34").Select
ActiveWindow.SmallScroll Down:=-15
Range("B2:B35").Select
Selection.AutoFill Destination:=Range("B2:M35"), Type:=xlFillDefault
Dim c As Range
With ActiveWorkbook.Sheets("INTEGRATION")
.Copy
With Range(Range("B1"), Selection.End(xlDown))
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
ChDir "C:\"
.SaveAs Filename:="C:\INTEGRATION.txt", FileFormat:= _
xlTextPrinter, CreateBackup:=False
End With
'je voulais réduire la plage de données précédentes (de B à J) et écrire les colonnes restantes ( de K à M) à la fin du fichier .txt
' mais le programme n'accepte pas ce que je lui demande
'Close #1
'Open "C:\INTEGRATION.txt" For Append As #1
' Print #1, vbCrLf
' Print #1,
' With Range(Range("K1"), Selection.End(xlDown))
' .Copy
'.PasteSpecial Paste:=xlPasteValues
'End With
'Print #1,
' Close #1
End Sub