[VBA-E] Application Get Save As Filename

Bonjour,

A la fin d'une macro, j'utilise ce code pour ouvrir une boite "enregistré sous" :

Code:

---

1 2 3 4 5 6 7 8 9

Dim FName As Variant Dim Sep As String FName = Application.GetSaveAsFilename("C:\Documents and Settings\All Users\Bureau\Prospective_JJMMAAAA", fileFilter:="Text Files (*.txt), *.txt") If FName = False Then MsgBox "Export annulé" Exit Sub End If ExportToTextFile CStr(FName), Sep, vbYesNo = vbNo End Sub

---

Idéalement, je souhaite faire un enregistré "tout court" avec, à la place de JJMMAAAA, les éléments d'une cellule de mon tableau Excel... Comment faire ?

D'avance merci pour vos aides,
Slt,
Matthieu

si le chemin est toujour le même, utilise plutot saveas

Code:

---

1 2	chemin = ThisWorkbook.Path & "\" ActiveWorkbook.SaveAs Filename:=chemin & nomclasseur, FileFormat:=xlText

---

Merci,
Et comment récupérer le contenu d'une cellule (d'un autre onglet) dans le nom du fichier ?

ça c'est facile pourtant, fais un effort

Code:

---

1 2 3

nomclasseur = worksheets("autrefeuile").cells(2,1).value chemin = ThisWorkbook.Path & "\" ActiveWorkbook.SaveAs Filename:=chemin & nomclasseur, FileFormat:=xlText

---

Parfait, merci !
Je n'y connais pas grand chose, désolé si les questions paraissent d'une simplicité évidente !
Merci encore,
Matthieu