[VBA-Excel] Erreur 1004 sur utilisation de Cells
Bonjour à tous,
Je vous expose mon problème qui tient en quelques lignes seulement :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
Sub NewBook()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
'On créer l'objet Excel
Set xlApp = CreateObject("Excel.Application")
'On ajoute un classeur
Set xlBook = xlApp.Workbooks.Add
'On rend le classeur visible
xlApp.Visible = True
'On créé une nouvelle feuille
Set xlSheet = xlBook.Worksheets.Add
xlSheet.Name = "New"
'On écrit dans la première cellule
xlSheet.Cells(0, 0) = "Salut"
End Sub |
Et voilà qu'à l'exécution, je me fais insulter par une :
Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet
Paradoxalement, si j'utlise ...
Code:
1
2
|
xlSheet.Range("A1:A1") = "Salut" |
... Ca marche très bien.
Mais j'ai besion de procèder par .Cells(row,column), sinon ca me complique la suite de l'appli.
Merci d'avance !
