Remplir les cellules Excel avec des variables VB

Version imprimable

18/11/2005, 15h19
rupeni

Remplir les cellules Excel avec des variables VB

:?:
je souhaite mettre les données d'un tableau vb sur une ligne de cellules Excel.
C'est-à-dire que si le tableau s'appelle a() : a(1) va sur la cellule A1, a(2) sur B1, etc...
Je ne trouve pas le code :(

Help!
18/11/2005, 15h24
leroissejp

Bonjour,
VBA Excel où VB6 ??

jpleroisse
18/11/2005, 15h25
ouskel'n'or
J'ai ça qui consiste à passer des paramètres de Word à Excel
Code:

1 2 3 Sub PasserDesParamètres() AppExcel.Workbooks("MonClasseur").MaVariable = AppWord.Documents("MonDoc").MaVariable End Sub
Ton "truc" devrait ressembler à ça

A tout hasard

A+
18/11/2005, 17h20
rupeni

Citation:

Envoyé par leroissejp

Bonjour,
VBA Excel où VB6 ??

jpleroisse

vb6
18/11/2005, 17h22
rupeni
Citation:
Envoyé par ouskel'n'or

J'ai ça qui consiste à passer des paramètres de Word à Excel

Code:

1 2 3 Sub PasserDesParamètres() AppExcel.Workbooks("MonClasseur").MaVariable = AppWord.Documents("MonDoc").MaVariable End Sub

Ton "truc" devrait ressembler à ça
je vais essayer de voir ce que je peux faire avec ça. merci
18/11/2005, 17h24
Megaxel
Pourquoi est-ce que tu parles de Word, Ousk?
Il est dans VB, il a un tableau, c'est tout. Il faut juste faire:
Code:

1 2 3 4 For i = 1 To 5 AppExcel.ActiveWorkbook.ActiveSheet.Cells(1, i).Value = a(i) Next i
Non?

Bonsoir,
Dans l'exemple suivant, je crée un nouveau classeur.
Placer la référence à Excel !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub Command1_Click()
   Dim objXL As New Excel.Application
Dim wbXL As New Excel.Workbook
Dim wsXL As New Excel.Worksheet
If Not IsObject(objXL) Then
    MsgBox "Vous Avez Besoin de Microsoft Excel  pour cette Fonction", vbExclamation, "Excel"
    Exit Sub
End If
' Ouvre Excel
objXL.Visible = True
Set wbXL = objXL.Workbooks.Add
Set wsXL = objXL.ActiveSheet
Dim a(3)
a(0) = "Bonjour"
a(1) = "Comment vas-tu ?"
a(2) = "Bien et toi ?"
a(3) = "Moi ça va aussi."
wsXL.Cells(1, 1) = a(0)
wsXL.Cells(1, 2) = a(1)
wsXL.Cells(1, 3) = a(2)
wsXL.Cells(1, 4) = a(3)
End Sub

jpleroisse

21/11/2005, 09h31
ouskel'n'or

Citation:

Pourquoi est-ce que tu parles de Word, Ousk?
Il est dans VB, il a un tableau, c'est tout. Il faut juste faire:

Parce que j'avais le passage d'un paramètre d'une appli à l'autre dans ces deux lignes et, en attendant que tu répondes, et comme je n'ai pas VB, c'était juste pour qu'il extrapole... mais heureusement, tu es arrivé... :wink:

A+