[Vba-E] Problème incompréhensible

Version imprimable

Bonjour,
l'autre topic étant très confus au niveau de mes problèmes, en voilà un autre, plus clair, et surement plus intéréssant.

J'ai un problème dans mon code, Erreur d'éxéuction 9 - L'indice n'appartient pas à la sélection, pourtant on m'a aidé également sur d'autres forums mais impossible de voir ce qui ne va pas. Voilà mon code :
Code:

1 2 3 4 5 6 7 8 9 10 Sub Vbatest() var = ActiveWorkbook.Name Application.ScreenUpdating = False Workbooks.Open "E:\Automatisation V2\V2 réalisé Juin.xls", , True Workbooks("E:\Automatisation V2\V2 réalisé Juin.xls").Worksheets("RealAnnu").Range("D5") _ = Workbooks(var).Worksheets("Synthese").Range("B4").Value Workbooks.Close Application.ScreenUpdating = True msgbox (var) End Sub
De plus ca m'ouvre le workbook 'V2 réalisé Juin.xls' dans une fenetre et non pas en lecture seule, ce que je ne veux pas. Please help me!

16/06/2006, 10h18
linda15975

je sais pas si ça peut venis de ça (sincèrement jepense pas) mais ya une faute de frappe dans

Code:

Appliaation.ScreenUpdating = True
16/06/2006, 10h32
antoinelavigne

Cest une faute qui n'est pas dans mon code et que j'ai commise en le recopiant désolé !
16/06/2006, 10h38
gootsu

salut!

tu devrais en ce qui concerne :

Citation:

De plus ca m'ouvre le workbook 'V2 réalisé Juin.xls' dans une fenetre et non pas en lecture seule

lire dans l'aide en ligne "OpenLinks, méthode" je pense que ça t'interessera! ;)

a + :)
16/06/2006, 11h04
antoinelavigne

Citation:

Envoyé par gootsu

salut!

tu devrais en ce qui concerne : lire dans l'aide en ligne "OpenLinks, méthode" je pense que ça t'interessera! ;)

a + :)

J'arrive pas à trouver des informations sur cette méthode ... mais est-ce que ca résoudra mon problème ? Merci d'avance.
16/06/2006, 11h17
gootsu

dans editeur VBa dans l'aide il y est! tu fais rechercher "OpenLinks"!

Par contre si ça résoudra ton problème d'indice n'appartient pas à la sélection je ne pense pas! mais pour la lecture seul peut-etre! (je suis pas sur ! :) )

je t'aide comme je peux lol
16/06/2006, 11h19
linda15975

l'erreur se produit à quelle ligne?
16/06/2006, 11h23
gootsu

essai de mettre ces lignes de codes :

Code:

Workbooks.Open FileName:="E:\Automatisation V2\V2 réalisé Juin.xls", ReadOnly:=True

plustot que :

Code:

Workbooks.Open "E:\Automatisation V2\V2 réalisé Juin.xls", , True

je pense pas que c'est de là le problème mais on sais jamais! lol ;)
pour moi ce que t'a tapé est juste!!!
16/06/2006, 11h29
linda15975

Vu le message d'erreur, je dirais que tu as un problème dans les noms de classeur ou de feuille. Donc vérifie bien chaque nom(espaces, accents...)
16/06/2006, 11h32
gootsu
ah je pense avoir trouvé!!
Code:

1 2 Workbooks("E:\Automatisation V2\V2 réalisé Juin.xls").Worksheets("RealAnnu").Range("D5") _ = Workbooks(var).Worksheets("Synthese").Range("B4").Value
Je pense que toi tu veux mettre la valeur de "B4" dans l'autre classeur à "D5" mais je pense qu'il se crée un confli ! c'est à dire qu'il ne peut pas faire :

Code:

Range("D5") = Range("B4").Value

donc soit tu rajoute ".value" à Range("D5") soit tu enlèves l'autre! ;)
Moi je metterai :
Code:

1 2 Workbooks("E:\Automatisation V2\V2 réalisé Juin.xls").Worksheets("RealAnnu").Range("D5").Value _ = Workbooks(var).Worksheets("Synthese").Range("B4").Value
Ps: je ne l'ai pas testé! ce ne sont que des suppositions! :lol:

Salut gootsu,
non marche toujours pas ...

1/ J'ai rajouté .Value pour créer l'équilibre entre les 2 camps lol mais ca me fait la même erreur. Pourtant le nom du classeur est bien stocké dans la variable 'VAR', j'ai testé avec un msgbox ca marche bien.

2/ J'ai essayé ReadOnly:=True à la place de TRUE mais ca me fait le même résultat, la même erreur, mais je crois que le fait que le classeur s'ouvre quand même est normal!

Openlinks ne maide pas, dailleurs je comprends rien à cette méthode !

Voilà ou j'en suis, bloqué sur un problème trop bête . Niveau code, jen suis là :
Code:

1 2 3 4 5 6 7 8 Sub Vbatest() var = ActiveWorkbook.Name Application.ScreenUpdating = False Workbooks.Open "E:\Automatisation V2\V2 réalisé Juin.xls", , True Workbooks(var).Worksheets("Synthese").Range("B4").Value = Workbooks("E:\Automatisation V2\V2 réalisé Juin.xls").Worksheets("RealAnnu").Range("D5").Value Workbooks.Close Application.ScreenUpdating = True End Sub

16/06/2006, 11h50
linda15975

Tu as vérifié tous les noms de classeur et de feuilles?
16/06/2006, 11h55
antoinelavigne

Linda > Oui encore une fois à l'instant. Tout est bon ! Cest pour ca que je regarde pas mal au niveau de l'ouverture du classeur mais bon ..

Citation:

Envoyé par Gootsu

Je pense que toi tu veux mettre la valeur de "B4" dans l'autre classeur à "D5" mais je pense qu'il se crée un confli ! c'est à dire qu'il ne peut pas faire :

Non c'est le contraire, la valeur de

D5 de la feuille 'RealAnnu' du classeur E:\Automatisation V2\V2 réalisé Juin.xls

vers ->

B4 de la feuille 'Synthese' du classeur ouvert , cest a dire stocké dans VAR.
16/06/2006, 11h57
linda15975

faut mettre B4 en premier alors...
16/06/2006, 11h59
illight

Ton problème est sur quelle ligne quand tu fait un débogage ?
16/06/2006, 14h25
ouskel'n'or

Au lieu de mettre

Citation:

Workbooks.Open "E:\Automatisation V2\V2 réalisé Juin.xls", , True

mets

Code:

Workbooks.Open filename:="E:\Automatisation V2\V2 réalisé Juin.xls", , True

Mais tu n'as à aucun moment répondu à linda15975 qui posait la seule bonne question : SUR QUELLE LIGNE TON ERREUR ?

Si pouvais répondre à ça, tu aurais tout de suite 20 réponses inutiles de moins

(Je sais, je suis énervé :cry: Bon, alors n'en rajoute pas !) ;)
A+

Laissez, je viens de résoudre le problème tout seul (après un acharnement ). Voilà le code qui marche :

Code:

1
2
3
4
5
6
7
8
9
 
Sub VbaTest()
Var = ActiveWorkbook.Name
Source = "E:\Automatisation V2\V2 réalisé Juin.xls"
Workbooks.Open Source, , True
ValSource = ActiveWorkbook.Worksheets("RealAnnu").Range("I34")
ValSource = format(ValSource,"#0.0") 
Workbooks(Var).Worksheets("Synthese").Range("B4").Value = ValSourceActiveWorkbook.Close
End Sub