Discussion :

[problemeaide]

Bonjour,
j'ai un petit probleme au niveau de l'enregistrement au format txt en macros

mon probleme n'est pas dans l'enregistrement mais dans le choix du fichier ou le sauvegarder j'aimerais avoir une macros qui me demande ou je veux sauvegarder mon fichier .


voila merci d'avance

[fring]

Bonjour,

Quelque chose de ce style ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim NomFich As String
 
NomFich = Application.GetSaveAsFilename(fileFilter:="Classeur Excel (*.xls), *.xls")
 
On Error GoTo suite
If NomFich = False Then Exit Sub
suite:
ActiveWorkbook.SaveAs Filename:=NomFich
 
End Sub

[problemeaide]

Magique je te remercie
vraiment

[problemeaide]

en faite j'aimerais qu'il ne prenne qu'une page et la il me prend tous le fichier et il n'est pas au format txt
si c pas trop en demander

[fring]

oui sorry, je n'avais pas bien lu la question, j'avais zappé l'enregistrement au format txt

Essaye le code ci-dessous en adaptant le nom de la feuille

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Test2()
Dim NomFich As String
 
Application.ScreenUpdating = False
 
Sheets("Feuil1").Copy '<-- nom de la feuille à adapter
 
NomFich = Application.GetSaveAsFilename(fileFilter:="Fichier Texte (*.txt), *.txt")
 
On Error GoTo suite
If NomFich = False Then Exit Sub
 
suite:
With ActiveWorkbook
.SaveAs Filename:=NomFich, FileFormat:=xlText
.Saved = True
.Close
End With
 
Application.ScreenUpdating = True
 
End Sub

[problemeaide]

parfaitmerci beaucoup vraiment