Erreur Automation sur le SaveAs d'un objet Excel

Question

Bonjour &#224; tous.

Cela fait bien un jour et demi que je cherche comment cr&#233;er un classeur
Excel, &#233;crire dedans et enfin le fermer en le sauvegardant. J'ai trouv&#233;
comment le cr&#233;er et &#233;crire dedans mais mon probl&#232;me r&#233;side dans la
sauvegarde :  j'ai  "Erreur Automation Le serveur a g&#233;n&#233;r&#233;
une exception (2147417851)"...rien que &#231;a...voici le code et vraiment
merci d'avance :)



    Set appli = CreateObject("Excel.Application")

    chemin = App.Path & "\Rapport-" & txtSemaine.text & "-" & Year(Date) & ".xls"

    Set classeur = appli.Workbooks.Add()

    

    Set feuille = appli.Worksheets(1)

    

    For i = 1 To 15

        

        feuille.Cells(1, i) = tableau(i)

        

    Next i

                

    classeur.SaveAs (chemin)

    classeur.Close

    appli.Quit


Moi j'aime bien les nordinateurs... :] :] :]

Rrominet · Answer

Hello,

J'ai le m&#234;me probl&#232;me que toi, toi ou les autres avez pu le r&#233;soudre ?

Merci d'avance ;-)

GetheBeber · Answer

Bonjour, 

j'ai effectivement r&#233;ussi &#224; r&#233;soudre mon probl&#232;me avec ce bout de code qui ne me fait plus d'erreur. Bon courage :)



Dim appli As New Excel.Application

Dim classeur As New Excel.Workbook

Dim feuille As New Excel.Worksheet

Dim chemin As String





    Set appli = CreateObject("Excel.Application")



    If (fso.FileExists(chemin))
Then        'si le fichier existe
=> on l'ouvre et on le met &#224; jour

        Set classeur = appli.Workbooks.Open(chemin)

    Else

        Set classeur = appli.Workbooks.Add()

    End If





    Set feuille = appli.Worksheets(1)



    /////////////////////////////////

    //traitements sur la feuille////

    ///////////////////////////////



    If (fso.FileExists(chemin)) Then        'si le fichier existe

        classeur.Save

    Else

        classeur.SaveAs (chemin)

    End If

    

    classeur.Close

    appli.Quit

    

    Set feuille = Nothing

    Set classeur = Nothing

    Set appli = Nothing


Moi j'aime bien les nordinateurs... :] :] :]