Bonjour à tous,

Je vous expose mon problème qui tient en quelques lignes seulement :

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
 
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 !