Recherche d'un onglet par une variable

Version imprimable

16/09/2014, 18h44
Pilote106

Recherche d'un onglet par une variable

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.

Bonjour,
Exemple

Code:

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

J ai fais çà et cela ne marche pas

Code:

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

16/09/2014, 20h38
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
17/09/2014, 08h46
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
17/09/2014, 09h10
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:

ThisWorkbook.Worksheets(shName).Activate

Si le classeur n'est pas ThisWorkbook

Code:

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

Je suis vraiment désolé mais je pense et je confirme que je suis pas très doué.
voila mon code:
Code:

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 Workbooks("TableauHebdoTournage").Worksheets("Va1").Activate
Alors ce que je voudrai faire
1 -- Déclaré une variable sur un classeur A
2 --- Cette variable serai un numéro de semaine comme (semaine 38)
3 ---- Ouvrir un autre classeur qui s'appelle "TableauHebdoTournage"
4 ---- Ouvrir l'onglet du classeur avec la variable Va1 qui est le numéro de la semaine que je choisirai.

Je pense que le code que j ai fait est pas bon au niveau de l'appel de l'onglet avec la variable
Merci pour votre d'aide
Patrice

18/09/2014, 10h47
Marc-L

Bonjour, bonjour !

Tout ce qui est entre guillemets est du texte et non pas une variable, B-A-BA de la programmation en BASIC !

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …
18/09/2014, 10h57
Pilote106

Ok merci pour les infos.
Mais sans les guillemets cela ne marche pas non plus
18/09/2014, 11h27
Philippe Tulliez

Bonjour,
Evite de toujours écrire que cela ne marche pas. Indique le message d'erreur ainsi que le message renvoyé par VBA et le n° de ligne où cela se passe
Dans cette ligne de code

Code:

Workbooks("TableauHebdoTournage").Worksheets("Va1").Activate

tu demande à VBA d'activer la feuille nommée Va1 du classeur nommé TableauHebdoTournage et si ce classeur n'est pas dans la fenêtre active, tu ne peux activer la feuille (de mémoire car je n'ai pas de machine sous la main pour vérifier mes dires.
C'est la raison pour laquelle j'ai insisté sur le fait que sauf raison impérative il ne faut pas utiliser les méthodes Select et Activate.
Si Va1 est une variable contenant le nom de la feuille, la ligne de code est

Code:

Workbooks("TableauHebdoTournage").Worksheets(Va1).Activate

Selection de Feuille

Bonjour Philippe,

Si je peux me permettre.

Sauf erreur, si l'on ne choisit pas de désigner une feuille par son indice, alors l'argument de la méthode Worksheets doit être de type String (Chaîne de caractères)

Je pense que c'est là une des origines du problème de notre ami.

Pour ma part, et rapidement, j'ai trouvé cette solution
(pas très "fun", j'en conviens)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Macro1()
 
Dim numfeuille As Byte
Dim wkb As Workbook
Dim wks As Worksheet
 
numfeuille = Worksheets(1).Range("B8")
 
Workbooks.Open Filename:= _
        "chemin complet et nom du fichier avec son extension"
Set wkb = ActiveWorkbook
For Each wks In wkb.Worksheets
        With wks
                If IsNumeric(.Name) Then
                        If .Name + 0 = numfeuille Then
                                .Activate
                                Exit For
                        End If
                End If
        End With
Next wks
Set wkb = Nothing
 
End Sub

18/09/2014, 12h02
Marc-L

Ainsi le plus fiable n'est pas d'utiliser l'un ou l'autre mais de préférer le CodeName de la feuille …

(Lorsque la feuille est rattachée au classeur contenant le code …)
18/09/2014, 12h09
Philippe Tulliez
Bonjour Marcel,
Oui tu as raison mais je l'avais indiqué dans ma réponse du 16/09/2014 à 18h58
Citation:
Exemple

Code:

1 2 3 Dim f As String f = 38 ThisWorkbook.Worksheets(f).Activate
et hier à 9:10, j'ai écrit

Citation:

Soit si la valeur de la variable shName est égal "38"

discussion où j'ai aussi évoqué que le CodeName était préférable

Citation:

et encode mieux d'utiliser son CodeName comme par exemple Feuil6.Activate

mais c'est vrai que j'aurais dû taper sur le clou et insister dans mes autres réponses
18/09/2014, 12h26
MarcelG

DontAct, Philippe.

Mais pour le cas présent, je ne vois pas comment utiliser le CodeName car le nom de la feuille répond à une variable numérique.
Ou je ne suis pas bien réveillé?
18/09/2014, 12h34
Philippe Tulliez

Marcel tu as 100% raison.
En fait ma réponse à ce post était pour montrer la syntaxe pour activer une feuille ce que ne semblait pas bien comprendre l'initiateur de cette discussion.
De toutes manières pour ma part je ne suis pas partisan de ces classeurs contenant de multiples feuilles avec des semaines, des mois ou des années alors qu'une simple feuille suffit pour faire une consultation filtrée ou encore un rapport avec tableau croisé dynamique.
Mais pour cela, il faut avoir des données bien structurées.
18/09/2014, 13h15
MarcelG

Précision

Merci, Philippe.
Je partage bien entendu ton point de vue.
(Pour ma part, j'aime bien aussi utiliser les variables tableau).

Précision pour nos amis.
Dans le - modeste - code proposé, 2 méthodes

Code:

If

sont imbriquées.
En effet, Excel semble considérer toutes les conditions d'une méthode If simultanément.
La ligne de code

Code:

If IsNumeric(.Name) And .Name + 0 = numfeuille

conduit à une erreur 'Incompatibilité de type" (.Name + 0)
Ce tandis que l'imbrication fait shunter la ligne ne répondant pas à la condition décrite.

On peut également remarquer cette particularité avec la méthode

Code:

Iif

.
Celle-ci, bien pratique au demeurant, doit parfois laisser place à la méthode

Code:

If

.
19/09/2014, 11h54
Pilote106

Super cela fontionne.
Merci beaucoup à tous les 2 .
Désoler mais je suis un peu boulet.
Cordialement
Patrice