Bonjour all !
Bon jsuis au bord de casser ma machine car j'ai un pb que je 'narrive pas à résoudre... SVP HELP ME !
Source :
Public Sub Command1_Click()
Dim classeurXLS As Object
Dim fname As String
'Affichage des checkbox correspondants
Set classeurXLS = CreateObject("Excel.application")
classeurXLS.Workbooks.Open ("c:\excel.xls")
'ça c'est pas indispensable :
classeurXLS.Visible = True
Workbooks("Excel.xls").Worksheets("feuil1").Activate
i = 1
For x = 1 To 21
For z = 1 To 200
If Tableau(x, z) = "" Then
Exit For
Else
Cells(i, 1) = Tableau(x, z)
End If
i = i + 1
Next z
i = i + 1
Next x
fname = Application.GetSaveAsFilename
ActiveWorkbook.SaveAs FileName:=fname
classeurXLS.Workbooks.Close
Excel.Application.Quit
End Sub
Voilà, lorsque je clique sur le bouton, celui ci m'ouvre une page excel, remplit la feuille et sauvegarde la page et revient sur mon formulaire VB. ok ! Mais quand je reclique sur ce meme bouton pour ouvrir un page excel, voici l'erreur qu'il me pete :( :
=> Erreur d'éxécution '9' :
Indice en dehors de la plage
Alors que la premiere fois ca passe niquel... de quoi cela peut venir ???? pliz help !