nom de feuille=nom inscrit dans une cellule

nom de feuille=nom inscrit dans une cellule - VB/VBA/VBS - Programmation

Marsh Posté le 25-04-2008 à 14:13:29    

Bonjour,
Je voudrais que dans ma macro, je puisse faire référence à une feuille dont le nom est inscrit dans une cellule dans une autre feuille.
Je m'explique:
En A1 dans la feuille "test" il est écrit Mars2008
et d'autre part, j'ai un onglet nommé Mars2008
je voudrais activer la feuille nommée Mars 2008 en disant
sheets("A1" ).activate mais je ne sais pas comment écrire cela. Je ne sais pas si cela est possible et si j'ai été clair.
Merci pour vos réponse
 

Reply

Marsh Posté le 25-04-2008 à 14:13:29   

Reply

Marsh Posté le 25-04-2008 à 14:31:46    

Sheets(Sheets("Feuil1" ).Cells(1,1)).Activate ?


---------------
Feedback : http://forum.hardware.fr/hfr/Achat [...] 2666_1.htm
Reply

Marsh Posté le 25-04-2008 à 15:30:29    

J'ai essayé mais ca ne marche pas...en fait les feuuiilles sont dans des classeurs diférents:
 
Workbooks("Classeur1" ).Sheets(Workbooks("Classeur2" ).Sheets("Feuille_classeur2" ).Cells(7, 3)).Activate
 
En fait dans le classeur 1 je veux activer la feuille dont le nom est écrit dans le classeur2 dans la cellule (7,3) de la feuille_classeur 2....
ai-je fait une erreur??
Merci

Reply

Marsh Posté le 25-04-2008 à 15:44:25    

zbarbar a écrit :

J'ai essayé mais ca ne marche pas...en fait les feuuiilles sont dans des classeurs diférents:
 
Workbooks("Classeur1" ).Sheets(Workbooks("Classeur2" ).Sheets("Feuille_classeur2" ).Cells(7, 3)).Activate
 
En fait dans le classeur 1 je veux activer la feuille dont le nom est écrit dans le classeur2 dans la cellule (7,3) de la feuille_classeur 2....
ai-je fait une erreur??
Merci


Je dirais que non... SI ca marche pas, procède par étape... Regarde si ca marche dans le même classeur, la valeur renvoyée....


---------------
Feedback : http://forum.hardware.fr/hfr/Achat [...] 2666_1.htm
Reply

Marsh Posté le 25-04-2008 à 15:47:25    

Est-il possible de garder en mémoire le nom de la feuille, cad:
date1=Workbooks("Classeur2" ).Sheets("Feuille_classeur2" ).Cells(7, 3).value
puis de réécrire
workbooks("classeur1" ).sheets(date1).activate
???

Reply

Marsh Posté le 25-04-2008 à 15:48:14    

Reply

Marsh Posté le 25-04-2008 à 15:50:34    

mais ca ne marche toujours pas....
cela écrit:erreur 9
l'indice n'apartient pas à la séléction....
jdevien fouuuuu

Reply

Marsh Posté le 25-04-2008 à 15:59:46    

En rajoutant des .xls, ca marche chez moi :
date1 = Workbooks("Classeur2.xls" ).Sheets("Feuille_classeur2" ).Cells(7, 3).value
workbooks("classeur1.xls" ).sheets(date1).activate  
 


---------------
Feedback : http://forum.hardware.fr/hfr/Achat [...] 2666_1.htm
Reply

Marsh Posté le 25-04-2008 à 16:54:51    

Merci bcp babasss c'est bon ça marche!!

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed