begin process at 2012 02 17 02:03:16
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Visual Basic & VB.NET

 > 

Archives Visual Basic

 > 

Divers

 > 

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


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

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

mercredi 12 avril 2006 à 15:59:03 | [VB6 - Excel] Problème lors de la fermeture du fichier

forum_ma

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é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 à 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ÈME EST ICI

Je cherche donc une facon de fermer mon fichier sans qu'il me pose la question, ou en pouvant répondre automatiquement a la question...

Merci d'avance!
mercredi 12 avril 2006 à 16:08:58 | Re : [VB6 - Excel] Problème lors de la fermeture du fichier

mrdep1978

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)
mercredi 12 avril 2006 à 16:19:51 | Re : [VB6 - Excel] Problème lors de la fermeture du fichier

forum_ma

Merci de m'avoir répondu si vite, mais j'ai essayé ce que tu m'as propossé 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ès apprécier!!

Merci!

mercredi 12 avril 2006 à 17:21:33 | Re : [VB6 - Excel] Problème lors de la fermeture du fichier

mrdep1978

Réponse acceptée !
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
mercredi 12 avril 2006 à 19:16:10 | Re : [VB6 - Excel] Problème lors de la fermeture du fichier

forum_ma

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ébut..  Mais bon j'va essayer de regarder sa, mais si tu sais comment faire gene toi pas ;)

Merci bcps!!

mercredi 12 avril 2006 à 19:17:49 | Re : [VB6 - Excel] Problème lors de la fermeture du fichier

forum_ma

Finalement j'ai déja trouvé!!

l_WorkBook.Worksheets(1).Cells(1, 17).Value = "sadasdas"

sé pratiquement la meme chose que tu m'avais donné...

MERCI BCPS!!!
mercredi 12 avril 2006 à 19:23:59 | Re : [VB6 - Excel] Problème lors de la fermeture du fichier

forum_ma

Juste pour etre certain que si quelqu'un retombe sur le sujet, qu'il comprenne bien voici le résultat final :

    'Chemin du fichier a modifier à 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éfé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éférence pour "Microsft Excel X.0 Object Library" soit sélectionné



Cette discussion est classée dans : fichier, vb6, excel, probleme, appexcel


Répondre à ce message

Sujets en rapport avec ce message

Probleme avec excel et vb6 [ par UrbanSyphon ] Bonjour,Je voudrai dans une de mes pages après avoir entré des valeurs dans des textbox et avoir appuyé sur mon bouton validé qu'il enregistre mes val VB6 et des fichiers Excel 97 [ par Sandro ] Bonjour,Je cherche à ouvrir un fichier Excel 97 avec VB6, pour extraire le contenu de feuilles et de cellules, pour générer un fichier texte avec.Ext- Probleme entre VB et Excel [ par Xime ] Salut,Voila, quand je clique sur un bouton, je créé un classeur excel si je reclique des la fin du procesus l'application plante en me disant "la meth petit probleme vb6 + excel [ par Saliard ] Bonjour a tous, bon, je ne suis ni desespere, et je n'ai absolument pas envie de me suicider, mais je poste tout de meme ici :J'aurais juste un petit Fichier ressource VB6 [ par Ortun ] J'ai extrait vers un fichier Excel ma table de string de mon fichier ressource.J'ai fait traduire tout mon texte.Je n'arrive pas à réintéger le fichie Excel et VB6 [ par jeanluc ] SalutComment imprimer un fichier Excel sous vb6 ?J'ai créer une feuille Excel a partir de mon appli, j'eregistre le fichier .xls dans un répertoire ma HELP !!!!! Probleme de memoire Entre Excel et VB6 [ par wagalolo ] Bon ben voila vous etes ma derniere chance avant le suicide.:-)))J ai une application VB qui s'interface avce une base access pour ecrire des infos da ouvrir un fichier dont le nom commence par ... [ par ll ] Help,j'ai commencé par vb pour excel et viens de me mettre à vb6je n'arrive pas à trouver comment ouvrir un fichier dont le nom commence par 00020012* Lien fichier Excel à VB6 : recherche de cellule ! [ par guilleto ] J'ai un fichier Excel dans lequel j'ai des cellules portant un nom spécifique.exemple : la cellule A1 porte le nom "CodeArticle_1" !Comment puis-je ré


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,856 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales