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:
Cependant, d'après l'aide, cette méthode s'applique à Worksheet.
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
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:
Merci d'avance,
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
Johann
Partager