Discussion :

[johannj]

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

[Minick]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[johannj]

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 , chose que je ne souhaite pas.

Johann

[fring]

Bonjour,

Le post ci-dessous pourra sans doute t'aider

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

[johannj]

Merci Fring pour ta réponse.

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

Johann