erreur de syntaxe

[desmonts]

Bonjour tous le monde,

J'ai un petit pb j'ai défini une cste que j'ai appelé "X" qui se trouve dans mon onglet extraction en C1. J'y mets le nom d'un de mes onglets du classeur ouvert. Ensuite j'essai de sélectionner un onglet (celui que j'ai mis en C1) mais la c'est le drame
sub essai ()
Dim X As String
Sheets("extraction").Select
X = Range("c1").Value
ensuite j'essai de sélectionner un onglet (celui que j'ai mis en C1)
Sheets(X).Select
mais la dernière ligne est en erreur, quelqu'un pourrait me dire ce que j'ai mal fait ?

Merci d'avance

 

[herve62]

Bonsoir

Merci d'avance

Merci d'avance de mettre ton fichier !!!
Sinon au "pif" sans filet .... ni fichier , je dirais que vu que tu utilises sheets(nombre) et que au début tu nommes "Extraction"
verifie que ton C1 = le niéme onglet dans l'ORDRE de tes onglets affichés !
Si tu as "Extraction"' ; "Feuil1" , "feuil2" et que tu dis C1=2 pour avoir Feuil2 , raté !!!! tu auras l'onglet "Feuil1" car c'est le 2eme de la liste

 

[CB60]

Bonsoir
tu peux tester cela

Sub essai()
Dim X
X = Sheets("extraction").Range("c1").Value
Sheets(X).Activate
End Sub