Discussion :

[antoinelavigne]

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 :

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

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!

[linda15975]

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

Code :

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

Appliaation.ScreenUpdating = True

[antoinelavigne]

Cest une faute qui n'est pas dans mon code et que j'ai commise en le recopiant désolé !

[gootsu]

salut!

tu devrais en ce qui concerne :

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 +

[antoinelavigne]

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.

[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

[linda15975]

l'erreur se produit à quelle ligne?

[gootsu]

essai de mettre ces lignes de codes :

Code :

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

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

plustot que :

Code :

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

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!!!

[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...)

[gootsu]

ah je pense avoir trouvé!!

Code :

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

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 :

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

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

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

Code :

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

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!

[antoinelavigne]

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 :

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

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

[linda15975]

Tu as vérifié tous les noms de classeur et de feuilles?

[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 ..

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.

[linda15975]

faut mettre B4 en premier alors...

[illight]

Ton problème est sur quelle ligne quand tu fait un débogage ?

[ouskel'n'or]

Au lieu de mettre

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

mets

Code :

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

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é Bon, alors n'en rajoute pas !)
A+

[antoinelavigne]

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

Code :

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

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