Exporter une feuille excel

[kiki4]

Bonjour à tous, après une recherche dans excel-downloads et n'ayant rien trouvé, je fais appel à vos connaissances...

Voici mon souci:

je traite des données par un formulaire.
Et je souhaiterai lors d'un click sur un cmdbutton par exemple, que la Feuil1 (celle qui recoit les données) soit exporté "comme un nouveau fichier" au format excel, et que l'on puisse choisir le lieux de l'enregistrement ainsi que le nom.

Merci d'avance.

 

[roro69]

Re : Exporter une feuille excel

Bonjour
Peut etre avec ce code:

Sub test()
Dim chemin As String, Fichier As String
chemin = "C:\adresse de ton enrgistrements"
Sheets("Nom de la feuille à copier").Copy
Fichier = "Nom du classeur" & ".xls"
With ActiveWorkbook
.SaveAs Filename:=chemin & Fichier
.close
end with
End Sub

A++
A++

 

[kiki4]

Re : Exporter une feuille excel

Bonsoir, merci pour ta réponse, par contre

Fichier = "Nom du classeur" & ".xls"

doit être

Fichier = "Nom du classeur" ' car en fait il le sort déjà au format .xls

Un grand merci... ça m'as bien aidé.