[VBA-E]Erreur sur méthode de classeur

Version imprimable

17/02/2006, 11h12
vanima

[VBA-E]Erreur sur méthode de classeur

Bonjour tout le monde,
Voila j'ai un problème que je n'arrive vraiment pas a comprendre ...

En fait je n'arrive pas a acceder au méthodes de mon ActiveWorkbook, ou tout simplement de Thisworkbook .
En fait dans ma macro auto_sub je veux récuperer le nm de mon classeur avce la propriété .Name

Citation:

Erreur d'éxecution '-2147221020(80001401a8)' :
La méthode 'Name' de l'objet _Workbook' a échoué

Merci a tous

Code:

1
2
3
With Application.ActiveWorkbook
       MsgBox .Name
End With

Essaie avec ça

A+

17/02/2006, 14h02
zazaraignée

Salut

Citation:

Envoyé par vanima

dans ma macro auto_sub

C'est qulle version d'Excel? Je ne connais pas auto_sub, cependant je connais auto_open.
17/02/2006, 14h03
vanima

non mais en fait ca plante aussi car application.workbook est vide
donc cela plante pareil des que je lui demande le .name

MErci
17/02/2006, 14h04
vanima

salut zaza....comment ca va ?
CA fait longtemps que je ne t'ai pas eu...:)
Sinon dédolé il faut bien voir auo_open...erreur de ma part désolé encore
A plus
17/02/2006, 14h16
zazaraignée
Ça va mais j'ai un mauvais rhume qui s'est jeté sur les bronches.

Pour le Auto_Open, qu'on met dans un module, c'est du vieux code encore supporté par Excel 97 mais pour les versions plus récentes, je ne sais pas. D'où la question pour la version (et non l'aversion) :wink: .

Citation:

En fait je n'arrive pas a acceder au méthodes de mon ActiveWorkbook, ou tout simplement de Thisworkbook .

En double-cliquant sur l'icone Thisworkbook, l'éditeur VBA ouvre un fenêtre de code pour le classeur. Tu y met une procédure Workbook_Open.
Code:

1 2 3 Private Sub Workbook_Open() MsgBox Application.ActiveWorkbook.Name End Sub
après ça, sais plus!
17/02/2006, 14h33
vanima

Oui moi pareil mais ca va mieux now, bon rétablissement...

SInon en fait ce la ne dépend pas de la macro en elle meme qui va appeler la méthode.name mais je pense que c 'est un probleme lié au VB enfin si on me comprend :) EN fait l'objet Workbook n'est pas instancié

Bon je continue a gratter.
Merci en tout cas de vos disponibilités et a bientot
17/02/2006, 15h53
ouskel'n'or

Tu devrais aller voir YannMeunier à cette adresse, pour un classeur, il fait tout bien comme il faut :wink:
http://www.developpez.net/forums/viewtopic.php?t=458772
A+ et bon courage
17/02/2006, 15h57
Megaxel

Déjà, si Vanima nous montrait son code, on pourrait avoir une idée de ce qui se passe...
17/02/2006, 16h30
vanima

Désolé pour le code mais je t'assure que je pense pas que ca t'aide beaucoup car c une ligne des le debut

Code:

activeworkbook.name qui plant...

Je pense avoir une piste et je vous en fait part ...
EN fait lorsque le fichier est ouvert en écriture, pas de probleme ca marche,
je pense en fdait que lorsque l'on ouvre le fichier en lecture seule(c mon cas ici), le classeur reste un simple classeur et non plus un classeur de travail ...d'ou la raison.
J'ai tester de récuperer les propriété d'un wor'ksheet et meme problme par contre lorsque je récupère les propriété d'un sheet cela marche...
Vous en pensez quoi ?

Merci
17/02/2006, 17h06
Megaxel
C'est quoi, ton environnement de travail?
Ta macro, elle est où? Dans un module, dans un fichier Excel?
Tu as plusieurs classeurs ouverts?
Si tu mets seulement
Code:

1 2 3 Sub test() Workbooks("NomDuClasseur.xls").Name End Sub
ça fait quoi?
17/02/2006, 17h24
vanima

OK

J'espere que mes réponses sauront t'éclairer, merci en tout cas, c sympa
Environnement excel(xp), VBA
Macro dans un module
UN seul claseur ouvert.

Sinon bah j'avais deja essayer ce que tu me suggeres mais en fait je pense vraiment que le probleme vient du fait qu'en lecture seul , il n'y pas "d'espace de travail" work....
Ce qui aurait été cool ca aurait été un équivalent de Book un peu comme est Sheet pour un Worksheet.
Car mes macros marchent des que j'ouvre le fichier en écriture....

Merci
17/02/2006, 17h34
Megaxel
J'ai fait un test: j'ai créé un fichier Excel vide, je l'ai enregistré, et je l'ai mis en "lecture seule".
Puis je l'ai rouvert, et j'ai mis mon petit sub test().
Code:

1 2 3 Sub test() MsgBox ActiveWorkbook.Name End Sub
Et ça marche très bien. Je ne comprend pas ce qui se passe chez toi...

ATTENTION: sur le code que j'ai mis juste avant, j'avais oublié le "MsgBox"... :oops:
20/02/2006, 09h45
vanima

Merci c cool d'avoir essayer.
Moi aussi je ne comprends pas ce qui se passe.
Mais je precise juste que le fichier est en lecture seule cra qqun est deja dessus en ecriture...
20/02/2006, 12h32
ouskel'n'or

Essaie en l'enregistrant sous un autre nom et en ne travaillant dessus qu'ensuite ... :cry:

A+