Bonjour,

Voila, j'ai créer un script sous VBA excel.
Celui ci est sencé ouvrir un page excel ( ou la créer si elle n'existe pas ) et enregistrer un tableau a l'intérieur de cette page, puis la fermer.

Et j'ai une erreur dans mon code au moment d'entrer mes données dans cette page.

Pouvez vous m'aider ?

Bien cordialement



Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
 
 
 
Private Sub CommandButton1_Click()
 
 
    On Error GoTo Err_XLWrite
 
    Dim myXl As Excel.Application
    Dim mySheet As Excel.Workbook
 
   'Creation de l'objet an excel
   Set myXl = CreateObject("Excel.Application")
 
   'Ouverture du fichier excel
   Set mySheet = myXl.Workbooks.Open("D:\Documents and  Settings\Invité\Mes documents\Justin\test\toto.xls")
 
    Dim x As Integer, y As Integer
    Dim i As Integer, j As Integer
    Dim NomTableau() As String
 
    'Redéfinit la taille du tableau
    x = 10
    y = 5
    ReDim NomTableau(1 To x, 1 To y)
 
    'Alimente les éléments du tableau
    For i = 1 To x
        For j = 1 To y
            NomTableau(i, j) = i & "-" & j
        Next j
    Next i
 
    'Transfère les éléments du tableau dans la feuille de calcul ----> message d'erreur sur la ligne suivante mais je ne sais pas pourquoi
    myXl.Range(Cells(1, 1), Cells(UBound(NomTableau, 1), UBound(NomTableau, 2))) = NomTableau 
 
 
   'Sauvegarde du fichier
   mySheet.Save
 
   'Fermeture du fichier
   mySheet.Close
 
   'On quitte excel
   myXl.Quit
 
   'Libération des objets
   Set myChart = Nothing
   Set mySheet = Nothing
   Set myXl = Nothing
 
Exit_XLWrite:
Exit Sub
 
Err_XLWrite:
MsgBox Error$
Resume Exit_XLWrite
End Sub