Comment enregistrer un fichier Excel ouvert avec 'CreateObject("Excel.application")'

Version imprimable

05/03/2018, 10h24
Claude_Azoulai

Comment enregistrer un fichier Excel ouvert avec 'CreateObject("Excel.application")'

Bonjour
J'ai une application qui doit ouvrir un fichier Excel, y introduire des données et l'enregistrer sous un autre nom.
Application dans laquelle j'ouvre un fichier Excel avec 'ApExcel = CreateObject("Excel.application")'
- J'ouvre bien le fichier Excel
- J'y introduit des donnée sans problème
Mais pour l'enregistrer, malgré des jours de recherche sur le Net, je n'ai pas trouvé la commande pour.
La commande 'ApExel.Workbooks.SaveAs(FileName:="Toto.xls") ne fonctionne pas

Si quelqu'un a une idée, cela me rendra un grand service

Bonjour,

Code:

1
2
3
4
dim xlExcel8 as integer= 56 
dim Wb as object=ApExel.open("C:\Rep\Fichier.xlsx")
Wb.SaveAs(FileName:="C:\Rep\Toto.xls",xlExcel8 )

pour information CreateObject c'est du VB6 (Mais si c'est ton choix pas de problème)! si tu décoche la librairie Visual Basic ton programme explose! c'est ce que je fais systématiquement aux projets qu'on me présente!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function GetObject(ByVal App As String) As Object
        Try
            Return Marshal.GetActiveObject(App)
        Catch ex As Exception
            Return CreateObject(App)
        End Try
 
 
    End Function
 
 
    Public Function CreateObject(ByVal app As String) As Object
        Dim AppType As Object = Type.GetTypeFromProgID(app)
        Dim ApplInst As Object = Activator.CreateInstance(AppType)
        Return ApplInst
    End Function

05/03/2018, 11h08
Claude_Azoulai

Oups! J'ai trouvé la solution pae hasard
au lieu de faire :
ApExcel.Workbooks.SaveAs(FileName:="Toto.xls")
Il faut fair :
ApExcel.Workbooks(1).SaveAs(FileName:="Toto.xls")
Et là, je n'ai plus d'erreur
Merci encore et mille excuses