macro enregistrement

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

Bonjour,

Quelque chose de ce style ?

Code:

---

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

---

Magique je te remercie
vraiment

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

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:

---

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

---

parfaitmerci beaucoup vraiment

:yaisse2: