Discussion :

[forsay1]

Bonjour,

J'ai crée un bouton "parcourir" afin d'enregistrer le fichier ouvert.

J'aimerai dans la barre juste en dessous du nom du fichier, limiter le format d'enregistrement a ".txt"!

Est-ce que c possible ?

Voici le code que j'ai utilisé :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Bt_Enreg_Click()
 
Dim Chemin_Enreg As String
 
Chemin_Enreg = Application.GetSaveAsFilename
Me.Txt_Enreg.Text = Chemin_Enreg
 
 
End Sub

Merci !!

[Junness]

Code :

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

1
2
Application.GetSaveAsFilename( _
    fileFilter:="Text Files (*.txt), *.txt")

présent dans l'aide F1 ....

[ouskel'n'or]

J'aimerai dans la barre juste en dessous du nom du fichier,

De quoi parles-tu ? Quelle barre ?

Regarde à SaveAs dans l'aide et puis cette ligne obtenue en enregistrant la macro (vba97)

Code :

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

1
2
    ActiveWorkbook.SaveAs FileName:="D:\xls\fichierAeffacer.txt" _
          , FileFormat:=xlText, CreateBackup:=False

Je ne sais pas ce que ça donne en VBA 2003, sans doute la syntaxe donnée par juness

[forsay1]

c'est super ca marche !

Merci bcp pour votre aide