Discussion :

[Zytop]

Bonjour,

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

Code :

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

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

[alsimbad]

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

Code :

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

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

[Zytop]

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

[alsimbad]

ça c'est facile pourtant, fais un effort

Code :

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

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

[Zytop]

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