Private Sub Command1_Click()

Dim xls As Excel.Application
Dim xlsfeuille As Excel.Worksheet
Dim xlsclasseur As Excel.Workbook
Dim pchar As String

Set xls = CreateObject("Excel.Application")
Set xlsclasseur = xls.Workbooks.Add
Set xlsfeuille = xlsclasseur.Worksheets(1)



xlsfeuille.Cells(3, 1).Value = "MA FEUILLE EXCEL EST BELLE ET BIEN CREE"
xlsfeuille.Cells(4, 1).Value = "C'EST FACILE NON"


CommonDialog1.Filter = "Fichiers excel (*.xls)|*.xls"
CommonDialog1.ShowSave
chpath = CommonDialog1.FileName
If chpath <> "" Then
xlsclasseur.SaveAs (chpath)
End If
xls.Application.Quit
Set xls = Nothing
MsgBox "FIN DE L'EXPORTATION", vbOKOnly + vbInformation, "GESTION DES STATISTIQUES"


End Sub

Il faut que tu importes excel sinon il ne comprend pas les code excel
tu va dans Projet / Ajouter une référence / COM et tu sélectionne Microsoft excel ... là il te souligneras plus rien ^^

Salut

tu doit avant tous dans le menu objet selectionner reference puis activer microsoft excel

Bonjour,

Dim xls As Excel.Application
Dim xlsfeuille As Excel.Worksheet
Dim xlsclasseur As Excel.Workbook

Cette déclaration utilise des types prédéfinies qui se trouvent dans
la librairie ( référence Microsoft excel ... ).

À ce moment je dis que vous utilisé les objets d'Excel.

Par opposition, vous pouvez déclarer vos variables ainsi :

Dim xls As Variant
Dim xlsfeuille As Variant
Dim xlsclasseur As Variant

Set xls = CreateObject("Excel.Application")
Cette instruction instancie un objet de scripting et ne nécessite pas la référence.

exemple de script VBS pilotant Excel sans cette référence:
http://membre.oricom.ca/lupin/documents/excelvbs.txt

Lupin

Ok c'est nickel merci à tous ^^

Le compilateur me souligne le Type Excel.Application meme si j'ai importer le package
Imports System.Net.Mime.MediaTypeNames