Tanaka56
Messages postés124Date d'inscriptionsamedi 8 avril 2006StatutMembreDernière intervention29 janvier 2009 11 juil. 2006 à 11:39
Salut à vous deux.
Ni l'une ni l'autre application ne fonctionne.
mais vous m'avez mis sur la voie.
J'espère que ça servira car on ne trouvait pas sur le site le moyen de créer un fichier xls.
Ne pas oublier d'aller dans "Projet" "Références" et de cocher "Microsoft excel 11.0 object library"
Voila le résultat:
Cordialement
Private Sub Command1_Click()
Dim xlApp As New Excel.Application
Dim xlBook As WorkBook
Dim NomFichier As String
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.WorkBooks.Add
'xlBook.Visible = True ' Cette ligne, il ne la veut pas !
'Ensuite tu travailles dessus comme un fichier existant puis enfin
NomFichier = "c:\fichier.xls"
xlBook.SaveAs NomFichier' J'ai mis SaveAs au lieu de Save
xlBook.Close
xlApp.Quit
Set xlBook = Nothing' Il faut ajouter Set
Set xlApp = Nothing ' Il faut ajouter Set
End Sub