Accueil > Forum > > > > [VB6 - Excel] Problème lors de la fermeture du fichier
[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é
Livres en rapport
|
Derniers Blogs
ASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHEASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHE par fathi
Tout le monde est unanime pour dire que la programmation multi-thread et asynchrone est en train de devenir un sujet incontournable. Beaucoup de choses sont arrivées avec le framework 4 pour le code parallèle (TPL, PLinq,.) et bientôt, on va avoir l...
Cliquez pour lire la suite de l'article par fathi PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS !PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS ! par Etienne Margraff
J'ai récemment eu un problème pour obtenir l'intelliTrace sur un site web dans IIS. Il n'y avait pas de message d'erreur, rien dans le journal d'évènement Windows, et après 3 appels à une voyante, 2 visites chez un marabou, j'ai failli me résign...
Cliquez pour lire la suite de l'article par Etienne Margraff OFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONSOFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONS par junarnoalg
De nombreuses entreprises font le choix de SharePoint Online, service fourni au travers de l'offre de Microsoft Office 365. S'il est vrai que ce choix apporte un grand nombre d'avantages; rapidité de mise en œuvre, disponibilité, large couvertu...
Cliquez pour lire la suite de l'article par junarnoalg PRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGEPRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGE par richardc
http://www.c2idotnet.com/articles/presentation-des-api-rest-de-windows-azure-lister-les-comptes-de-storage
Désolé pour "toto", mais c2i existait avant blogs.developpeur.org et c'est mon site "officiel" ;-) ...
Cliquez pour lire la suite de l'article par richardc
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|