Erreur d'execution (9)

[Jelf]

Bonjour à toutes et à tous les Excelenautes.

J'ai encore un petit souci avec une macro dont je vous en donne copie.

Sub RechercheFacture()
'
' RechercheFacture Macro
' Macro enregistrée le 08/05/2007 par Jean - Marie
'

'
ActiveSheet.Shapes("Button 10").Select
Sheets("Accueil").Select
Range("M19").Select
Application.Run ("'GESTION STOCK.xls'!Openarchives")
Windows("Archives.xls").Activate
Dim nomfeuil As String
nomfeuil = "Workbooks (GESTION STOCK.xls).Sheets (Accueil).Range(L12)"

Sheets(nomfeuil).Select

End Sub

C'est au niveau de " Sheets(nomfeuil). select) que s'affiche le message d'erreur suivant : Erreur d'execution '9' :
L'indice n'appartient pas à la sélection.

que faut il faire pour ne plus avoir se message?

Merci d'avance

Jelf

 

[Compte Supprimé 979]

Re : Erreur d'execution (9)

Salut Jelf,

Tu as effectivement un gros souci de codage dans ta macro

Dim nomfeuil As String
nomfeuil = "Workbooks (GESTION STOCK.xls).Sheets (Accueil).Range(L12)"
Sheets(nomfeuil).Select

Ca ne peut pas fonctionner 😕

Ce seraitplutôt un truc du style :

Dim NomFeuil As String
NomFeuil = "Accueil"
Windows ("GESTION STOCK.Xls").Activate
Sheets (NomFeuil).Select
Activesheet.Range("L12").Select

Voilà 😉

 

[Catrice]

Re : Erreur d'execution (9)

Bonjour,

1) il faut modifier la syntaxe de cette ligne :
nomfeuil = "Workbooks (GESTION STOCK.xls).Sheets (Accueil).Range(L12)"
en
nomfeuil = Workbooks("GESTION STOCK.xls").Sheets("Accueil").Range(L12)

2) il faut que dans la cellule L12 de la feuille Accueil du fichier GESTION STOCK.xls il y ait un nom d'onglet existant.

EDIT : Bonjour Bruno, je crois (en tous cas c'est ce que j'ai compris) que L2 contient le nom d'une feuille (Dans le classeur "Archives.xls" à priori ...)

 

[Jelf]

Re : Erreur d'execution (9)

Bonjour Catrice,
j'ai essayer ta solution et j'obtiens toujours le même message.
Je suis désolé. Peut-être existe t-il une autre solution.

Cordialement.
Jelf

 

[Pierrot93]

Re : Erreur d'execution (9)

Bonjour à tous

n'oublie pas les guillemets du "Range(L12)" soit : Range("L12")

bon après midi
@+

 

[Compte Supprimé 979]

Re : Erreur d'execution (9)

Oups, j'avais pas compris ça comme cela 🙂

Il faut également que ton classeur "GESTION STOCK.xls" soit ouvert sinon BUG 😉

 

[Jelf]

Re : Erreur d'execution (9)

Bonjour BrunoM45,

Je ne comprend pas ton code, car je suis déja dans "GESTION STOCK.xls" et je lance ma macro à partir de la feuille "Accueil". Mon souci c'est que je travail avec deux classeurs, et la feuille que je recherche se trouve dans le second.
J'ai aussi activer l'aide mais malheureusement je n'y comprend pas grand chose (cela est peut-être du à mon age "Manque de Neurones").
Si tu pouvais m'expliquer ton code, j'arriverais sans doute par le comprendre.

Merci d'avance

Cordialement.
Jelf

 

[Jelf]

Re : Erreur d'execution (9)

Re

Mon fichier GESTION STOCK.xls est ouvert.

 

[Jelf]

Re : Erreur d'execution (9)

Bonjour Pierrot93 et merci.

Il ne me manquait que cela et ça marche.

Merci encore à vous trois.

Cordialement
Jelf

 

[Catrice]

Re : Erreur d'execution (9)

Jelf,

il y a quoi dans la cellule L12 de la feuille Accueil du fichier GESTION STOCK.xls ?

Il doit normalement y avoir (d'apres ce que je comprends) le nom d'un onglet. non ?

Edit : Trop nul, j'avais oublié les guillemets de la référence de cellule 🙁 Merci Pierrot.