[VB6 - Excel] Problème lors de la fermeture du fichierRésolu

Question

Bonjour tlm!

J'ai un petit probleme avec VB6 et Excel...  Mon programme prend des data pour les mettres dans excel, jusque la pas de probleme...  Mon probleme est lorsque je veux fermer le fichier, il me demande touojurs : Voulez-vous r&#233;ellement sauvegarder?.   Il ne faudrait pas qu'il me demande sa et qu'il sauvegarde automatique.. Je ne suis pas certains si cela est possible... Voici mon codes :

    'Chemin du fichier a modifier &#224; chaque installation
        Dim repertoire As String
        repertoire = "C:\fichier.xls"
     'Ouverture de l'application
        Set appexcel = New Excel.Application
    'Gestion du fichier et ouverture statique
        appexcel.Workbooks.Open repertoire
     'Visualisation en fond d'ecran la page excel
        appexcel.Visible = False
    
*** ICI JE RENTRE LES DATAS ***

      'Fermer le fichier excel
         appexcel.Workbooks.Close    
'MON PROBL&#200;ME EST ICI

Je cherche donc une facon de fermer mon fichier sans qu'il me pose la question, ou en pouvant r&#233;pondre automatiquement a la question...

Merci d'avance!

mrdep1978 · Accepted Answer

Excuse moi, j'ai répondu trop vite :
le "appexcel.Workbooks.Close" n'a pas d'arguments.
Si tu l'utilises comme ça, il va fermer tous les fichiers Excels ouverts.

Je pense que la manière la plus propre est d'affecter un objet de type Classeur à chaque fichier que tu ouvres :

Dim l_WorkBook as Object 'As WorkBook si tu as mis Excel dans les références de ton projet)
Set l_WorkBook = appexcel.Workbooks.Open (repertoire)
...
'Exemple d'utilisation de l_Workbook : Remplit la cellule A1
l_Workbook.WorkSheets("Feuil1").Range("A1").Value = "toto"
...
'Fermet le classeur
Call l_WorkBook.Close(True)
'Quitte Excel
appexcel.Quit

mrdep1978 · Answer

Salut,

Il faut passer le paramètre True à la fonction Close pour qu'il force l'enregistrement. (Pour info : avec False, il ferme sans enregistrer)
Call appexcel.Workbooks.Close(True)

forum_ma · Answer

Merci de m'avoir r&#233;pondu si vite, mais j'ai essay&#233; ce que tu m'as proposs&#233; et voici l'erreur :

Run-time error '450':
Wrong number of arguments or invalid property assigment

J'ai touver appexcel.SaveWorkspace  mais sa me demande ou le saver parce que le fichier est ouvert en read-only...

Je continu a chercher, si vous pouvez m'aider sa serait tr&#232;s appr&#233;cier!!

Merci!

forum_ma · Answer

Sa marche mais j'ai un petit probleme...  Je dois presque absolument traiter les cases avec (1,1) au lieu de "A1"  Parce que j'ai a peu pres 3000 lignes de data et environs 20 colonnes de data...  Faque sa va bcps mieu gerer avec (1,1) comme je fesais au d&#233;but..  Mais bon j'va essayer de regarder sa, mais si tu sais comment faire gene toi pas ;)

Merci bcps!!

forum_ma · Answer

Finalement j'ai d&#233;ja trouv&#233;!!

l_WorkBook.Worksheets(1).Cells(1, 17).Value = "sadasdas"

s&#233; pratiquement la meme chose que tu m'avais donn&#233;...

MERCI BCPS!!!

forum_ma · Answer

Juste pour etre certain que si quelqu'un retombe sur le sujet, qu'il comprenne bien voici le r&#233;sultat final :

    'Chemin du fichier a modifier &#224; chaque installation
        Dim repertoire As String
        repertoire = "C:\fichier.xls"
     'Ouverture de l'application
        Set appexcel = New Excel.Application


        Dim l_WorkBook As Workbook 'si tu as mis Excel dans les r&#233;f&#233;rences de ton projet)
        Set l_WorkBook = appexcel.Workbooks.Open(repertoire)


     'Visualisation en fond d'ecran la page excel
        appexcel.Visible = False


    'TRAITER DATA ICI
        l_WorkBook.Worksheets(1).Cells(1, 1).Value = "Cycle number"  'un exemple


    'Fermet le classeur
        Call l_WorkBook.Close(True)
    'Quitte Excel
        appexcel.Quit

Voila Il faut que le fichier existe et que la r&#233;f&#233;rence pour "Microsft Excel X.0 Object Library" soit s&#233;lectionn&#233;

[VB6 - Excel] Problème lors de la fermeture du fichier

6 réponses

Discussions similaires