Bonjour voila jai crée une application sur Visual basic et je dois grace a
des "windows Form" .
dans l'une des "windows form" jai crée des textboxs et jaimerais que lorsque
jentre les renseignement dedans ca me les sauvegardes dans un fichier excel
et un endroit precis merci de votre aide
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques93
Bonjour jonathan, jonathan a écrit :
Bonjour voila jai crée une application sur Visual basic et je dois grace a des "windows Form" .
dans l'une des "windows form" jai crée des textboxs et jaimerais que lorsque jentre les renseignement dedans ca me les sauvegardes dans un fichier excel et un endroit precis merci de votre aide
Private Sub Command1_Click() Dim oExcel As Object
Set oExcel = CreateObject("Excel.Application") With oExcel .Visible = True .Application.Workbooks.Open "C:Toto.xls" .Range("A1") = Me.Text1.Text .Range("B2") = Me.Text2.Text .DisplayAlerts = False .Application.ActiveWorkbook.SaveAs "C:Toto.xls" .Application.Quit End With Set oExcel = Nothing End Sub
Pour faciliter la saisie, tu peux ajouter une référence à Excel et déclarer
Dim oExcel As Excel.Application
puis l'instancier avec :
Set oExcel = New Excel.Application -- Cordialement,
Jacques.
Bonjour jonathan,
jonathan a écrit :
Bonjour voila jai crée une application sur Visual basic et je dois grace a
des "windows Form" .
dans l'une des "windows form" jai crée des textboxs et jaimerais que lorsque
jentre les renseignement dedans ca me les sauvegardes dans un fichier excel
et un endroit precis merci de votre aide
Private Sub Command1_Click()
Dim oExcel As Object
Set oExcel = CreateObject("Excel.Application")
With oExcel
.Visible = True
.Application.Workbooks.Open "C:Toto.xls"
.Range("A1") = Me.Text1.Text
.Range("B2") = Me.Text2.Text
.DisplayAlerts = False
.Application.ActiveWorkbook.SaveAs "C:Toto.xls"
.Application.Quit
End With
Set oExcel = Nothing
End Sub
Pour faciliter la saisie, tu peux ajouter une référence à Excel et
déclarer
Dim oExcel As Excel.Application
puis l'instancier avec :
Set oExcel = New Excel.Application
--
Cordialement,
Bonjour voila jai crée une application sur Visual basic et je dois grace a des "windows Form" .
dans l'une des "windows form" jai crée des textboxs et jaimerais que lorsque jentre les renseignement dedans ca me les sauvegardes dans un fichier excel et un endroit precis merci de votre aide
Private Sub Command1_Click() Dim oExcel As Object
Set oExcel = CreateObject("Excel.Application") With oExcel .Visible = True .Application.Workbooks.Open "C:Toto.xls" .Range("A1") = Me.Text1.Text .Range("B2") = Me.Text2.Text .DisplayAlerts = False .Application.ActiveWorkbook.SaveAs "C:Toto.xls" .Application.Quit End With Set oExcel = Nothing End Sub
Pour faciliter la saisie, tu peux ajouter une référence à Excel et déclarer
Dim oExcel As Excel.Application
puis l'instancier avec :
Set oExcel = New Excel.Application -- Cordialement,