'on dit que l'objet est de type feuille excel et ouvre Excel Set DevisExcel = CreateObject("Excel.Application") 'mettre à True pour l'afficher à l'écran , mettre à False pour pas qu'Excel reste invisible DevisExcel.Visible = True 'ajoute un nouveau classeur DevisExcel.Workbooks.Add 'supprime l'affichage des messages d'erreurs ou de confirmation de suppression, ... DevisExcel.DisplayAlerts = False 'selectionne la feuille du classeur DevisExcel.Sheets("Feuil2").Select 'on supprime cette feuille DevisExcel.ActiveWindow.SelectedSheets.Delete 'on fait pareil avec la feuille 3 DevisExcel.Sheets("Feuil3").Select DevisExcel.ActiveWindow.SelectedSheets.Delete 'on selectionne la feuille 1 (la seule qui reste) DevisExcel.Sheets("Feuil1").Select 'on change le nom de celle ci DevisExcel.Sheets("Feuil1").Name = "Devis" 'on sauvegarde la feuille sous le nom contenu dans NomSauvegarde (ex : NomSauvegarde="C:\MonFichier.xls") DevisExcel.ActiveWorkbook.SaveAs FileName:=NomSauvegarde, _ FileFormat:=17, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False 'on quitte excel DevisExcel.Application.Quit
'on dit que l'objet est de type feuille excel et ouvre Excel Set DevisExcel = CreateObject("Excel.Application") 'mettre à True pour l'afficher à l'écran , mettre à False pour pas qu'Excel reste invisible DevisExcel.Visible = True 'ajoute un nouveau classeur DevisExcel.Workbooks.Add 'supprime l'affichage des messages d'erreurs ou de confirmation de suppression, ... DevisExcel.DisplayAlerts = False 'selectionne la feuille du classeur DevisExcel.Sheets("Feuil2").Select 'on supprime cette feuille DevisExcel.ActiveWindow.SelectedSheets.Delete 'on fait pareil avec la feuille 3 DevisExcel.Sheets("Feuil3").Select DevisExcel.ActiveWindow.SelectedSheets.Delete 'on selectionne la feuille 1 (la seule qui reste) DevisExcel.Sheets("Feuil1").Select 'on change le nom de celle ci DevisExcel.Sheets("Feuil1").Name = "Devis" 'on sauvegarde la feuille sous le nom contenu dans NomSauvegarde (ex : NomSauvegarde="C:\MonFichier.xls") DevisExcel.ActiveWorkbook.SaveAs FileName:=NomSauvegarde, _ FileFormat:=17, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False 'on quitte excel DevisExcel.Application.Quit
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionOption Explicit Public xlapp As Object Public Sub MDIForm_Load() Load Debut Debut.Show Debut.cmd_Films.SetFocus Set xlapp = CreateObject("excel.application") xlapp.Visible = True xlapp.Workbooks.Open FileName:="C:\fichier.xls" End Sub
For compteur = 2 To xlapp.Sheets(1).Range("B2").End(xlDown).Row Ajout = xlapp.Sheets(1).Range("B" & compteur).Value Films.Cb_No.AddItem (Ajout) Next compteur