Bonjour, je cherche à exporter certaines sélections sur une feuille
Pour le moment j’arrive à le faire sur une feuille :
Sub exportation_txt()
Dim NomFic As String
NomFic = Sheets("Feuil1").Range("A1") & ".txt"
Sheets("Feuil2").Copy
With ActiveWorkbook
.SaveAs "\Test\" & NomFic, FileFormat:=xlText
.Close SaveChanges:=False
End With
End Sub
Mais le souci c’est qu’il me prend tout ce qu’il se trouve sur la feuille
Je voudrais prendre seulement une partie
Par exemple A1 :H10
Alors je me suis dis
Qu’avec ce code ça fonctionnerait
Sub exportation_txt()
Dim NomFic As String
NomFic = Sheets("Feuil1").Range("A1") & ".txt"
Sheets("Feuil2").Range("A1:H10").Copy
With ActiveWorkbook
.SaveAs "\Test\" & NomFic, FileFormat:=xlText
.Close SaveChanges:=False
End With
End Sub
Mais rien à faire, plus rien ne fonctionne.
Quelqu’un pourrait-il me dire où se trouve mon erreur ?
Merci à vous.