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!