Discussion :

[Claude_Azoulai]

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

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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