Création d'un fichier excel à partir de VB6

Question

Bonjour j'ai cr&#233;er un programme qui fait un certains
nombre de calcul. je voudrais par la suite que ce dernier lors de
l'appui sur le bouton enregistrer puisse me cr&#233;er un fichier excel dont
l'utilisateur aura d&#233;terminer le nom et l'emplacement.



            j'attend vos r&#233;ponses et encore merci :-)

BlackMan

sebmafate · Answer

pas la peine de chercher midi à 14h... il suffit tout simplement de construire un fichier HTML et d'y mettre une extension .xls. Lorsque tu ouvrira le fichier, excel l'interprétra directement. Sébastien FERRAND Blog : http://blogs.developpeur.org/sebmafate

tbbuim1 · Answer

J'ai fait un truc un peu similaire

Je prends un fichier excel existant, je l'ouvre

Et ensuite je lance &#231;a &#224; la fin

emplacement => "C:" par exemple

On pourrait d&#233;finir &#233;galement l'emplacement par un CommonDialog...



    'Demande de nommer un fichier excel pour sauver

    NomFich = InputBox("Entrez le nom du nouveau fichier Excel cr&#233;er", "OBLIGATOIRE")

    If Not IsNull(NomFich) Then
ClasseurXLS.ActiveWorkbook.SaveAs Emplacement & "" & NomFich
& ".xls"


Cela va sauver un nouveau fichier excel &#224; l'emplacement choisi et au nom de fichier d&#233;termin&#233; dans le inputBox
TBBUIM

jpleroisse · Answer

Bonjour,

Private Sub Command1_Click()
Dim Chemin, NomFichier
Chemin = InputBox("Entrez le nom du r&#233;pertoire de destination")
NomFichier = InputBox("Entrez le nom du fichier")
Open Chemin + NomFichier For Output As #1
Close #1
End Sub

jpleroisse

tbbuim1 · Answer

Dim ClasseurXLS As Object

Dim Feuille,Emplacement, NomFich As String

Emplacement = Forms.Application.CurrentProject.Path

Set ClasseurXLS = CreateObject("Excel.application")

ClasseurXLS.Workbooks.Open Emplacement & "\FichierExcel.xls" 'Ouverture du classeur

 'Activation de la feuille que l'on veut

 ClasseurXLS.Workbooks("Tableaudeproduction.xls").Worksheets(Feuille).Activate
'Pour pouvoir r&#233;cup&#233;rer les valeurs contenues dans les cellules de cette feuille il faut

' ClasseurXLS.Cells(5, 2)  5eme ligne colonne B

'Demande de nommer un fichier excel pour sauver

NomFich = InputBox("Entrez le nom du nouveau fichier Excel cr&#233;er", "OBLIGATOIRE, Sinon vous &#233;crasez le fichier de base")

If Not IsNull(NomFich) Then ClasseurXLS.ActiveWorkbook.SaveAs Emplacement & "" & NomFich & ".xls"

'Fermeture du classeur d'importation

ClasseurXLS.Workbooks.Close

'Fermeture de l'objet Excel

Set ClasseurXLS = Nothing
TBBUIM

tbbuim1 · Answer

Oups j'ai fait cette fonction sous Access

En VB6 Emplacement = App.Path
Le reste est identique...
TBBUIM

Création d'un fichier excel à partir de VB6

5 réponses

Discussions similaires