Comment envoyer des donées de Vb a Excel

Version imprimable

04/12/2005, 16h14
chandl3r

Comment envoyer des donées de Vb a Excel

bonjour,

j ai un soucis, j'ai crée une fiche de recrutement (projet info fac) sous VB.

En gros pour resumer, je dois envoyer des données pour plusieurs candidats dans un tableau Excel.

J ai reussi a envoyer pour toutes les données d'une personne dans une premiere ligne, mais je voudrais creer ine ligne de code i+1 pour envoyer les données du second candidat dans la 2 eme ligen directement, et ainsi de suite.

Merci de m'aider, c un projet a rendre pour demain.
04/12/2005, 16h49
leroissejp

Bonjour,
Sous quelle forme se présente ta fiche et si on pouvait voir ton code de transfert ce serais mieux pour t'aider.

jpleroisse
04/12/2005, 16h52
ridan

salut,

Il y a un tuto intéressant sur le pilotage d'Excel avec VB : http://drq.developpez.com/vb/tutoriels/Excel/

Bon courage !

voila ma ligne de code
---------------------------------------------------------------------------------------

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Public Sub Command2_Click()
 
 
Set MonXl = CreateObject("Excel.Application") ' Ceci initialise la variable et charge Excel en arrière plan
MonXl.Visible = True 'Rend Excel visible...
MonXl.UserControl = True
' Ouvre MonFichier
MonXl.Workbooks.Open FileName:="C:\r1.xls"
MonXl.Range("A2").Value = text1.Text ' Envoie du de la Base de données dans la ou les cellules
MonXl.Range("B2").Value = Text2.Text
MonXl.Range("C2").Value = Text3.Text
MonXl.Range("D2").Value = Text4.Text
MonXl.Range("E2").Value = Text5.Text
MonXl.Range("F2").Value = Text6.Text      Cette partie marche, mais je sais aps comment faire la meme chsoe pour lancer une 2 eme candidature, puis une 3 eme etc....
 
    Option1.Value = False
    Option2.Value = False
    Option3.Value = False
    Option4.Value = False
    Option5.Value = False
    Option6.Value = False
    Option7.Value = False
    Option8.Value = False
    Option9.Value = False
    Option10.Value = False
    Option11.Value = False
    Option12.Value = False
    Option13.Value = False
    Option14.Value = False
    Option15.Value = False
    Option16.Value = False
    text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
    Text6.Text = ""
 
End Sub

04/12/2005, 17h26
chandl3r

voila le projet

http://perso.numericable.fr/~chandler/3.JPG

Et voila ou doivent arriver les données

http://perso.numericable.fr/~chandler/2.JPG

tiens modifie le debut de ton code ..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Sub Command2_Click()
Dim iL As Integer ' Ligne En cours
Set MonXl = CreateObject("Excel.Application") ' Ceci initialise la variable et charge Excel en arrière plan
MonXl.Visible = True 'Rend Excel visible...
MonXl.UserControl = True
' Ouvre MonFichier
MonXl.Workbooks.Open FileName:="c:\r1.xls"
iL = MonXl.Range("A2").CurrentRegion.Rows.Count + 1
MonXl.Cells(iL, 1).Value = "text1.Text" ' Envoie du de la Base de données dans la ou les cellules
MonXl.Cells(iL, 2).Value = Text2.Text
MonXl.Cells(iL, 3).Value = Text3.Text
MonXl.Cells(iL, 4).Value = Text4.Text
MonXl.Cells(iL, 5).Value = Text5.Text
MonXl.Cells(iL, 6).Value = Text6.Text
....

:roll: :wink:

Bonsoir

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
 
Private Sub cmdRésultat_Click()
Dim MonXl As Excel.Application
Set MonXl = CreateObject("Excel.Application") ' Ceci initialise la variable et charge Excel en arrière plan
MonXl.Visible = True 'Rend Excel visible...
MonXl.UserControl = True
' Ouvre MonFichier
MonXl.Workbooks.Open FileName:="C:\r1.xls"
Dim En_Colone, En_Ligne
Application.ScreenUpdating = False
Range("A1").Value = "nom :"
Range("b1").Value = "âge :"
Range("c1").Value = "année étude :"
Range("d1").Value = "salaire :"
Range("e1").Value = "exp prof :"
Range("f1").Value = "exp étranger :"
Range("g1").Value = "note Critère 1"
Range("h1").Value = "note Critère 2"
Range("i1").Value = "note Citère 3"
Range("j1").Value = "note Citère 4"
Range("k1").Value = "note Citère 5"
Range("l1").Value = "moyenne"
 
Range("A1").Select
En_Colone = ActiveCell.Column
En_Ligne = ActiveCell.Row + 1
While Not IsEmpty(ActiveCell.Value)
Cells(En_Ligne, En_Colone).Activate
En_Ligne = En_Ligne + 1
Wend
ActiveCell.Offset(0, 0).Range("A1").Select
    ActiveCell.Value = Form1.Text1
 
ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.Value = Form1.Text2
 
ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.Value = Form1.Text3
 
  ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.Value = Form1.Text4
 
ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.Value = Form1.Text5
 
ActiveCell.Offset(0, 1).Range("A1").Select
  ActiveCell.Value = Form1.Text6
Application.ScreenUpdating = True
ActiveWorkbook.SaveAs "C:\r1.xls"
Workbooks.Close
MonXl.Quit
Set MonXl = Nothing
End Sub
 
Private Sub cmdsuivant_Click()
Dim obj As Object
        For Each obj In Me.Controls
        If TypeName(obj) = "TextBox" Then
         obj.Text = ""
       End If
    Next
    Text1.SetFocus
Dim opt As Object
    For Each opt In Me.Controls
    If TypeName(opt) = "OptionButton" Then
        opt.Value = False
    End If
Next
End Sub
 
Private Sub cmdQuitter()
Unload Me
End Sub

jpleroisse

04/12/2005, 23h12
chandl3r

merci beaucoup, je vais debrouiller avec ca :)