Discussion :

[alpking]

bonjour,

je voulais savoir pourquoi cette fonction qui doit écrire "1" dans une cellule ne marche pas ? Qu'est ce que j'ai fait de faux ? Quand je l'éxécute, j'ai l'erreur suivante : "Run-time error 91 : object variable or with block variable not set.

voici le code

Sub juste_figure_18()
Dim xlapp As Excel.Application
Dim classeur As Excel.Workbook
Dim feuille As Excel.Worksheet
Set xlapp = New Excel.Application
xlapp.Visible = True
Set feuille = xlapp.ActiveSheet
feuille.Range("B19") = "1"


Set feuille = Nothing

Set classeur = Nothing
Set xlapp = Nothing
End Sub

[Theocourant]

Salut,

A quelle ligne exactement as-tu une erreur ?

+

Théo

[malhivertman1]

Je parirais que c'est sur une de tes lignes avec un 'set'

[alpking]

quand je clique sur "debug", il me surligne en jaune la ligne suivante :

feuille.Range("B19") = "1"

[malhivertman1]

Et si tu enleve le 'set' de

Set feuille = xlapp.ActiveSheet

?

Je dis ça au hasard mais on ne sait jamais

[SfJ5Rpw8]

ben tu crée une application Excel, une feuille, mais pas le classeur pour mettre la feuille ....

Code :

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

1
2
3
4
xlapp.Visible = True
Set classeur = xlapp.Workbooks.Add
Set feuille = xlapp.ActiveSheet

[Theocourant]

Re,

Je viens de tester ta routine.. Ca ne marche pas car tu n'as pas de worbook ouvert ....

voilà le code modifié:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub juste_figure_18()
Dim xlapp As Excel.Application
Dim classeur As Excel.Workbook
Dim feuille As Excel.Worksheet
Set xlapp = New Excel.Application
xlapp.Visible = True
Set classeur = xlapp.Workbooks.Add
Set feuille = classeur.ActiveSheet
feuille.Range("B19") = "1"
 
Set feuille = Nothing
Set classeur = Nothing
Set xlapp = Nothing
End Sub

+

Théo

[alpking]

merci pour vos réponse, le truc c'est que en fait j'ai une autre fonction vba avant qui ouvre un fichier excel spécifique, et donc cette fonction doit opérérer dans ce classeur ouvert précédement...

comment faire ?