[VBA-PP]Ecrire dans une feuille Excel

**alpking** · 27/04/2006, 15h51

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** · 27/04/2006, 15h56

Salut,

A quelle ligne exactement as-tu une erreur ?

+

Théo

**malhivertman1** · 27/04/2006, 15h56

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

**alpking** · 27/04/2006, 16h08

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

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

**malhivertman1** · 27/04/2006, 16h15

Et si tu enleve le 'set' de

Set feuille = xlapp.ActiveSheet

?

Je dis ça au hasard mais on ne sait jamais

**SfJ5Rpw8** · 27/04/2006, 16h19

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** · 27/04/2006, 16h22

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** · 27/04/2006, 16h36

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 ?

**SfJ5Rpw8** · 27/04/2006, 16h38

c'est toujours la même ligne à modifier :

Code :

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

Set classeur = xlapp.Workbooks.Open ("c:\tmp\Monfichier.xls")

**alpking** · 27/04/2006, 16h47

oui mais le classeur excel est déjà ouvert, il est actif, et je ne veux pas que cette fonction me le réouvre, juste quelle inscrive "1" dans la cellule spécifiée.

**Catbull** · 27/04/2006, 16h54

Avant d'ouvrir le classeur, assure toi qu'il ne le soit pas déjà. Pour cela teste son existence par un appel à la collection Workbooks.

**SfJ5Rpw8** · 27/04/2006, 16h56

Envoyé par alpking

oui mais le classeur excel est déjà ouvert, il est actif, et je ne veux pas que cette fonction me le réouvre, juste quelle inscrive "1" dans la cellule spécifiée.

Attends ? il nous manque peu être une info importante d'ou lance tu ce code ?? c'est du VB6 VBA Excel PP ...

**alpking** · 27/04/2006, 16h59

ok Catbull, mais je suis très novice en vba

et je ne sais pas comment faire. Le truc c'est que comme j'ai dit tout a l'heure, quand cette fonction sera exécutée (depuis powerpoint si jamais), il y aura un workbook ouvert et actif, donc pas besoin d'un créer ou d'un ouvrir un...

**SfJ5Rpw8** · 27/04/2006, 17h03

et il n'y as pas moyen à ce que ce classeur soit fermé... ! c'est quand même plus simple si powerpoint ouvre le fichier , puis le ferme quand il n'en as plus besoin...

**alpking** · 27/04/2006, 17h06

bah en fait pas vraiment,parce que cette fonction est repetée 40 fois durant la présentation powerpoint, une fois toute les 2 diapositive, ce qui signifierai 40 ouverture et fermeture du classeuret en plus le classeur doit rester en arrière-plan, il ne doit pas venir devant la présentation...

**Catbull** · 27/04/2006, 17h08

La collection Workbooks est un membre de l'objet Application. Cette collection recense l'ensemble des classeurs ouverts. Pour accéder accéder un objet de la collection il suffit de passer en paramètre la clé de l'élément concerné :

Code :

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

MonElement = MaCollection(CléElement)

Dans notre cas, la clé est tout simplement le nom du classeur est on obtient :

Code :

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

 Set MonClasseur = xlapp.Workbooks("Mon Classeur.xls")

Il ne reste plus qu'a encapsuler le code dans une fonction afin de gérer les exceptions, notament si le classeur est fermé

**SfJ5Rpw8** · 27/04/2006, 17h10

Envoyé par Catbull

La collection Workbooks est un membre de l'objet Application. Cette collection recense l'ensemble des classeurs ouverts. Pour accéder accéder un objet de la collection il suffit de passer en paramètre la clé de l'élément concerné :

Code :

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

MonElement = MaCollection(CléElement)

Dans notre cas, la clé est tout simplement le nom du classeur est on obtient :

Code :

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

 Set MonClasseur = xlapp.Workbooks("Mon Classeur.xls")

Il ne reste plus qu'a encapsuler le code dans une fonction afin de gérer les exceptions, notament si le classeur est fermé

oui mais application c'est pas une collection

on accéde comment à l'application excel déjà ouverte ... (pas forcément ouverte.. par powerpoint !)

**SfJ5Rpw8** · 27/04/2006, 17h13

Envoyé par alpking

bah en fait pas vraiment,parce que cette fonction est repetée 40 fois durant la présentation powerpoint, une fois toute les 2 diapositive, ce qui signifierai 40 ouverture et fermeture du classeuret en plus le classeur doit rester en arrière-plan, il ne doit pas venir devant la présentation...

pour qu'il ne viennent pas devant l'application c'est la propriété visible...xlapp.visible = false..

**Catbull** · 27/04/2006, 17h23

L'objet Application représente une isntance d'Excel. Tu peux avoir plusieurs instances d'ouverte, cela ne gène pas. Si l'utilisateur ouvre Excel, powerPoint peut soit utiliser l'instance ouverte soit en créer une nouvelle. Par contre les collections workbooks sont les mêmes.

**alpking** · 27/04/2006, 17h29

j'ai testé une autre fonction qui marche, la voila :

Sub plusun()
Dim ObjCell As Range
For Each ObjCell In Range("B4").Cells
ObjCell.Value = ObjCell.Value + 1
Next
End Sub

elle accède directement au bon classeur, et fait exactement ce que je veux.

le problème, c'est que j'aimerai vraiment garder l'autre fonction, bien sur en la modifiant pour qu'elle marche, parce que j'ai du la dupliquer 40x en changeant juste la cellule, donc ca serait vraiment un gain de temps...

déjà, merci bp de votre aide

[VBA-PP]Ecrire dans une feuille Excel

Macros et VBA Excel

Discussions similaires

Partager

Partager