Créer une fonction sous VB2008 qui permet de créer, ouvrir et écrir dans un fich

Question

Bonjour tout le monde (je m'excuse si c'est pas le bon emplacement pour poser ma question car je suis nouvelle sur ce forum...)

Tout d'abord je tiens à remercier toute personne qui s'interesse à lire ma question posé et je serai reconnaissante à ceux qui peuvent m'apporter de l'aide... :)

Donc j'ai un programme écrit sous VB6 qui permet de déclarer une fonction Excel pour créer un fichier Excel et l'utiliser dans le reste du code et pouvoir enregistrer les résultat de la simulation d'un logiciel dans ce fichier (le fichier excel active dans le bureau).

Voici le code de la fonction sous VB6:

Function StartExcel(file_name As String)
     
    Dim Excel
    
    On Error Resume Next
                                                                                                                                                                       
    Set Excel = New Excel.Application
    Application.DisplayAlerts = False
   
    
    Workbooks.Add
    ActiveWorkbook.SaveAs FileName:=file_name _
            , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
            ReadOnlyRecommended:=False, CreateBackup:=False
    
    Application.DisplayAlerts = True
    
    Excel.Visible = True
    
    Workbook.Select
    Sheets(1).Select
    Cells.Clear


End Function

Ce code marche à merveille sous VB6 par contre la migration du code vers Visual Basic 2008 montre qu'il y a des erreurs... Tél que la fonction n'est pas pris en compte par le reste du code, donc il faut redefinir Excel (comme si ont le crée de nouveau) ce qui menne à la création de plusieurs fichiers excel à l'execution du programme alors que j'ai besoin d'un seul...

Svp j'attend avec impatience votre aide pour avancer...

Je vous Remercie vivement :)

cs_Le Pivert · Answer

Bonjour,
Pour créer un fichier Excel et l'ouvrir il y a ce code tout simple

  Dim ApExcel As Object
        ApExcel = CreateObject("Excel.application") 'creer un objet
        ApExcel.Visible = True ' vous pouvez voir Excel
        ApExcel.Workbooks.Add() 'Ajoute un nouveau classeur.

Sinon voici ta fonction corrigé

 Function StartExcel(ByVal file_name As String)
        On Error Resume Next

        Dim ApExcel As Object
        ApExcel = CreateObject("Excel.application") 'creer un objet

        ApExcel.Application.DisplayAlerts = False

        ApExcel.Workbooks.Add() 'Ajoute un nouveau classeur.

        ApExcel.ActiveWorkbook.SaveAs(FileName:=file_name _
        , FileFormat:=ApExcel.xlNormal, Password:="", WriteResPassword:="", _
         ReadOnlyRecommended:=False, CreateBackup:=False)

        ApExcel.Application.DisplayAlerts = True

        ApExcel.Visible = True ' vous pouvez voir Excel

        ApExcel.Workbook.Select()
        ApExcel.Sheets(1).Select()
        ApExcel.Cells.Clear()

    End Function

et pour l'appeler

 StartExcel("chemin du Classeur1.xls")



@+ Le Pivert

Skalipanovich · Answer

SVP donnée moi un coud main pour harger des donnee a partir d'une dataset a un datagrid en language wpf ( control wpf )

Skalipanovich · Answer

saimyas · Answer

Bonjour tout le monde,

Je vous remercie viement Le Pivert, je vais essayer le code proposé.

Bon début de semaine

Saimyas

saimyas · Answer

Re bonjour

Le problème c'est que quand j'appelle la fonction pour pouvoir écrir dans le fichier Excel en écrivant le code suivant:

StartExcel (Chemin du dossier)

Excel.ActiveWorkbook.worksheets("Sheet1").Cells(1, 1).Value = "Saimyas"

Le programme ne marche plus...

:(

Saimyas

cs_Le Pivert · Answer

Essaie ceci 

 Function StartExcel(ByVal file_name As String)
        On Error Resume Next

        Dim ApExcel As Object
        ApExcel = CreateObject("Excel.application") 'creer un objet

        ApExcel.Application.DisplayAlerts = False

        ApExcel.Workbooks.Add() 'Ajoute un nouveau classeur.

        ApExcel.ActiveWorkbook.SaveAs(FileName:=file_name _
        , FileFormat:=ApExcel.xlNormal, Password:="", WriteResPassword:="", _
         ReadOnlyRecommended:=False, CreateBackup:=False)

        ApExcel.Application.DisplayAlerts = True

        ApExcel.Visible = True ' vous pouvez voir Excel

        ApExcel.Workbook.Select()
        ApExcel.Sheets(1).Select()
        ApExcel.Cells.Clear()
        ApExcel.Sheets(1).Cells(1, 1).Value = "Saimyas"
    End Function

cs_Le Pivert · Answer

Rectification, tu mets ceci dans ton appel de fonction:

 Dim ApExcel As Object
        ApExcel = CreateObject("Excel.application") 'creer un objet
        StartExcel(Chemin du fichier.xls")
        ApExcel.Sheets(1).Cells(1, 1).Value = "Saimyas"

Il faut toujours créer un objet

Le Pivert

saimyas · Answer

Ah dac, mais si à chaque fois je crée un documents Excel quand j'appelle la fonction j'aurais plusisieurs fichier, alors que je veux enregistrer les données dans un meme fichier.

Pour bien expliquer, au début je crée la fonction qui crée Excel et après avoir mis le reste du code (d'autres fonction de calcul) je souhaite appeler la meme fonction excel pour qu'elle m'enregistre les resultats dans le meme fichier dèja ouvert.

Je vous Remercie Le Pivert et je m'excuse pour mes questions

cs_Le Pivert · Answer

Je te propose ceci à mettre dans un bouton:

 Dim ApExcel As Object
        ApExcel = CreateObject("Excel.application") 'creer un objet
        ApExcel.Visible = True ' vous pouvez voir Excel
        ApExcel.Workbooks.Open(Filename:="chemin du classeur.xls") 'on ouvre le classeur
        ApExcel.Sheets(1).Cells(1, 1).Value = "Saimyas" 'on écrit dans le classeur
        ApExcel.ActiveWorkbook.SaveAs(Filename:= _
         "Chemin du classeur.xls", _
          Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
         False, CreateBackup:=False) 'on enregistre le classeur
        ApExcel.ActiveWorkbook.Close() 'on ferme le classeur
        ApExcel.Visible = False 'on ferme Excel

cs_Le Pivert · Answer

Voici une fonction qui je pense devrait répondre à tes besoins:

Function WriteExcel(ByVal file_name As String, ByVal name As String)
        Dim ApExcel As Object
        ApExcel = CreateObject("Excel.application") 'creer un objet
        ApExcel.Visible = True ' vous pouvez voir Excel
        ApExcel.Workbooks.Open(Filename:=file_name) 'on ouvre le classeur
        ApExcel.Sheets(1).Cells(1, 1).Value = name 'on écrit dans le classeur
        ApExcel.ActiveWorkbook.SaveAs(Filename:= _
         file_name, _
          Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
         False, CreateBackup:=False) 'on enregistre le classeur
        ApExcel.ActiveWorkbook.Close() 'on ferme le classeur
        ApExcel.Visible = False 'on ferme Excel
        Return file_name
        Return name
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ApExcel As Object
        ApExcel = CreateObject("Excel.application") 'creer un objet
        WriteExcel("Chemin du fichier.xls", "Saimyas")
    End Sub

cs_Le Pivert · Answer

Voici les 2 fonctions, tu choisiras:

Function StartExcel(ByVal file_name As String, ByVal name As String)
        On Error Resume Next
        Dim ApExcel As Object
        ApExcel = CreateObject("Excel.application") 'creer un objet
        ApExcel.Application.DisplayAlerts = False
        ApExcel.Workbooks.Open(Filename:= _
               file_name)
        ApExcel.ActiveWorkbook.SaveAs(FileName:=file_name _
        , FileFormat:=ApExcel.xlNormal, Password:="", WriteResPassword:="", _
         ReadOnlyRecommended:=False, CreateBackup:=False)
        ApExcel.Application.DisplayAlerts = True
        ApExcel.Visible = True ' vous pouvez voir Excel
        ApExcel.Workbook.Select()
        ApExcel.Sheets(1).Select()
        ApExcel.Cells.Clear()
        ApExcel.Sheets(1).Cells(1, 1).Value = name
        Return file_name
        Return name
    End Function

    Function WriteExcel(ByVal file_name As String, ByVal name As String)
        Dim ApExcel As Object
        ApExcel = CreateObject("Excel.application") 'creer un objet
        ApExcel.Application.DisplayAlerts = False
        ApExcel.Visible = True ' vous pouvez voir Excel
        ApExcel.Workbooks.Open(Filename:=file_name) 'on ouvre le classeur
        ApExcel.Sheets(1).Cells(1, 1).Value = name 'on écrit dans le classeur
        ApExcel.ActiveWorkbook.SaveAs(Filename:= _
         file_name, _
          Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
         False, CreateBackup:=False) 'on enregistre le classeur
        ApExcel.Application.DisplayAlerts = True
        ApExcel.ActiveWorkbook.Close() 'on ferme le classeur
        ApExcel.Visible = False 'on ferme Excel
        Return file_name
        Return name
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        StartExcel("chemin du fichier.xls", "Saimyas")
 End Sub

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WriteExcel("chemin du fichier.xls", "Saimyas")
 End Sub





@+ Le Pivert

saimyas · Answer

Bonjour Le PIVERT,

Je vous remercie vivement pour votre aide précieuse.

Bien cordialement

Saimyas

chaibika · Answer

dtr = dts.Tables("Enseignant").NewRow >> erreur  est reference d'objet n'est pas définie à une instance d'objet >>
        dtr("Nom") = Me.Nomc.Text
        dtr("Prenom") = Me.Prenomc.Text
        dtr("id") = Me.id.Text
        dtr("Télé") = Me.tele.Text
        dtr("Adresse") = Me.Adressec
        dts.Tables("Enseignant").Rows.Add(dtr)
        'Pour modifier les valeurs changées dans le DataAdapter
        cmdb = New OleDbCommandBuilder(dta)
        'Mise à jour
        dta.Update(dts, "Enseignant")
        'On vide le DataSet et on le 'recharge' de nouveau.
        dts.Clear()
        dta.Fill(dts, "Enseignant")
        dtt = dts.Tables("Enseignant")

cs_atot · Answer

Bonjour

Moi je galere c'est pour aller à la ligne à chaque fois si qq à une idée 
Merci par avance

cs_ShayW · Answer

chaibika ,atot,skalipanivitch

ça ne serait pas mieux si chacun postait
sa question dans un différent post 

http://www.vbfrance.com/reglement.aspx

cs_atot · Answer

ShayW

Si tu lis le post ce n'est qu'une suite logique !!!!!! Pourquoi refaire un post pour me renvoyer vers ce lien ......

cs_Le Pivert · Answer

Pour aller à la ligne en vba

"Voici un code" _
& vbNewLine & "pour aller" _
& vbNewLine & "à la ligne" _
Le Pivert

cs_atot · Answer

Merci pour ta reponse le Pivert

ça marche pas

je m'explique mon code tourne sous vb 2008. J'ai des resultats qui s'affiche dans des text box, je les copies correctment dans mon fichier ecel mais impossible d'aller à la ligne . Toutes mes donnes se copient à la suite  .Voici le code

 Dim ApExcel As Object
 Dim i As Integer


ApExcel = CreateObject("Excel.application")         
ApExcel.Workbooks.Open(Filename:="c:\fichier.xls")         

 For i = 1 To 1

ApExcel.Sheets(1).cells(i, 1).Value = (Now)
ApExcel.Sheets(1).Cells(i, 2).Value = (L_Nom_Campagne.Text)
ApExcel.Sheets(1).Cells(i, 3).Value = (L_cadence.Text) 
ApExcel.Sheets(1).Cells(i, 4).Value = (L_Compteur.Text)
             
 Next
 i = i + 1

  
J'ai du mal faire ma boucle je tourne en rond si qq à une idée 
Merci

cs_Le Pivert · Answer

Essaie ceci:

 Dim ApExcel As Object
        Dim i As Integer


        ApExcel = CreateObject("Excel.application")
        ApExcel.Workbooks.Open(Filename:="chemin du classeur.xls")

        For i = 1 To 1

            ApExcel.Sheets(1).cells(i, 1).Value = Now
            ApExcel.Sheets(1).Cells(i, 2).Value = L_Nom_Campagne.Text
            ApExcel.Sheets(1).Cells(i, 3).Value = L_cadence.Text
            ApExcel.Sheets(1).Cells(i, 4).Value = L_Compteur.Text

        Next
Tu n'étais pas loin
Bonne programmation


Le Pivert

cs_Le Pivert · Answer

Erreur il faut lire

 Dim ApExcel As Object
        Dim i As Integer


        ApExcel = CreateObject("Excel.application")
        ApExcel.Workbooks.Open(Filename:="chemin du classeur.xls")

        For i = 1 To 1
            i = i + 1
            ApExcel.Sheets(1).cells(i, 1).Value = Now
            ApExcel.Sheets(1).Cells(i, 2).Value = L_Nom_Campagne.Text
            ApExcel.Sheets(1).Cells(i, 3).Value = L_cadence.Text
            ApExcel.Sheets(1).Cells(i, 4).Value = L_Compteur.Text

        Next





Le Pivert

Créer une fonction sous VB2008 qui permet de créer, ouvrir et écrir dans un fich

24 réponses

Votre réponse

Discussions similaires