OVH Cloud OVH Cloud

aidez mois svp

1 réponse
Avatar
jonathan
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

1 réponse

Avatar
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.