bonjour,

voila mon prob, j'ai une vaiable nma (numero machine) avec laquelle je désire ouvrir la feuille correspondant à la machine.
Onglet dans le classeur nommé par numéro de machine.
voici mon bout de code :

If typ = "ETX" Or typ = "EKX" Then
Workbooks.Open (pat) & ("ETXEKX.xls")
With Workbooks("ETXEKX").Sheet(nma).Select

Et là : erreur d'exécution "9"

l'indice n'appartient pas à la sélection

Dans le mode debbogage, il me surligne : With Workbooks("ETXEKX").Sheet(nma).Select

merci pour vos idées et éventuellement solution

Vous êtes ici : Thèmes / Visual Basic 6 / Divers / Débutants / rechercher une feuille par une variable en VBA

VBA <> VB6

Il y a une section déjà faite pour VBA. Le prochain post, essaie de choisir la bonne section  =)

Pour ton probleme, vérifie la valeur de ta variable nma et vérifie s'il y a vraiment une feuille qui correspond à ce que contient ta variable.

bonsoir,

En ce qui concerne la variable, elle prend bien le num de la machine et oui, la feuille en question existe.

Ceci dit, ta réponse me fait songer à quelque chose, pourrait-il s'agir d'n prob d'espacement ?

merci

re bonsoir

Apparement, pas un problème d'espacement.

Et j'oubliais, désolé pour l'erreur de section.

Bav

Juste une question comme ça, tu as combien de feuilles et quels sont les numéros de machine?

Si tu as 5 feuilles l'index sera de 0 à 4
Si ton numéro de machine est 33432, la sheet(33432) n'existe pas...

seulement 6 types machines et max 14 feuilles dans les classeurs.

ex présenté : onglet (num machine) 10, 94, 439, 440, 488, 489

==> if then pour ouvrir classeur correspondant, mais le tout géré par une fiche de travail

Salut,

une selection sur la meme ligne quele with me parait etre une methode bien etrange !
question: le fichier est il bien ouvert ?

Donne nous la methode que tu utilises pour atribuer la valeur a la variable nma

donne nous aussi ce qu'il y a apres la ligne :

With Workbooks("ETXEKX").Sheet(nma).Select

et ce jusqu'au End With

A+

voici tout le code, je le présentais avec un seul classeur car il est fait, les autres sont à faire.

Au départ j'avais pas mis le with, mais ça fonctionnait pas non plus.

'capture des données à copier
Dim plage As String
Dim nma As Integer

'num machine sur la feuille de saisie

nma = Range("b8")

'recherche et visualisation classeur machines le 14/07/08

Dim typ As String 

typ = Range("d10") 'type de machine sur la feuille de saisie
pat = ("C:\Documents and Settings\*****\Bureau\fiche de travail\")
If typ = "ERE" Or typ = "BT" Then
Workbooks.Open (pat) & ("ere.xls")
Else
If typ = "KMS" Or typ = "EKS" Then
Workbooks.Open (pat) & ("KMSEKS.xls")
Else
If typ = "ECE" Or typ = "ECP" Then
Workbooks.Open (pat) & ("ECPECE.xls")
Else
If typ = "EFG" Then
Workbooks.Open (pat) & ("EFG.xls")
Else
If typ = "ETV" Then
Workbooks.Open (pat) & ("ETV.xls")
Else
If typ = "ETX" Or typ = "EKX" Then
Workbooks.Open (pat) & ("ETXEKX.xls")
With Workbooks("ETXEKX").Sheet(nma).Select
End With
End If
End If
End If
End If
End If
End If
End Sub

les modif en bleu

    Dim plage As String
    Dim nma As Integer
    Dim typ As String
    Dim pat As String
   
    'num machine sur la feuille de saisie
   
    nma = Range("b8").Value
   
    'recherche et visualisation classeur machines le 14/07/08
   
    typ = Range("d10").Value 'type de machine sur la feuille de saisie
    pat = "C:\Documents and Settings\*****\Bureau\fiche de travail\"
    If typ = "ERE" Or typ = "BT" Then
        Workbooks.Open (pat & "ere.xls")
    ElseIf typ = "KMS" Or typ = "EKS" Then
        Workbooks.Open (pat & "KMSEKS.xls")
    ElseIf typ = "ECE" Or typ = "ECP" Then
        Workbooks.Open (pat & "ECPECE.xls")
    ElseIf typ = "EFG" Then
        Workbooks.Open (pat & "EFG.xls")
    ElseIf typ = "ETV" Then
        Workbooks.Open (pat & "ETV.xls")
    ElseIf typ = "ETX" Or typ = "EKX" Then
        Workbooks.Open (pat & "ETXEKX.xls")
        Workbooks("ETXEKX").Sheet(nma).Activate
    End If


Je ne peux pas verifier mais cela doit aller mieux

interesse toi a la fonction case

J viens de tester, code plus propre mais même résultat :

Workbooks("ETXEKX").Sheet(nma).Activate  surligné

erreur d'exécution '9'

l'indice n'appartient pas à la sélection