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!