Problème avec .Activate...

wilfried_42

XLDnaute Barbatruc

• 4 Février 2008

• #2

Re : Problème avec .Activate...

bonjour

Les noms de feuille peuvent etre renommées, mais uniquement quand l'utilisateur à la main

tant que la macro tourne, l'utilisateur n'a pas la main

Tu peux donc utiliser le nom de la feuille tant que ta macro tourne

 

Vote positif 0 Vote négatif

I

i0raek

XLDnaute Occasionnel

• 4 Février 2008

• #3

Re : Problème avec .Activate...

Re,

mais je ne veux pas renommer le nom d'une feuille mais stocker son nom dans une variable... pour pouvoir la réutiliser a posteriori...

Lorsque j'utilise le code ci-dessus, il me retourne en message d'erreur :

Erreur d'exécution '424'

Objet requis.

Cliquez pour agrandir...

Avez vous une idée ?

 

Dernière édition: 4 Février 2008

Vote positif 0 Vote négatif

ninbihan

XLDnaute Impliqué

• 4 Février 2008

• #4

Re : Problème avec .Activate...

Bonjour,


Peut être ainsi:

Code:

Dim FeuilleOrg as string

FeuilleOrg = ActiveSheet.codename
Feuil1.activate

"..."

sheets(FeuilleOrg).activate

Bonne journée,

Ninbihan

 

Vote positif 0 Vote négatif

I

i0raek

XLDnaute Occasionnel

• 4 Février 2008

• #5

Re : Problème avec .Activate...

Re,

Le problème c'est que sheets(...) permet d'appeler une feuille avec son name et non son codename... la feuille "FeuilleOrg" n'existant pas, excel renvoie le message d'erreur :

Erreur d'exécution '9' :

L'indice n'appartient pas à la sélection.

Cliquez pour agrandir...

En fait cette méthode fonctionnerait si les noms des feuilles n'étant pas amnenés à être modifiés...

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 4 Février 2008

• #6

Re : Problème avec .Activate...

re:

Je n'ai pas parler de renommer la feuille, tu dis utiliser les codename par craite que les utilisateurs les renomment

Relis ce que j'ai ecrit

ca donne ca

Code:

Dim FeuilleOrg as Variant

FeuilleOrg = ActiveSheet.[COLOR="Red"]name[/COLOR]
Feuil1.activate

"..."

[COLOR="red"]sheets("FeuilleOrg")[/COLOR].activate

oups ! Excuse, Bonjour ninbihan

 

Dernière édition: 4 Février 2008

Vote positif 0 Vote négatif

ninbihan

XLDnaute Impliqué

• 4 Février 2008

• #7

Re : Problème avec .Activate...

Re,

Euh oui, et avec index ?

Code:

Sub test()
Dim FeuilleOrg As Integer
FeuilleOrg = ActiveSheet.Index
Feuil1.Activate


Sheets(FeuilleOrg).Activate
End Sub

Edit: Bonjour Wilfried

 

Vote positif 0 Vote négatif

I

i0raek

XLDnaute Occasionnel

• 4 Février 2008

• #8

Re : Problème avec .Activate...

Re,

En effet, je n'avais pas vu les choses ainsi...

Désolé ! 😱

Merci beaucoup pour votre aide !!!

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 4 Février 2008

• #9

Re : Problème avec .Activate...

Bonjour le fil, bonjour le forum,

une autre proposition :

Code:

Dim FeuilleOrg As Worksheet
Set FeuilleOrg = ActiveSheet
Feuil1.Activate
FeuilleOrg.Activate

 

Vote positif 0 Vote négatif

I

i0raek

XLDnaute Occasionnel

• 4 Février 2008

• #10

Re : Problème avec .Activate...

Re tout le monde !

Merci à tous pour votre aide !!!

J'ai tout ce qu'il me fallait et bien plus !!! 🙂

Merci encore !

 

Vote positif 0 Vote négatif