Discussion :

[hergios]

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 !

[Philippe Tulliez]

Bonjour,
Ton problème vient de ta dernière ligne de code
Pour écrire dans la cellule A1, il faut écrire Cells(1, 1).
En effet la syntaxe est Cells(Ligne, Colonne), autrement dit A1 = Ligne 1, Colonne 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

xlSheet.Cells(1, 1) = "Salut"

[hergios]

Merci monsieur !
De là ou je suis, je vous adresse toutes mes amitiés !
Problème résolu.