Discussion :

[Pilote106]

J ai fais une recherche sur le forum mais j ai rien trouvé concernant
mon sujet.

Voici ma demande

Je fais une macro pour faire les fonctions suivantes

Je déclare une variable X ----Pas de pb

J’ouvre un nouveau fichier ---- Pas de pb

Puis il me faut ouvrir l’onglet qui
correspond à la variable (exemple 38) et la je sais pas faire.

[Philippe Tulliez]

Bonjour,
Exemple

Code :

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

1
2
3
 Dim f As String
 f = 38
 ThisWorkbook.Worksheets(f).Activate

[Pilote106]

J ai fais çà et cela ne marche pas

Code :

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

1
2
3
4
5
6
7
8
  Dim Va1 As String
    Va1 = ['Données'!H2]  ' Variable pour Sélectionner la semaine
 
 
    Range("V17").Select
    Workbooks.Open Filename:= _
        "P:\Atelier\Indicateur Atelier\TableauHebdoTournage.xlsm", Notify:=False
        ThisWorkbook.Worksheets(Va1).Activate

[Philippe Tulliez]

Bonjour,

Je teste toujours les réponses que je publie et dans mon code ThisWorkbook est le classeur où se trouve le code VBA ce qui ne semble pas être ton cas.
Il faudrait donc l'adapter

[Pilote106]

Je ne remets pas en cause ton code quand je dis que cela ne marche pas mes je me remets plus moi en cause.
Toujours est-il que je ne sais pas comment faire pour que cela marche
Merci beaucoup pour votre aide
Patrice

[Philippe Tulliez]

Bonjour,
Pour sélectionner une feuille, c'est la méthode Activate de l'objet Worksheet et une feuille fait partie d'une collection Worksheets
donc Worksheets(1).Activate active la première feuille du classeur actif mais il est préférable d'utiliser le nom de la feuille Worksheets("Feuil6").Activate et encode mieux d'utiliser son CodeName comme par exemple Feuil6.Activate
Cependant pour éviter des problèmes inévitables lorsque l'on a plus d'un classeur ouvert, il y a lieu de préciser l'objet parent de la feuille soit le classeur.
Soit si la valeur de la variable shName est égal "38"
Si le classeur est celui sur lequel se trouve le code VBA

Code :

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

ThisWorkbook.Worksheets(shName).Activate

Si le classeur n'est pas ThisWorkbook

Code :

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

Workbooks("NomClasseur").Worksheets(shName).Activate

J'ajoute que si c'est pour écrire ou lire dans une cellule ou une plage de cellules se trouvant sur une feuille quelconque, il n'y a aucune raison d'utiliser les méthodes Activate ni Select