Bonjour le forum,

J'ai une petite question, surement de débutant bien confirmé , concernant la méthode saveas.
J'aimerais sauvegardé une feuille de mon classeur en format texte.
Pour le moment, j'utilise le code suivant, qui marche très bien:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub export()
 
Dim WB As Workbook
Dim nom As String
 
Set WB = ThisWorkbook
WB.Worksheets(3).Copy
nom = Application.GetSaveAsFilename("")
ActiveWorkbook.SaveAs Filename:=nom & ".txt", FileFormat:=xlText
ActiveWorkbook.Close False
 
End Sub
Cependant, d'après l'aide, cette méthode s'applique à Worksheet.
Ma question est la suivante: dans mon code, j'applique la méthode SaveAs à l'objet Workbook, ne puis je pas l'appliquer directement à Worksheet?
Un code du genre:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub export()
 
Dim WB As Workbook
Dim nom As String
 
Set WB = ThisWorkbook
nom = Application.GetSaveAsFilename("")
WB.Worksheets(3).SaveAs Filename:=nom & ".txt", FileFormat:=xlText
 
End Sub
Merci d'avance,

Johann