code pour enregistrement

[philboy]

bonjour a tous, je bloque sur un truc:

j'ai une userform avec une textbox et un commandbutton
j'aimerai enregistrer une feuil dans un dossier en mettant directment le nom du fichier dans la textbox. voila mon code pour l'instant:



Private Sub CommandButton1_Click()

'creation dune nouvelfeuil pour copier-coller'
Cells.Select
Selection.Copy
Workbooks.Add
Cells.Select
ActiveSheet.Paste
Application.CutCopyMode = False

'enregistrement'

ChDir "C:"

Application.Dialogs(xlDialogSaveAs).Show

ActiveWindow.SmallScroll Down:=-6
ActiveWindow.Close
Range("A10").Select

Unload Me
End Sub

Voila tout, j'aimerai savoir ou mettre la textbox1.value pour que ca rentre le nom du fichier.

Merci d'avance a tous pour vos lumieres

 

[Wilfried]

Salut,Salut,

Tu peu essayer :
activeworkbook.saveas filename:="C:\" & userform1.textbox1.value

Attention il faut que tu est mit l'extenstion ou alors

activeworkbook.saveas filename:="C:\" & userform1.textbox1.value & ".xls"

Tu peu faire un test pour savoir si ton opérateur à bien saisi l'extension :

If ucase(right(userform1.textbox1.value,4))=ucase(".xls") then
activeworkbook.saveas filename:="C:\" & userform1.textbox1.value
else
activeworkbook.saveas filename:="C:\" & userform1.textbox1.value & _
".xls"
end if

le terme ucase() permet d'éviter les sousi de majuscule minuscule...

Tu insert ça à la place de :

Application.Dialogs(xlDialogSaveAs).Show


A++ Wilfried ;-p

 

[Philboy]

oki, super je vais essayer de bricoler avec ca

merci beaucoup

 

[Abel]

Bonjour Philboy, Wilfried,

Regarde aussi la méthode GetSaveAsFileName dans l'aide de VBE.

Tu as aussi des exemples sur le forum. Fais une recherche dans le contenu avec GetSaveAsFileName.

Abel.