Discussion :

[vanima]

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

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

Merci a tous

[ouskel'n'or]

Code :

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

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

Essaie avec ça

A+

[zazaraignée]

Salut

dans ma macro auto_sub

C'est qulle version d'Excel? Je ne connais pas auto_sub, cependant je connais auto_open.

[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

[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

[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) .

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 :

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

1
2
3
Private Sub Workbook_Open()
    MsgBox Application.ActiveWorkbook.Name
End Sub

après ça, sais plus!

[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

[ouskel'n'or]

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

[Megaxel]

Déjà, si Vanima nous montrait son code, on pourrait avoir une idée de ce qui se passe...

[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 :

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

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

[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 :

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

1
2
3
Sub test()
   Workbooks("NomDuClasseur.xls").Name
End Sub

ça fait quoi?

[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

[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 :

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

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"...

[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...

[ouskel'n'or]

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

A+