Méthode Save as

Bonjour le forum,

J'ai une petite question, surement de débutant bien confirmé :mrgreen:, 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:

---

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:

---

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

Salut,

Si j'ai bien compris, il suffit de rendre ta feuille 3 active avant le saveas

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub export()   Dim WB As Workbook Dim nom As String   Set WB = ThisWorkbook nom = Application.GetSaveAsFilename("") WB.Worksheets(3).Activate WB.SaveAs Filename:=nom & ".txt", FileFormat:=xlText   End Sub

---

Merci Minick,

Merci de ta réponse. En effet, si l'on fait comme tu le mentionnes, le feuille du classeur sélectionnée sera bien sauvegardée en format .txt.

Cependant, tout mon classeur excel est alors sauvegardé en .txt :cry:, chose que je ne souhaite pas.

Johann

Bonjour,

Le post ci-dessous pourra sans doute t'aider

http://www.developpez.net/forums/d95...worksheet-txt/

Merci Fring pour ta réponse.

Comme toujours, merci au forum pour les réponses, continuez :ccool:

Johann