Accueil > Forum > > > > Creer un fichier Excel avec VB6
Creer un fichier Excel avec VB6
mercredi 14 mai 2008 à 20:50:34 |
Creer un fichier Excel avec VB6

Gegeleblond
|
Bonjour, Je sais qu avec la commande Workbooks.Open Filename:="C:\Documents\toto.xls", j ouvre un fichier deja existant avec VB6 mais j aimerais pouvoir creer mon propore fichier Excel. Savez vous comment faire? Merci
|
|
mercredi 14 mai 2008 à 21:23:20 |
Re : Creer un fichier Excel avec VB6

bigfish_le vrai
|
Réponse acceptée !
Salut,
Ton probleme est un probleme excel, VB6 ou les deux ?
Pour excel uniquement :
Workbooks.Add
Pour excel depuis VB6
Dim ExcelAppli As Object, NewXlFile As Object Set ExcelAppli = CreateObject("Excel.Application") Set NewXlFile = ExcelAppli.Workbooks.add NewXlFile.SaveAs Filename:="c:\temp\Momnouveaufichier", FileFormat:=xlNormal NewXlFile.Close False ExcelAppli.Quit Set NewXlFile = Nothing Set ExcelAppli = Nothing
A+
|
|
mercredi 14 mai 2008 à 22:26:49 |
Re : Creer un fichier Excel avec VB6

Gegeleblond
|
C est effectivement pour Excel depuis VB6. Et je dois dire que ce que tu m as dit fonctionne Merci.
Juste une autre question a quoi sert les lignes suivantes ? NewXlFile.Close False ExcelAppli.Quit Set NewXlFile = Nothing Set ExcelAppli = Nothing
|
|
mercredi 14 mai 2008 à 22:48:43 |
Re : Creer un fichier Excel avec VB6

bigfish_le vrai
|
Réponse acceptée !
...
NewXlFile .Close False 'ferme le fichier sans aucun message d'alerte meme si il n'a pas ete sauvé ExcelAppli.Quit 'ferme excel Set NewXlFile = Nothing 'vide la variable objet Set ExcelAppli = Nothing 'vide la variable objet pour les 2 dernieres lignes il est recommender de les avoirs en VB6, ne me demande pas pourquoi je ne suis pas un expert VB6 Par contre je te le deconseil en VBA. Le VBA n'aime pas du tout ca a tel point que la plus part du temps cela tue excel sans aucun message d'erreur. Pas glop !
A+
|
|
mercredi 14 mai 2008 à 22:53:21 |
Re : Creer un fichier Excel avec VB6

Gegeleblond
|
Encore une autre question :
Pour etre clair, dans mon programme, j ouvre un fichier (par exemple test.sin), ensuite je créeun fichier Excel que je rempli avec des valeurs provenant de test.sin (ce que j ai pu faire grace à ton aide) mais je souhaiterai que ce fichier Excel prenne le meme nom et le meme emplacement que test.sin à l exception pres que son extension sera .xls (test.xls). J ai essayé d utiliser CommonDialog1.FileName pour nommer mon fichier Excel puisque CommonDialog1.FileName est le nom du fichier selectionné lorsque je demande à mon programme d ouvrir un fichier mais je n y arrive pas. J ai ecrit NewXlFile.SaveAs FileName = CommonDialog1.FileName, FileFormat:=xlNormal mais ca ne fonctionne pas.
Pourrais tu m aider s il te plait?
|
|
mercredi 14 mai 2008 à 23:05:39 |
Re : Creer un fichier Excel avec VB6

pile_poil
|
Réponse acceptée !
mets le nom de ton fichier text dans une variable et utilise cette variable pour enregistrer ton fichier excel un truc du genre toto = "c:\ monprog\test.sin" NewXlFile.SaveAs left(toto, len(toto)-3) & "xls" si c'est la solution, penser : REPONSE ACCEPTEE
|
|
mercredi 14 mai 2008 à 23:23:42 |
Re : Creer un fichier Excel avec VB6

Gegeleblond
|
Euh je saisis pas trop le len(toto)-3... peux tu expliciter un peu?
En outre j ai pris test.sin comme exemple, en realite je dois etre capable de creer ce fichier excel (avec le meme nom et le meme emplacement) pour n importe quel fichier dont l extension est .sin. Or si je suis ta methode, je devrai à chaque fois revenir dans le code... C est pour ca que je tentais quelque chose avec CommonDialog1.FileName mais en vain...
|
|
mercredi 14 mai 2008 à 23:31:05 |
Re : Creer un fichier Excel avec VB6

bigfish_le vrai
|
Réponse acceptée !
... pour preciser un peut, CommonDialog1.FileName renvois le nom du fichier avec son extension donc en ecrivant : NewXlFile.SaveAs FileName = CommonDialog1.FileName, FileFormat:=xlNormal c'est comme si tu faisais : NewXlFile.SaveAs FileName = c:\temp\test.sin.xls donc comme te la expliqué pile_poil il te faut extraire le nom sans l'extension .sin NomFichier = CommonDialog1.FileName NomFichier = Left(NomFichier, Instr(NomFichier, ".") -1) 'instr renvoi la position du point NewXlFile.SaveAs Filename:=NomFichier , FileFormat:=xlNormal
pile_poil : FileFormat:=xlNormal permet d'attribuer directement l'extension par defaut d'excel (.xls) donc je propose une autre solution mais la tienne marche aussi A+ 
|
|
mercredi 14 mai 2008 à 23:32:26 |
Re : Creer un fichier Excel avec VB6

pile_poil
|
Réponse acceptée !
len(toto) te donne le nombre de caractères de la variable toto donc left(toto, len(toto)-3) & "xls" prend la partie gauche de totode toute la longeur moins trois lettres (en l'occurence sin) et ajoute "xls " donc dans l'exemple que je te donnais "c:\ monprog\test.sin" est transformé en "c:\ monprog\test.xls" mais tu aurais pu pour savoir ce que voulait dire "len" mettre ton curseur sur ce mot dans VB6 et appuyer sur F1 pour avoir l'aide en ligne et donc toutes les explication en réponse à ta deuxieme question : quel est ton code pour ouvrir ton fichier *.sin ? si c'est la solution, penser : REPONSE ACCEPTEE
|
|
mercredi 14 mai 2008 à 23:40:58 |
Re : Creer un fichier Excel avec VB6

pile_poil
|
bigfish tu as raison de le souligner ! mais pour moi il y a longtemps, et ayant appris tout seul a programmer VB6, je ne connaissais pas fileformat et avais trouvé cette astuce et l'habitude aidant ..... je l'ai gardée ! si c'est la solution, penser : REPONSE ACCEPTEE
|
|
Cette discussion est classée dans : fichier, creer, vb6, excel
Répondre à ce message
Sujets en rapport avec ce message
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-
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
Creer fichier Excel avec données d'un *.csv [ par guda ]
J'ai plusieurs fichiers csv que je doit réunir en un seul fichier excel (une feuille par csv).Y a t-il un moyen de copier tout les fichiers csv dans u
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
CREER UN FICHIER EXCEL AVEC LES DONNEES D'UNE DATAGRID [ par chup ]
La datagrid est constitué a partir d'une requête qui a des champs différents àchaque fois et je voudrais a partir de ce datagrid créer une feuille exc
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é
VB6 et EXCEL [ par atso ]
J'ai quitté VBA pour migrer pour VB6 afin de créer des applis autonomes. Ma difficulté est comment faire pour qu'une appli VB6 puisse agir sur Excel.E
Désactiver macro [ par EvilGost ]
Bonjour à tous,J'ai un petit soucis.A partir de VB6, je fais des manipulations sous excel, et à un moment donné, je dois ouvrir un fichier excel qui c
fichier Excel modèle pour appli VB6 [ par khamett ]
Salut à tous,Je développe une appli sous VB6 qui permet d'enregistrer beaucoup de données. J'ai donc choisi pour cela une feulle Excel.Mon pb est le s
Livres en rapport
|
Derniers Blogs
XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz
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
|