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 :
PrivateSub CommandButton1_Click() OnErrorGoTo Err_XLWrite Dim myXl As Excel.ApplicationDim mySheet As Excel.Workbook 'Creation de l'objet an excelSet myXl = CreateObject("Excel.Application") 'Ouverture du fichier excelSet mySheet = myXl.Workbooks.Open("D:\Documents and Settings\Invité\Mes documents\Justin\test\toto.xls") Dim x AsInteger, y AsIntegerDim i AsInteger, j AsIntegerDim NomTableau()AsString'Redéfinit la taille du tableau x = 10 y = 5ReDim NomTableau(1To x, 1To y)'Alimente les éléments du tableauFor i = 1To x For j = 1To 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 objetsSet myChart = NothingSet mySheet = NothingSet myXl = Nothing Exit_XLWrite: ExitSub Err_XLWrite: MsgBox Error$ Resume Exit_XLWrite EndSub